*DECK PAGERTS 
USETEXT CCTTEXT 
USETEXT RPTEXT
PROC PAGERTS; 
          BEGIN 
*CALL RGCOMM1 
*CALL RGCOMM2 
  
ENTRY PROC G$PAGEA; 
          BEGIN 
  
          #THIS ROUTINE#
          #- GENERATES A COBOL PAGE-ADVANCE ROUTINE IN CTEXT# 
          #FORM#
  
          #GENERATE#
          #PAGE-ADVANCE.# 
          #PERFORM PAGE-FOOTING THRU PAGE-FOOTING-EXIT# 
          #(IF DEFINED)#
          #MOVE 0 TO PRESENTED-ON-THIS-PAGE-SWITCH# 
          #MOVE 1 TO GROUP-INDICATED-SWITCH-1#
          #GROUP-INDICATED-SWITCH-2 (ETC.)# 
          #WRITE RECORD-NAME-1 FROM SPACING-AREA AFTER# 
          #ADVANCING PAGE#
          #ADD 1 TO PAGE-COUNTER# 
          #MOVE 0 TO LINE-COUNTER#
          #THESE LINES// PERFORM PAGE-HEADING THRU P-H-EXIT#
          #GEN"D ONLY // IF PH-PRESENTED = 1 MOVE 0 TO PH-PRESENTED#
          #IF PH DEF"D// ELSE#
          #MOVE HEADING TO S-L-N# 
          #PERFORM SPACING.#
  
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *#
  # * #   EPTRACE("G$PAGEA")                                       # * #
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *#
  
  
          PNATPTR =  RWGET1(PAGEADVANCE  #CURRIRTPTR#); 
          GENPNDEF #PNATPTR# ;
          GENPERIOD;
  
          #IS A PAGE-FOOTING DEFINED FOR THIS REPORT&#
  
          CURRRPTGRPTR =  RWGET1(BASE$REPORTG  #CURRIRTPTR#); 
PAR1LOOP: 
          IF RWGET1(RGTYPEOFRG  #CURRRPTGRPTR#) EQ 6
              #PF#
          THEN
              BEGIN 
              GENPERFORM; 
              PNATPTR = RWGET1(RGPARANAME1  #CURRRPTGRPTR#);
              GENPNREF #PNATPTR# ;
              GENTHRU;
              PNATPTR = RWGET1(RGPARANAME2  #CURRRPTGRPTR#);
              GENPNREF #PNATPTR# ;
              GOTO PAR1;
              END 
          IF RWGET1(RGEOTDELIM  #CURRRPTGRPTR#) EQ 1
          THEN
              GOTO PAR1;
          CURRRPTGRPTR =  RWGET1(RGTLINK  #CURRRPTGRPTR#);
          GOTO PAR1LOOP;
PAR1: 
          GENMOVE;
          PLTPNTR =  RWGET1(IRTINTZERO  #CURRIRTPTR#);
          GENLIT0 #PLTPNTR# ; 
          GENTO;
          DNATPTR =  RWGET1(POTP$SWITCH  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          CURRGRINDPTR = RWGET1(BASE$GRPIND  #CURRIRTPTR#); 
          GENMFLAG = 0; 
GIN1: 
          IF  RWGET1(GIFLAG$DNAT  #CURRGRINDPTR#) NQ 0
          THEN
              BEGIN 
              IF GENMFLAG EQ 0
              THEN
                  BEGIN 
                  GENMOVE;
                  PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
                  GENLIT1 #PLTPNTR# ; 
                  GENTO;
                  GENMFLAG = 1; 
                  END 
              DNATPTR =  RWGET1(GIFLAG$DNAT  #CURRGRINDPTR#); 
              GENDNREF #DNATPTR# ;
              END 
          IF  RWGET1(GITEOT$DELIM  #CURRGRINDPTR#) NQ 1 
          THEN
              BEGIN 
              CURRGRINDPTR = RWGET1(GRINDLINK  #CURRGRINDPTR#); 
              GOTO GIN1;
              END 
          GENWRITE; 
          DNATPTR =  RWGET1(RECORD$NAME1  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENFROM;
          DNATPTR =  RWGET1(SPACING$AREA  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENAFTER; 
          GENADVANCING; 
          GENPAGE;
          GENADD; 
          PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
          GENLIT1 #PLTPNTR# ; 
          GENTO;
          DNATPTR =  RWGET1(IRTPCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENMOVE;
          PLTPNTR =  RWGET1(IRTINTZERO  #CURRIRTPTR#);
          GENLIT0 #PLTPNTR# ; 
          GENTO;
          DNATPTR =  RWGET1(IRTLCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
  
          #GENERATE THE 3 LINES ONLY IF PAGE HEADING IS DEFINED#
  
          CURRRPTGRPTR =  RWGET1(BASE$REPORTG  #CURRIRTPTR#); 
PARGTLOOP:  
          IF RWGET1(RGTYPEOFRG  #CURRRPTGRPTR#) EQ 2
              #PH#
          THEN
              BEGIN 
              GENPERFORM; 
              PNATPTR = RWGET1(RGPARANAME1  #CURRRPTGRPTR#);
              GENPNREF #PNATPTR# ;
              GENTHRU;
              PNATPTR = RWGET1(RGPARANAME2  #CURRRPTGRPTR#);
              GENPNREF #PNATPTR# ;
              GENIF;
              DNATPTR =  RWGET1(PH$PRESENTED  #CURRIRTPTR#);
              GENDNREF #DNATPTR# ;
              GENEQUAL; 
              PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
              GENLIT1 #PLTPNTR# ; 
              GENMOVE;
              PLTPNTR =  RWGET1(IRTINTZERO  #CURRIRTPTR#);
              GENLIT0 #PLTPNTR# ; 
              GENTO;
              DNATPTR =  RWGET1(PH$PRESENTED  #CURRIRTPTR#);
              GENDNREF #DNATPTR# ;
              GENELSE;
              GOTO PAPART5; 
              END 
          IF RWGET1(RGEOTDELIM  #CURRRPTGRPTR#)  NQ 1 
          THEN
              BEGIN 
              CURRRPTGRPTR =  RWGET1(RGTLINK  #CURRRPTGRPTR#);
              GOTO PARGTLOOP; 
              END 
PAPART5:  
          GENMOVE;
          PLTPNTR =  RWGET1(HEADING  #CURRIRTPTR#); 
          GENILIT #PLTPNTR# ; 
          GENTO;
          DNATPTR =  RWGET1(SLN  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENPERFORM; 
          PNATPTR =  RWGET1(SPACING  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
  
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *#
  # * #   EXTRACE("G$PAGEA")                                       # * #
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *#
  
          RETURN; 
          END #G$PAGEA# 
          CONTROL EJECT;
ENTRY PROC G$BNG; 
          BEGIN 
  
          #THIS ROUTINE#
          #- GENERATES A COBOL  BODY-NEXT-GROUP  ROUTINE# 
          #IN CTEXT FORM# 
  
  
          #GENERATE#
          #BODY-NEXT-GROUP.#
          #GO TO ABSOLUTE  RELATIVE  NEXT-PAGE-ABS DEPENDING ON#
          #TYPE-OF-NEXT-GROUP.# 
          #ENTER C.RWMSG USING RWVRBLINE RWERR2#
          #GO TO B-N-G-EXIT.# 
  
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *#
  # * #   EPTRACE("G$BNG  ")                                       # * #
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *#
  
  
          PNATPTR =  RWGET1(BODYNEXTGRUP  #CURRIRTPTR#);
          GENPNDEF #PNATPTR# ;
          GENPERIOD;
          GENGO;
          GENTO;
          CURRIPCTPTR =  RWGET1(BASE$IPCT  #CURRIRTPTR#); 
          PNATPTR =  RWGET1(ABSOLUT$PNAT  #CURRIPCTPTR#); 
          GENPNREF #PNATPTR# ;
          PNATPTR =  RWGET1(RELATIV$PNAT  #CURRIPCTPTR#); 
          GENPNREF #PNATPTR# ;
          PNATPTR =  RWGET1(NP$ABS$PNAT  #CURRIPCTPTR#);
          GENPNREF #PNATPTR# ;
          GENDEPENDING; 
          GENON;
          DNATPTR =  RWGET1(TYPENEXTGRUP  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENPERIOD;
          GENENTER; 
          PLTPNTR = RWGET1(OSINCIDENCE #CURRIRTPTR#); 
          GENLIT #PLTPNTR#; 
          GENUSING; 
          DNATPTR = CCTRWVRBLINE; 
          GENDNREF #DNATPTR#; 
          PLTPNTR = RWGET1(RW2ERROR$PLT #CURRIPCTPTR#); 
          GENLIT #PLTPNTR#; 
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(BNG$EXIT  #CURRIRTPTR#);
          GENPNREF #PNATPTR# ;
          GENPERIOD;
  
          #GENERATE#
          #ABSOLUTE.# 
          #IF LINE-COUNTER  <  NEXT-GROUP-INTEGER#
          #ADD NEXT-GROUP-INTEGER  1  GIVING S-L-N# 
          #PERFORM SPACING# 
          #SUBTRACT 1 FROM LINE-COUNTER#
          #GO TO B-N-G-EXIT.# 
          #MOVE NEXT-GROUP-INTEGER   TO S-N-G-1#
          #ADD FOOTING  1  GIVING S-L-N#
          #PERFORM SPACING# 
          #SUBTRACT 1 FROM LINE-COUNTER#
          #GO TO B-N-G-EXIT.# 
  
          PNATPTR =  RWGET1(ABSOLUT$PNAT  #CURRIPCTPTR#); 
          GENPNDEF #PNATPTR# ;
          GENPERIOD;
          GENIF;
          DNATPTR =  RWGET1(IRTLCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENLESSTHAN;
          DNATPTR =  RWGET1(NEXTGROUPINT  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENADD; 
          DNATPTR =  RWGET1(NEXTGROUPINT  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
          GENLIT1 #PLTPNTR# ; 
          GENGIVING;
          DNATPTR =  RWGET1(SLN  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENPERFORM; 
          PNATPTR =  RWGET1(SPACING  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENSUBTRACT;
          PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
          GENLIT1 #PLTPNTR# ; 
          GENFROM;
          DNATPTR =  RWGET1(IRTLCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENGO;
          GENTO;
          PNATPTR =   RWGET1(BNG$EXIT  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
          GENMOVE;
          DNATPTR =  RWGET1(NEXTGROUPINT  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENTO;
          DNATPTR =  RWGET1(SNGIDNAT  #CURRIPCTPTR#); 
          GENDNREF #DNATPTR# ;
          GENADD; 
          PLTPNTR =  RWGET1(FOOTING  #CURRIRTPTR#); 
          GENILIT #PLTPNTR# ; 
          PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
          GENLIT1 #PLTPNTR# ; 
          GENGIVING;
          DNATPTR =  RWGET1(SLN  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENPERFORM; 
          PNATPTR =  RWGET1(SPACING  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENSUBTRACT;
          PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
          GENLIT1 #PLTPNTR# ; 
          GENFROM;
          DNATPTR =  RWGET1(IRTLCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(BNG$EXIT  #CURRIRTPTR#);
          GENPNREF #PNATPTR# ;
          GENPERIOD;
  
          #GENERATE#
          #RELATIVE.# 
          #ADD LINE-COUNTER NEXT-GROUP-INTEGER GIVING TRIAL-SUM#
          #IF TRIAL-SUM  < FOOTING# 
          #ADD 1  TRIAL-SUM GIVING S-L-N# 
          #PERFORM SPACING# 
          #SUBTRACT 1 FROM LINE-COUNTER#
          #GO TO B-N-G-EXIT.# 
  
          PNATPTR =  RWGET1(RELATIV$PNAT  #CURRIPCTPTR#); 
          GENPNDEF #PNATPTR# ;
          GENPERIOD;
          GENADD; 
          DNATPTR =  RWGET1(IRTLCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          DNATPTR =  RWGET1(NEXTGROUPINT  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENGIVING;
          DNATPTR =  RWGET1(TRIALSUMDNAT  #CURRIPCTPTR#); 
          GENDNREF #DNATPTR# ;
          GENIF;
          DNATPTR =  RWGET1(TRIALSUMDNAT  #CURRIPCTPTR#); 
          GENDNREF #DNATPTR# ;
          GENLESSTHAN;
          PLTPNTR =  RWGET1(FOOTING  #CURRIRTPTR#); 
          GENILIT #PLTPNTR# ; 
          GENADD; 
          PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
          GENLIT1 #PLTPNTR# ; 
          DNATPTR =  RWGET1(TRIALSUMDNAT  #CURRIPCTPTR#); 
          GENDNREF #DNATPTR# ;
          GENGIVING;
          DNATPTR =  RWGET1(SLN  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENPERFORM; 
          PNATPTR =  RWGET1(SPACING  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENSUBTRACT;
          PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
          GENLIT1 #PLTPNTR# ; 
          GENFROM;
          DNATPTR =  RWGET1(IRTLCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(BNG$EXIT  #CURRIRTPTR#);
          GENPNREF #PNATPTR# ;
          GENPERIOD;
  
          #GENERATE#
          #SPACE-TO-FOOTING.# 
          #ADD 1 FOOTING  GIVING  S-L-N#
          #PERFORM SPACING# 
          #SUBTRACT 1 FROM LINE-COUNTER#
          #GO TO  B-N-G-EXIT.#
          #NEXT-PAGE-ABS.#
          #GO TO SPACE-TO-FOOTING.# 
          #B-N-G-EXIT.# 
          #EXIT.# 
  
          PNATPTR =  RWGET1(SPACETO$FOOT  #CURRIPCTPTR#); 
          GENPNDEF #PNATPTR# ;
          GENPERIOD;
          GENADD; 
          PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
          GENLIT1 #PLTPNTR# ; 
          PLTPNTR =  RWGET1(FOOTING  #CURRIRTPTR#); 
          GENILIT #PLTPNTR# ; 
          GENGIVING;
          DNATPTR =  RWGET1(SLN  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENPERFORM; 
          PNATPTR =  RWGET1(SPACING  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENSUBTRACT;
          PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
          GENLIT1 #PLTPNTR# ; 
          GENFROM;
          DNATPTR =  RWGET1(IRTLCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(BNG$EXIT  #CURRIRTPTR#);
          GENPNREF #PNATPTR# ;
          GENPERIOD;
          PNATPTR =  RWGET1(NP$ABS$PNAT  #CURRIPCTPTR#);
          GENPNDEF #PNATPTR# ;
          GENPERIOD;
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(SPACETO$FOOT  #CURRIPCTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
          PNATPTR =  RWGET1(BNG$EXIT  #CURRIRTPTR#);
          GENPNDEF #PNATPTR# ;
          GENPERIOD;
          GENEXIT;
          GENPERIOD;
  
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *#
  # * #   EXTRACE("G$BNG  ")                                       # * #
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *#
  
          RETURN; 
          END #G$BNG# 
          CONTROL EJECT;
ENTRY PROC G$BPAGE; 
          BEGIN 
  
          #THIS ROUTINE#
          #- GENERATES A COBOL  BODY-PAGING  ROUTINE# 
          #IN CTEXT FORM# 
  
  
          #GENERATE#
          #BODY-PAGING.#
          #GO TO B-ABSOLUTE  B-RELATIVE B-NEXT-PAGE-ABS#
          #DEPENDING ON TYPE-OF-LINE-NUMBER#
          #ENTER C.RWMSG USING RWVRBLINE RWERR3#
          #GO TO B-P-EXIT.# 
  
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *#
  # * #   EPTRACE("G$BPAGE")                                       # * #
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *#
  
  
          PNATPTR =  RWGET1(BODYPAGING  #CURRIRTPTR#);
          GENPNDEF #PNATPTR# ;
          GENPERIOD;
          GENGO;
          GENTO;
          CURRIPCTPTR =  RWGET1(BASE$IPCT  #CURRIRTPTR#); 
          PNATPTR =  RWGET1(BABSOLUTPNAT  #CURRIPCTPTR#); 
          GENPNREF #PNATPTR# ;
          PNATPTR =  RWGET1(BRELATIVPNAT  #CURRIPCTPTR#); 
          GENPNREF #PNATPTR# ;
          PNATPTR =  RWGET1(B$NP$ABSPNAT  #CURRIPCTPTR#); 
          GENPNREF #PNATPTR# ;
          GENDEPENDING; 
          GENON;
          DNATPTR =  RWGET1(TYPE$LINENUM  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENENTER; 
          PLTPNTR = RWGET1(OSINCIDENCE #CURRIRTPTR#); 
          GENLIT #PLTPNTR#; 
          GENUSING; 
          DNATPTR = CCTRWVRBLINE; 
          GENDNREF #DNATPTR#; 
          PLTPNTR = RWGET1(RW3ERROR$PLT #CURRIPCTPTR#); 
          GENLIT #PLTPNTR#; 
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(BP$EXIT  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
  
          #GENERATE#
          #B-ABSOLUTE.# 
          #IF LINE-COUNTER < FIRST-LINE-NUMBER# 
          #MOVE FIRST-LINE-NUMBER TO S-L-N# 
          #PERFORM SPACING# 
          #GO TO BP-EXIT.#
          #BP-A1.#
          #PERFORM PAGE-ADVANCE.# 
          #BP-A2.#
          #IF S-N-G-I  =  0 MOVE FIRST-LINE-NUMBER TO S-L-N#
          #PERFORM SPACING# 
          #GO TO BP-EXIT.#
          #ADD 1  S-N-G-I  GIVING S-L-N#
          #PERFORM SPACING# 
          #SUBTRACT 1 FROM LINE-COUNTER#
          #MOVE 0 TO S-N-G-I# 
          #GO TO B-ABSOLUTE.# 
  
          PNATPTR =  RWGET1(BABSOLUTPNAT  #CURRIPCTPTR#); 
          GENPNDEF #PNATPTR# ;
          GENPERIOD;
          GENIF;
          DNATPTR =  RWGET1(IRTLCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENLESSTHAN;
          DNATPTR =  RWGET1(FIRSTLINENUM  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENMOVE;
          DNATPTR =  RWGET1(FIRSTLINENUM  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENTO;
          DNATPTR =  RWGET1(SLN  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENPERFORM; 
          PNATPTR =  RWGET1(SPACING  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(BP$EXIT  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
          PNATPTR =  RWGET1(BP$A1$PNAT  #CURRIPCTPTR#); 
          GENPNDEF #PNATPTR# ;
          GENPERIOD;
          GENPERFORM; 
          PNATPTR =  RWGET1(PAGEADVANCE  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
          PNATPTR =  RWGET1(BP$A2$PNAT  #CURRIPCTPTR#); 
          GENPNDEF #PNATPTR# ;
          GENPERIOD;
          GENIF;
          DNATPTR =  RWGET1(SNGIDNAT  #CURRIPCTPTR#); 
          GENDNREF #DNATPTR# ;
          GENEQUAL; 
          PLTPNTR =  RWGET1(IRTINTZERO  #CURRIRTPTR#);
          GENLIT0 #PLTPNTR# ; 
          GENMOVE;
          DNATPTR =  RWGET1(FIRSTLINENUM  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENTO;
          DNATPTR =  RWGET1(SLN  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENPERFORM; 
          PNATPTR =  RWGET1(SPACING  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(BP$EXIT  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
          GENADD; 
          PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
          GENLIT1 #PLTPNTR# ; 
          DNATPTR =  RWGET1(SNGIDNAT  #CURRIPCTPTR#); 
          GENDNREF #DNATPTR# ;
          GENGIVING;
          DNATPTR =  RWGET1(SLN  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENPERFORM; 
          PNATPTR =  RWGET1(SPACING  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENSUBTRACT;
          PLTPNTR =   RWGET1(IRTINTONE  #CURRIRTPTR#);
          GENLIT1 #PLTPNTR# ; 
          GENFROM;
          DNATPTR =  RWGET1(IRTLCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENMOVE;
          PLTPNTR =   RWGET1(IRTINTZERO  #CURRIRTPTR#); 
          GENLIT0 #PLTPNTR# ; 
          GENTO;
          DNATPTR =  RWGET1(SNGIDNAT  #CURRIPCTPTR#); 
          GENDNREF #DNATPTR# ;
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(BABSOLUTPNAT  #CURRIPCTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
  
          #GENERATE#
          #B-RELATIVE.# 
          #IF PRESENTED-ON-THIS-PAGE-SWITCH NOT = 0#
          #ADD LENGTH-REPORT-GROUP LINE-COUNTER GIVING TRIAL-SUM# 
          #IF TRIAL-SUM > LOWER-LIMIT#
          #PERFORM PAGE-ADVANCE#
          #GO TO B-RELATIVE#
          #ELSE GO TO C-P.# 
          #IF S-N-G-I  = 0  GO TO C-P.# 
          #ADD 1  S-N-G-I  GIVING  S-L-N# 
          #PERFORM SPACING# 
          #SUBTRACT 1 FROM LINE-COUNTER#
          #MOVE 0 TO S-N-G-I# 
          #ADD LINE-COUNTER  1 LENGTH-REPORT-GROUP GIVING TRIAL-SUM#
          #SUBTRACT FIRST-LINE-NUMBER FROM TRIAL-SUM.#
          #IF TRIAL-SUM > LOWER-LIMIT#
          #PERFORM PAGE-ADVANCE#
          #GO TO C-P.#
          #C-P.#
          #IF LINE-COUNTER <  FIRST-DETAIL# 
          #MOVE FIRST-DETAIL TO S-L-N#
          #PERFORM SPACING# 
          #GO TO BP-EXIT.#
          #IF PRESENTED-ON-THIS-PAGE-SWITCH =  0# 
          #ADD 1  TO  LINE-COUNTER# 
          #ELSE ADD FIRST-LINE-NUMBER LINE-COUNTER GIVING S-L-N#
          #PERFORM SPACING.#
          #GO TO BP-EXIT.#
  
          PNATPTR =  RWGET1(BRELATIVPNAT  #CURRIPCTPTR#); 
          GENPNDEF #PNATPTR# ;
          GENPERIOD;
          GENIF;
          DNATPTR =  RWGET1(POTP$SWITCH  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENNOT; 
          GENEQUAL; 
          PLTPNTR =  RWGET1(IRTINTZERO  #CURRIRTPTR#);
          GENLIT0 #PLTPNTR# ; 
          GENADD; 
          DNATPTR =  RWGET1(LENGTH$RG  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          DNATPTR =  RWGET1(IRTLCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENGIVING;
          DNATPTR =  RWGET1(TRIALSUMDNAT  #CURRIPCTPTR#); 
          GENDNREF #DNATPTR# ;
          GENIF;
          DNATPTR =  RWGET1(TRIALSUMDNAT  #CURRIPCTPTR#); 
          GENDNREF #DNATPTR# ;
          GENGREATTHAN; 
          DNATPTR =  RWGET1(LOWER$LIMIT  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENPERFORM; 
          PNATPTR =  RWGET1(PAGEADVANCE  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(BRELATIVPNAT  #CURRIPCTPTR#); 
          GENPNREF #PNATPTR# ;
          GENELSE;
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(C$P$PNAT  #CURRIPCTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
          GENIF;
          DNATPTR =  RWGET1(SNGIDNAT  #CURRIPCTPTR#); 
          GENDNREF #DNATPTR# ;
          GENEQUAL; 
          PLTPNTR =  RWGET1(IRTINTZERO  #CURRIRTPTR#);
          GENLIT0 #PLTPNTR# ; 
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(C$P$PNAT  #CURRIPCTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
          GENADD; 
          PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
          GENLIT1 #PLTPNTR# ; 
          DNATPTR =  RWGET1(SNGIDNAT  #CURRIPCTPTR#); 
          GENDNREF #DNATPTR# ;
          GENGIVING;
          DNATPTR =  RWGET1(SLN  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENPERFORM; 
          PNATPTR =  RWGET1(SPACING  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENSUBTRACT;
          PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
          GENLIT1 #PLTPNTR# ; 
          GENFROM;
          DNATPTR =  RWGET1(IRTLCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENMOVE;
          PLTPNTR =  RWGET1(IRTINTZERO  #CURRIRTPTR#);
          GENLIT0 #PLTPNTR# ; 
          GENTO;
          DNATPTR =  RWGET1(SNGIDNAT  #CURRIPCTPTR#); 
          GENDNREF #DNATPTR# ;
          GENADD; 
          DNATPTR =  RWGET1(IRTLCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
          GENLIT1 #PLTPNTR# ; 
          DNATPTR =  RWGET1(LENGTH$RG  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENGIVING;
          DNATPTR =  RWGET1(TRIALSUMDNAT  #CURRIPCTPTR#); 
          GENDNREF #DNATPTR# ;
          GENSUBTRACT;
          DNATPTR =  RWGET1(FIRSTLINENUM  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENFROM;
          DNATPTR =  RWGET1(TRIALSUMDNAT  #CURRIPCTPTR#); 
          GENDNREF #DNATPTR# ;
          GENPERIOD;
          GENIF;
          DNATPTR =  RWGET1(TRIALSUMDNAT  #CURRIPCTPTR#); 
          GENDNREF #DNATPTR# ;
          GENGREATTHAN; 
          DNATPTR =  RWGET1(LOWER$LIMIT  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENPERFORM; 
          PNATPTR =  RWGET1(PAGEADVANCE  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(C$P$PNAT  #CURRIPCTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
          PNATPTR =  RWGET1(C$P$PNAT  #CURRIPCTPTR#); 
          GENPNDEF #PNATPTR# ;
          GENPERIOD;
          GENIF;
          DNATPTR =  RWGET1(IRTLCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENLESSTHAN;
          PLTPNTR =  RWGET1(IRTFIRSTDETL  #CURRIRTPTR#);
          GENILIT #PLTPNTR# ; 
          GENMOVE;
          PLTPNTR =  RWGET1(IRTFIRSTDETL  #CURRIRTPTR#);
          GENILIT #PLTPNTR# ; 
          GENTO;
          DNATPTR =  RWGET1(SLN  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENPERFORM; 
          PNATPTR =  RWGET1(SPACING  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(BP$EXIT  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
          GENIF;
          DNATPTR =  RWGET1(POTP$SWITCH  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENEQUAL; 
          PLTPNTR =  RWGET1(IRTINTZERO  #CURRIRTPTR#);
          GENLIT0 #PLTPNTR# ; 
          GENADD; 
          PLTPNTR =  RWGET1(IRTINTONE  #CURRIRTPTR#); 
          GENLIT1 #PLTPNTR# ; 
          GENTO;
          DNATPTR =  RWGET1(IRTLCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENELSE;
          GENADD; 
          DNATPTR =  RWGET1(FIRSTLINENUM  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          DNATPTR =  RWGET1(IRTLCINDEX  #CURRIRTPTR#);
          GENDNREF #DNATPTR# ;
          GENGIVING;
          DNATPTR =  RWGET1(SLN  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENPERFORM; 
          PNATPTR =  RWGET1(SPACING  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(BP$EXIT  #CURRIRTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
  
          #GENERATE#
          #B-NEXT-PAGE-ABS.#
          #IF PRESENTED-ON-THIS-PAGE-SWITCH = 0#
          #GO TO BP-A2.#
          #GO TO BP-A1.#
          #BP-EXIT.#
          #EXIT.# 
  
          PNATPTR =  RWGET1(B$NP$ABSPNAT  #CURRIPCTPTR#); 
          GENPNDEF #PNATPTR# ;
          GENPERIOD;
          GENIF;
          DNATPTR =  RWGET1(POTP$SWITCH  #CURRIRTPTR#); 
          GENDNREF #DNATPTR# ;
          GENEQUAL; 
          PLTPNTR =  RWGET1(IRTINTZERO  #CURRIRTPTR#);
          GENLIT0 #PLTPNTR# ; 
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(BP$A2$PNAT  #CURRIPCTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
          GENGO;
          GENTO;
          PNATPTR =  RWGET1(BP$A1$PNAT  #CURRIPCTPTR#); 
          GENPNREF #PNATPTR# ;
          GENPERIOD;
          PNATPTR =  RWGET1(BP$EXIT  #CURRIRTPTR#); 
          GENPNDEF #PNATPTR# ;
          GENPERIOD;
          GENEXIT;
          GENPERIOD;
  
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *#
  # * #   EXTRACE("G$BPAGE")                                       # * #
  # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *#
  
          RETURN; 
          END #G$BPAGE# 
          END #PAGERTS# 
          TERM
