*DECK HEADING 
USETEXT TENVIRN 
USETEXT TOPTION 
USETEXT TREPORT 
USETEXT TRPTLST 
USETEXT TXSTD 
      PROC HEADING; 
  
#----------------------------------------------------------------------#
#                                                                      #
#  THE FOLLOWING PROCS ARE XDEF"D WITHIN THIS DECK:                    #
#                                                                      #
#     ALLPG                        SET *ON ALL PAGES*                  #
#     HDLEVEL                      SET THE HEADING LEVEL NUMBER        #
#                                                                      #
#----------------------------------------------------------------------#
  
      BEGIN 
  
           DEF COLUMN #XCOLUMN#;
          DEF CURTAB #XTAB#;
  
      XREF ITEM CALLTYP      I;    # CALLTYPE OF THIS REPORT ENTRY     #
      XREF BASED ARRAY HEAD;       # TO LOOK AT REPORT HEAD LISTS      #
        BEGIN 
        ITEM HEADL        U(00,03,09);   #                             #
        END 
      XREF ITEM HEADADDR     I; 
      XREF ITEM HEADNDX      I;    # INDEX IN *HEAD* OF MATCHING LEVEL #
                                   # NUMBER, ELSE IT IS ZERO.          #
      XREF ITEM LEVELNB      I; 
      XREF ITEM MAX          I; 
       DEF DFTRPWD #O"40000000000001000000"#;  #DEFAULT VALUE FOR 
                                                REPORTLIST WORD 1,
                                                BEYOND IS ON, 
                                                LINE NB IS 1# 
         DEF DFTRPWD2 #O"04010000000000000000"#;
  
      XREF ITEM SAMELINE     B; 
  
      XREF PROC INIT; 
  
  
  
  
#----------------------------------------------------------------------#
  
  
  
  
       XDEF PROC ALLPG;                #PROC TO SET THE ALLPAGE BIT#
       PROC ALLPG;
       BEGIN
          IF NOT FULLSYNTX THEN STDYES; 
           IF SAMELINE THEN STDNO;
           ALLPAGE[REPORTINDEX] = TRUE; 
           STDYES;
       END
  
  
  
  
#----------------------------------------------------------------------#
  
  
  
  
       XDEF PROC HDLEVEL;              #PROC TO INITIALIZE THE APPROPIA#
       PROC HDLEVEL;                   #TE HEADING HEADER#
       BEGIN
          P<HEAD> = LOC(BREAKHEAD); 
          MAX = MAXBREAK; 
           INIT;                           #LOCATE THE HEADER#
           CALLTYP = 2;                                                 001420
          IF NOT FULLSYNTX THEN STDYES; 
          IF HEADNDX EQ 0          # IF NO MATCHING LEVEL WAS FOUND    #
            AND LEVELNB NQ 0       # AND THERE WAS A LEVEL TO BE FOUND #
          THEN
            BEGIN 
            STDNO;                 # INVALID LEVELNB. ERROR RETURN.    #
            END 
  
         NONEMPTYRPT = TRUE;                                            004220
          HDGFIRST[HEADNDX] = REPORTINDEX;  # SET FIRST POINTER IN HEAD#
          HEADADDR = LOC(HDGWORD[HEADNDX]);  # SAVE LOCATION OF HEAD   #
           STDYES;
       END
  
  
  
  
#----------------------------------------------------------------------#
  
  
      END 
      TERM
