*DECK S$ERRHD 
          PROC S$ERRHD; 
  
#**       S$ERRHD - MAKE HEADING FOR ERROR FILE                        #
#                                                                      #
#     CALLING SEQUENCE -                                               #
#         S$ERRHD:                                                     #
#                                                                      #
#     GIVEN -  NO PARAMETERS                                           #
#                                                                      #
#     DOES -                                                           #
#         CREATES A HEADER WHICH CONTAINS:  SORT/MERGE VERSION AND     #
#            LEVEL NUMBERS, ALONG WITH CURRENT DATE AND TIME.          #
#         IT THEN USES S$PTEFU TO PAGE EJECT AND S$PTEF TO PUT THE     #
#            HEADING TO THE ERROR FILE.                                #
#         THIS WAS MEANT TO BE CALLED FROM S$ERR AND TO USED ONLY      #
#            IF THE ERROR FILE IS DIFFERENT THAN THE LIST FILE.        #
#                                                                      #
  
          BEGIN 
  
          XREF
              BEGIN 
              PROC S$DTCLK;             # GETS TIME AND DATE           #
              PROC S$PTEF;              # PUTS LINE INTO LIST FILE     #
              PROC S$PTEFU;             # USED FOR PAGE EJECT          #
              END 
  
          ITEM DATE      C(10);      # YEAR/MONTH/DATE/                #
          ITEM LINL      I;          # LINE LENGTH                     #
          ITEM K         I;          # INCREMENT VALUE                 #
          ITEM PTLIN     C(100);     # LINE OF TEXT CONTAINING HEADER  #
          ITEM TIME      C(10);      # HOUR.MINUTE.SECOND              #
  
          S$DTCLK(DATE,TIME); 
  
#           PAGE EJECT THE ERROR FILE                                  #
  
          S$PTEFU("1",10);
  
#           PUT TEXT OF HEADING INTO 'PTLIN'                           #
  
          PTLIN = "        "; 
          C<3,14>PTLIN = "SORT/MERGE 5.0";
          C<20,22>PTLIN = "* LISTING OF ERRORS *";
          C<46,10>PTLIN = DATE; 
          C<61,10>PTLIN = TIME; 
          S$PTEF(PTLIN,100);         # PRINT HEADER                    #
  
          END 
          TERM
