*DECK RCPTTL
USETEXT TENVIRN 
USETEXT TREPORT 
USETEXT TRPTLST 
USETEXT TXSTD 
      PROC RCPTTL;
  
#----------------------------------------------------------------------#
#                                                                      #
#  THE FOLLOWING PROCS ARE XDEF"D WITHIN THIS DECK:                    #
#                                                                      #
#     RCPEX                        STORE A RECAP DIRECTIVE             #
#     TTLEX                        STORE A TITLE DIRECTIVE             #
#                                                                      #
#----------------------------------------------------------------------#
  
      BEGIN 
  
           DEF COLUMN #XCOLUMN#;
          DEF CURTAB #XTAB#;
  
      XREF ITEM CALLTYP      I;    # CALLTYPE OF THIS REPORT ENTRY     #
      XREF ITEM CTR          I; 
      ITEM ENDCOL       I;         # ENDING COLUMN POSITION            #
      XREF ITEM HEADADDR     I; 
      XREF ITEM LEVELNB      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 ITEM TLG          I; 
  
  
  
  
#----------------------------------------------------------------------#
  
  
  
  
      XDEF PROC RCPEX;
      PROC RCPEX; 
      BEGIN 
          CALLTYP = 5;
          IF NOT FULLSYNTX THEN STDNO;
          NONEMPTYRPT = TRUE;                                           004240
          P<REPORTLIST> = AREPORTLIST;
          HEADADDR = LOC(RECAPHEAD);
          COLUMN = 1; 
          CTR = 0;
          ENDCOL = TABCOL(1); 
          TLG = 0;
          CURTAB = 0; 
          REPORTWORD1[REPORTINDEX] = DFTRPWD; 
          REPORTWORD2[REPORTINDEX] = DFTRPWD2;
          SAMELINE = FALSE; 
          XLINE = 1;
          RECFIRST[1] = REPORTINDEX;
          XCENTER = FALSE;
          LEVELNB = 0;
          STDNO;
      END 
  
  
  
  
#----------------------------------------------------------------------#
  
  
  
  
      XDEF PROC TTLEX;
      PROC TTLEX; 
      BEGIN 
          CALLTYP = 4;
          IF NOT FULLSYNTX THEN STDNO;
          NONEMPTYRPT = TRUE;                                           004260
          P<REPORTLIST> = AREPORTLIST;
          HEADADDR = LOC(TITLEHEAD);
          COLUMN  = 1;
          CTR = 0;
          TLG = 0;
          ENDCOL = TABCOL(1); 
          CURTAB = 0; 
          REPORTWORD1[REPORTINDEX] = DFTRPWD; 
          REPORTWORD2[REPORTINDEX] = DFTRPWD2;
          SAMELINE = FALSE; 
          XLINE = 1;
          BEYOND[REPORTINDEX] = FALSE;
          XCENTER = FALSE;
          TITFIRST[1] = REPORTINDEX;
          LEVELNB = 0;
          STDNO;
      END 
  
  
  
  
#----------------------------------------------------------------------#
  
  
      END 
      TERM
