*DECK FOOTING 
USETEXT TENVIRN 
USETEXT TOPTION 
USETEXT TREPORT 
USETEXT TXSTD 
      PROC FOOTING; 
  
#----------------------------------------------------------------------#
#                                                                      #
#  THE FOLLOWING PROCS ARE XDEF"D WITHIN THIS DECK:                    #
#                                                                      #
#     FTLEVEL                      SET THE FOOTING 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 DIAG;              # ISSUE DIAGNOSTIC MESSAGE TO USER  #
      XREF PROC INIT; 
  
  
  
  
#----------------------------------------------------------------------#
  
  
  
  
       XDEF PROC FTLEVEL;              #PROC TO INITIALIZE THE APPROPIA#
       PROC FTLEVEL;                   #TE FOOTING HEADER#
       BEGIN
          P<HEAD> = LOC(BREAKHEAD); 
          MAX = MAXBREAK; 
           INIT;                           #LOCATE THE HEADER#
           CALLTYP = 3;                                                 001400
          IF NOT FULLSYNTX THEN STDYES; 
          NONEMPTYRPT = TRUE;                                           004200
          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 
  
          FTGFIRST[HEADNDX] = REPORTINDEX;  # SET FIRST POINTER IN HEAD#
          HEADADDR = LOC(FTGWORD[HEADNDX]);  # SAVE LOCATION OF HEAD   #
           STDYES;
       END
  
  
  
  
#----------------------------------------------------------------------#
  
  
      END 
      TERM
