*COMDECK  RPTRT40 
00001 ******************************************************************09/22/77
00002 *                                                                 RPTRT40 
00003 *        FORMAT CATEGORY 140 DETAIL LINE                             LV001
00004 *            CATEGORY 140 = RESPONSIBILITY                        RPTRT40 
00005 *                                                                 RPTRT40 
00006 ******************************************************************RPTRT40 
00007  20000-FMT-CAT-140.                                               RPTRT40 
00008      MOVE SPACES TO CAT40140-LINE1.                               RPTRT40 
00009 *                                                                 RPTRT40 
00010 *    FORMAT STATUS FIELD                                          RPTRT40 
00011 *                                                                 RPTRT40 
00012  20005-FMT-FLD05.                                                    CL**2
00013      IF RESP-R-STATUS    EQUAL TO SPACES                          RPTRT40 
00014          GO TO 20030-FMT-FLD10.                                   RPTRT40 
00015      MOVE FLD4014005-HCON TO FLD4014005-HDG.                      RPTRT40 
00016          GO TO 20015-INTERPRET-CODE.                              RPTRT40 
00017  20010-JUST-CODE.                                                 RPTRT40 
00018      MOVE RESP-R-STATUS      TO FLD4014005-POS1.                  RPTRT40 
00019          GO TO 20030-FMT-FLD10.                                   RPTRT40 
00020  20015-INTERPRET-CODE.                                            RPTRT40 
00021      MOVE 01 TO SUB3.                                             RPTRT40 
00022  20020-NEXT-CODE-CK.                                              RPTRT40 
00023      IF FLD4014005-CODES (SUB3) EQUAL TO "9"                      RPTRT40 
00024          GO TO 20010-JUST-CODE.                                   RPTRT40 
00025      IF FLD4014005-CODES (SUB3) EQUAL TO RESP-R-STATUS            RPTRT40 
00026          GO TO 20025-EXTRACT-MNG.                                 RPTRT40 
00027      ADD 1 TO SUB3.                                               RPTRT40 
00028      GO TO 20020-NEXT-CODE-CK.                                    RPTRT40 
00029  20025-EXTRACT-MNG.                                               RPTRT40 
00030      MOVE FLD4014005-MNG (SUB3) TO FLD4014005-VAL.                RPTRT40 
00031 *                                                                 RPTRT40 
00032 *    FORMAT FUNCTION FIELD                                        RPTRT40 
00033 *                                                                 RPTRT40 
00034  20030-FMT-FLD10.                                                 RPTRT40 
00035      IF RESP-R-FUNC      EQUAL TO SPACES                          RPTRT40 
00036          GO TO 20055-FMT-FLD25.                                   RPTRT40 
00037      MOVE FLD4014010-HCON TO FLD4014010-HDG.                      RPTRT40 
00038      GO TO 20040-INTERPRET-CODE.                                  RPTRT40 
00039  20035-JUST-CODE.                                                 RPTRT40 
00040      MOVE RESP-R-FUNC     TO FLD4014010-POS1.                     RPTRT40 
00041          GO TO 20055-FMT-FLD25.                                   RPTRT40 
00042  20040-INTERPRET-CODE.                                            RPTRT40 
00043      MOVE 01 TO SUB3.                                             RPTRT40 
00044  20045-NEXT-CODE-CK.                                              RPTRT40 
00045      IF FLD4014010-CODES (SUB3) EQUAL TO "9"                      RPTRT40 
00046          GO TO 20035-JUST-CODE.                                   RPTRT40 
00047      IF FLD4014010-CODES (SUB3) EQUAL TO RESP-R-FUNC              RPTRT40 
00048          GO TO 20050-EXTRACT-MNG.                                 RPTRT40 
00049      ADD 1 TO SUB3.                                               RPTRT40 
00050      GO TO 20045-NEXT-CODE-CK.                                    RPTRT40 
00051  20050-EXTRACT-MNG.                                               RPTRT40 
00052      MOVE FLD4014010-MNG (SUB3) TO FLD4014010-VAL.                   CL**2
00053 *                                                                 RPTRT40 
00054 *    FORMAT PHONE FIELD                                           RPTRT40 
00055 *                                                                 RPTRT40 
00056  20055-FMT-FLD25.                                                 RPTRT40 
00057      IF RESP-R-PHONE     EQUAL TO SPACES                          RPTRT40 
00058          GO TO 20060-FMT-FLD35.                                   RPTRT40 
00059      MOVE FLD4014025-HCON TO FLD4014025-HDG                       RPTRT40 
00060      MOVE RESP-R-PHONE    TO FLD4014025-VAL.                      RPTRT40 
00061 *                                                                 RPTRT40 
00062 *    FORMAT MAIL FIELD                                            RPTRT40 
00063 *                                                                 RPTRT40 
00064  20060-FMT-FLD35.                                                    CL**2
00065      IF RESP-R-MAIL    EQUAL TO SPACES                            RPTRT40 
00066          GO TO 20065-OUTPUT-LN1.                                  RPTRT40 
00067      MOVE FLD4014035-HCON TO FLD4014035-HDG.                      RPTRT40 
00068      MOVE RESP-R-MAIL     TO FLD4014035-VAL.                      RPTRT40 
00069 *                                                                 RPTRT40 
00070 *    OUTPUT DISPLAY LINE                                          RPTRT40 
00071 *                                                                 RPTRT40 
00072  20065-OUTPUT-LN1.                                                RPTRT40 
00073      IF CAT40140-LINE1 EQUAL TO SPACES                            RPTRT40 
00074          GO TO 20070-FMT-FLD15.                                   RPTRT40 
00075      MOVE CAT40140-LINE1 TO STDRPT-70CHR.                         RPTRT40 
00076      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT40 
00077 *                                                                 RPTRT40 
00078 *    FORMAT 2ND DISPLAY LINE                                      RPTRT40 
00079 *                                                                 RPTRT40 
00080  20070-FMT-FLD15.                                                 RPTRT40 
00081      MOVE SPACES TO CAT40140-LINE2.                               RPTRT40 
00082 *    FORMAT DEPARTMENT FIELD                                      RPTRT40 
00083 *                                                                 RPTRT40 
00084      IF RESP-R-DEPT    EQUAL TO SPACES                            RPTRT40 
00085          GO TO 20075-FMT-FLD40.                                   RPTRT40 
00086      MOVE FLD4014015-HCON TO FLD4014015-HDG.                      RPTRT40 
00087      MOVE RESP-R-DEPT     TO FLD4014015-VAL.                      RPTRT40 
00088 *                                                                 RPTRT40 
00089 *    FORMAT DATE FIELD                                            RPTRT40 
00090 *                                                                 RPTRT40 
00091  20075-FMT-FLD40.                                                 RPTRT40 
00092      IF RESP-R-DATE    EQUAL TO SPACES                            RPTRT40 
00093          GO TO 20080-OUTPUT-LN2.                                  RPTRT40 
00094      MOVE FLD4014040-HCON TO FLD4014040-HDG.                      RPTRT40 
00095      MOVE RESP-R-DATE     TO FLD4014040-VAL.                      RPTRT40 
00096  20080-OUTPUT-LN2.                                                RPTRT40 
00097      IF CAT40140-LINE2 EQUAL TO SPACES                            RPTRT40 
00098          GO TO 20085-FMT-FLD20.                                   RPTRT40 
00099      MOVE CAT40140-LINE2 TO STDRPT-70CHR.                         RPTRT40 
00100      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT40 
00101 *                                                                 RPTRT40 
00102 *    FORMAT 3RD DISPLAY LINE                                      RPTRT40 
00103 *                                                                 RPTRT40 
00104  20085-FMT-FLD20.                                                 RPTRT40 
00105      MOVE SPACES TO CAT40140-LINE3.                               RPTRT40 
00106 *                                                                 RPTRT40 
00107 *    FORMAT PERSON FIELD                                          RPTRT40 
00108 *                                                                 RPTRT40 
00109      IF RESP-R-PERSON    EQUAL TO SPACES                          RPTRT40 
00110          GO TO 20090-FMT-FLD30.                                   RPTRT40 
00111      MOVE FLD4014020-HCON TO FLD4014020-HDG.                      RPTRT40 
00112      MOVE RESP-R-PERSON   TO FLD4014020-VAL.                      RPTRT40 
00113 *                                                                 RPTRT40 
00114 *    FORMAT TITLE FIELD                                           RPTRT40 
00115 *                                                                 RPTRT40 
00116  20090-FMT-FLD30.                                                 RPTRT40 
00117      IF RESP-R-TITLE    EQUAL TO SPACES                           RPTRT40 
00118          GO TO 20095-OUTPUT-LN3.                                  RPTRT40 
00119      MOVE FLD4014030-HCON TO FLD4014030-HDG.                      RPTRT40 
00120      MOVE RESP-R-TITLE     TO FLD4014030-VAL.                     RPTRT40 
00121  20095-OUTPUT-LN3.                                                RPTRT40 
00122      IF CAT40140-LINE3 EQUAL TO SPACES                            RPTRT40 
00123          GO TO 20099-FMT-CAT140-XIT.                              RPTRT40 
00124      MOVE CAT40140-LINE3 TO STDRPT-70CHR.                         RPTRT40 
00125      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT40 
00126  20099-FMT-CAT140-XIT.                                            RPTRT40 
00127      EXIT.                                                        RPTRT40 
00128                                                                    RPTRT40
00129 ******************************************************************RPTRT40 
00130 *                                                                 RPTRT40 
00131 *    FORMAT CATEGORY 200 DETAIL LINE                              RPTRT40 
00132 *        CATEGORY 200 = NAMES                                     RPTRT40 
00133 *                                                                 RPTRT40 
00134 ******************************************************************RPTRT40 
00135  21200-FMT-CAT200.                                                RPTRT40 
00136      MOVE SPACES TO CAT40200-LINE1.                               RPTRT40 
00137 *                                                                 RPTRT40 
00138 *    FORMAT REPORT NAME FIELD                                     RPTRT40 
00139 *                                                                 RPTRT40 
00140  21205-FMT-FLD05.                                                 RPTRT40 
00141      IF NAME-R-REPORT EQUAL TO SPACES                             RPTRT40 
00142          GO TO 21210-FMT-FLD10.                                   RPTRT40 
00143      MOVE FLD4020005-HCON TO FLD4020005-HDG.                      RPTRT40 
00144      MOVE NAME-R-REPORT   TO FLD4020005-VAL.                      RPTRT40 
00145 *                                                                 RPTRT40 
00146 *    FORMAT REPORT NUMBER FIELD.                                  RPTRT40 
00147 *                                                                 RPTRT40 
00148  21210-FMT-FLD10.                                                 RPTRT40 
00149      IF NAME-R-REPORT-NO EQUAL TO SPACES                          RPTRT40 
00150          GO TO 21220-OUTPUT-LN1.                                  RPTRT40 
00151      MOVE FLD4020010-HCON TO FLD4020010-HDG.                      RPTRT40 
00152      MOVE NAME-R-REPORT-NO TO FLD4020010-VAL.                     RPTRT40 
00153  21220-OUTPUT-LN1.                                                RPTRT40:  
00154      IF CAT40200-LINE1 EQUAL TO SPACES                            RPTRT40 
00155          GO TO 21230-FMT-FLD15.                                   RPTRT40 
00156      MOVE CAT40200-LINE1 TO STDRPT-70CHR.                         RPTRT40 
00157      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT40 
00158 ******************************************************************RPTRT40 
00159 *    FORMAT 2ND DISPLAY LINE                                      RPTRT40 
00160 ******************************************************************RPTRT40 
00161  21230-FMT-FLD15.                                                 RPTRT40 
00162      MOVE SPACES TO CAT40200-LINE2.                               RPTRT40 
00163 *    FORMAT FORM NAME FIELD                                       RPTRT40 
00164      IF NAME-R-FORM EQUAL TO SPACES                               RPTRT40 
00165          GO TO 21299-FMT-CAT200-XIT.                              RPTRT40 
00166      MOVE FLD4020015-HCON   TO  FLD4020015-HDG.                      CL**2
00167      MOVE NAME-R-FORM       TO  FLD4020015-VAL.                      CL**2
00168  21240-OUTPUT-LINE2.                                              RPTRT40 
00169      IF CAT40200-LINE2 EQUAL TO SPACES                            RPTRT40 
00170          GO TO 21299-FMT-CAT200-XIT.                              RPTRT40 
00171      MOVE CAT40200-LINE2 TO STDRPT-70CHR.                         RPTRT40 
00172      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT40 
00173  21299-FMT-CAT200-XIT.                                            RPTRT40 
00174      EXIT.                                                        RPTRT40 
00175                                                                    RPTRT40
00176 ******************************************************************RPTRT40 
00177 *                                                                 RPTRT40 
00178 *    FORMAT CATEGORY 210 DETAIL LINE                              RPTRT40 
00179 *        CATEGORY 210 = ATTRIBUTES                                RPTRT40 
00180 *                                                                 RPTRT40 
00181 ******************************************************************RPTRT40 
00182  21400-FMT-CAT210.                                                RPTRT40 
00183      MOVE SPACES TO CAT40210-LINE1.                               RPTRT40 
00184 *                                                                 RPTRT40 
00185 *    FORMAT ATTR-R-MEDIUM FIELD                                   RPTRT40 
00186 *        IF CODE OTHER THAN 0-9 FIND MEANING.                     RPTRT40 
00187  21410-FMT-FLD05.                                                 RPTRT40 
00188      IF ATTR-R-MEDIUM EQUAL TO SPACES                             RPTRT40 
00189          GO TO 21470-FMT-FLD10.                                   RPTRT40 
00190      MOVE FLD4021005-HCON TO FLD4021005-HDG.                      RPTRT40 
00191          GO TO 21430-INTERPRET-CODE.                              RPTRT40 
00192  21420-JUST-CODE.                                                 RPTRT40 
00193      MOVE ATTR-R-MEDIUM TO FLD4021005-POS1.                       RPTRT40 
00194      GO TO 21490-OUTPUT-LN1.                                      RPTRT40 
00195  21430-INTERPRET-CODE.                                            RPTRT40 
00196      MOVE 01 TO SUB3.                                             RPTRT40 
00197  21440-NEXT-CODE-CK.                                              RPTRT40 
00198      IF FLD4021005-CODES (SUB3) EQUAL TO "9"                      RPTRT40 
00199          GO TO 21420-JUST-CODE.                                   RPTRT40 
00200      IF FLD4021005-CODES (SUB3) EQUAL TO ATTR-R-MEDIUM            RPTRT40 
00201          GO TO 21450-EXTRACT-MNG.                                 RPTRT40 
00202      ADD 1 TO SUB3.                                               RPTRT40 
00203      GO TO 21440-NEXT-CODE-CK.                                    RPTRT40 
00204  21450-EXTRACT-MNG.                                               RPTRT40 
00205      MOVE FLD4021005-MNG (SUB3) TO FLD4021005-VAL.                RPTRT40 
00206 *                                                                 RPTRT40 
00207 *    FORMAT ATTR-R-PARTS FIELD                                    RPTRT40 
00208 *                                                                 RPTRT40 
00209  21470-FMT-FLD10.                                                 RPTRT40 
00210      IF ATTR-R-PARTS EQUAL TO SPACES                              RPTRT40 
00211          GO TO 21490-OUTPUT-LN1.                                  RPTRT40 
00212      MOVE FLD4021010-HCON TO FLD4021010-HDG.                      RPTRT40 
00213      MOVE ATTR-R-PARTS TO FLD4021010-VAL.                         RPTRT40 
00214  21490-OUTPUT-LN1.                                                   CL**2
00215      IF CAT40210-LINE1 EQUAL TO SPACES                            RPTRT40 
00216          GO TO 21499-FMT-CAT210-XIT.                                 CL**2
00217      MOVE CAT40210-LINE1 TO STDRPT-70CHR.                         RPTRT40 
00218      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT40 
00219  21499-FMT-CAT210-XIT.                                               CL**2
00220      EXIT.                                                        RPTRT40 
00221                                                                    RPTRT40
00222 ******************************************************************RPTRT40 
00223 *                                                                 RPTRT40 
00224 *    FORMAT CATEGORY 240 DETAIL LINE                              RPTRT40 
00225 *        CATEGORY 240= FLOW                                       RPTRT40 
00226 *                                                                 RPTRT40 
00227 ******************************************************************RPTRT40 
00228  21600-FMT-CAT240.                                                RPTRT40 
00229      MOVE SPACES TO CAT40240-LINE1.                               RPTRT40 
00230 *                                                                 RPTRT40 
00231 *    FORMAT DEPARTMENT FIELD                                      RPTRT40 
00232 *                                                                 RPTRT40 
00233  21610-FMT-FLD05.                                                    CL**2
00234      IF FLOW-R-DEPT EQUAL SPACES                                  RPTRT40 
00235          GO TO 21615-OUTPUT-LN1.                                  RPTRT40 
00236      MOVE FLD4024005-HCON TO FLD4024005-HDG.                      RPTRT40 
00237      MOVE FLOW-R-DEPT TO FLD4024005-VAL.                          RPTRT40 
00238  21615-OUTPUT-LN1.                                                RPTRT40 
00239      IF CAT40240-LINE1 EQUAL TO SPACES                            RPTRT40 
00240          GO TO 21620-FMT-FLD10.                                   RPTRT40 
00241      MOVE CAT40240-LINE1 TO STDRPT-70CHR.                         RPTRT40 
00242      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT40 
00243 *                                                                 RPTRT40 
00244 *    FORMAT 2ND DISPLAY LINE                                      RPTRT40 
00245 *                                                                 RPTRT40 
00246  21620-FMT-FLD10.                                                 RPTRT40 
00247      MOVE SPACES TO CAT40240-LINE2.                               RPTRT40 
00248 *                                                                 RPTRT40 
00249 *    FORMAT PERSON FIELD                                          RPTRT40 
00250 *                                                                 RPTRT40 
00251  21625-FMT-FLD10.                                                 RPTRT40 
00252      IF FLOW-R-PERSON EQUAL TO SPACES                             RPTRT40 
00253          GO TO 21630-FMT-FLD15.                                   RPTRT40 
00254      MOVE FLD4024010-HCON TO FLD4024010-HDG.                      RPTRT40 
00255      MOVE FLOW-R-PERSON   TO FLD4024010-VAL.                      RPTRT40 
00256  21630-FMT-FLD15.                                                 RPTRT40 
00257      IF FLOW-R-PHONE EQUAL TO SPACES                              RPTRT40 
00258          GO TO 21635-OUTPUT-LN2.                                  RPTRT40 
00259      MOVE FLD4024015-HCON TO FLD4024015-HDG.                      RPTRT40 
00260      MOVE FLOW-R-PHONE TO FLD4024015-VAL.                         RPTRT40 
00261  21635-OUTPUT-LN2.                                                RPTRT40 
00262      IF CAT40240-LINE2 EQUAL TO SPACES                            RPTRT40 
00263          GO TO 21640-FMT-FLD50.                                   RPTRT40 
00264      MOVE CAT40240-LINE2 TO STDRPT-70CHR.                         RPTRT40 
00265      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT40 
00266 *                                                                 RPTRT40 
00267 *    FORMAT 3RD DISPLAY LINE                                      RPTRT40 
00268 *                                                                 RPTRT40 
00269  21640-FMT-FLD50.                                                 RPTRT40 
00270      MOVE SPACES TO CAT40240-LINE3.                               RPTRT40 
00271 *    FORMAT DAY FIELD                                             RPTRT40 
00272      IF FLOW-R-DIST-DAY EQUAL TO SPACES                              CL**2
00273          GO TO 21645-FMT-FLD20.                                   RPTRT40 
00274      MOVE FLD4024050-HCON  TO FLD4024050-HDG.                        CL**2
00275      MOVE FLOW-R-DIST-DAY     TO FLD4024050-VAL.                     CL**2
00276  21645-FMT-FLD20.                                                 RPTRT40 
00277 *    FORMAT COPIES FIELD                                          RPTRT40 
00278      IF FLOW-R-COPIES EQUAL TO SPACES                             RPTRT40 
00279          GO TO 21650-FMT-FLD55.                                   RPTRT40 
00280      MOVE FLD4024020-HCON TO  FLD4024020-HDG.                     RPTRT40 
00281      MOVE FLOW-R-COPIES   TO  FLD4024020-VAL.                     RPTRT40 
00282  21650-FMT-FLD55.                                                 RPTRT40 
00283 *    FORMAT RETENSION FIELD                                       RPTRT40 
00284      IF FLOW-R-RETAIN-TIME EQUAL TO SPACES                        RPTRT40 
00285          GO TO 21655-FMT-FLD60.                                   RPTRT40 
00286      MOVE FLD4024055-HCON TO FLD4024055-HDG.                      RPTRT40 
00287      MOVE FLOW-R-RETAIN-TIME TO FLD4024055-VAL.                   RPTRT40 
00288  21655-FMT-FLD60.                                                 RPTRT40 
00289      IF FLOW-R-RETAIN-UNIT EQUAL TO SPACES                        RPTRT40 
00290          GO TO 21660-OUTPUT-LN3.                                  RPTRT40 
00291      MOVE FLD4024055-HCON  TO FLD4024055-HDG.                        CL**2
00292          GO TO 21657-INTERPRET-CODE.                              RPTRT40 
00293  21656-JUST-CODE.                                                 RPTRT40 
00294      MOVE FLOW-R-RETAIN-UNIT TO FLD4024060-POS1.                  RPTRT40 
00295          GO TO 21660-OUTPUT-LN3.                                  RPTRT40 
00296  21657-INTERPRET-CODE.                                            RPTRT40 
00297      MOVE 01 TO SUB3.                                             RPTRT40 
00298  21658-NEXT-CODE-CK.                                              RPTRT40 
00299      IF FLD4024060-CODES (SUB3) EQUAL TO "9"                      RPTRT40 
00300          GO TO 21656-JUST-CODE.                                   RPTRT40 
00301      IF FLD4024060-CODES (SUB3) EQUAL TO FLOW-R-RETAIN-UNIT          CL**2
00302          GO TO 21659-EXTRACT-MNG.                                 RPTRT40 
00303      ADD 1 TO SUB3.                                               RPTRT40 
00304          GO TO 21658-NEXT-CODE-CK.                                RPTRT40 
00305  21659-EXTRACT-MNG.                                               RPTRT40 
00306      MOVE FLD4024060-MNG (SUB3) TO FLD4024060-VAL.                RPTRT40 
00307  21660-OUTPUT-LN3.                                                RPTRT40 
00308      IF CAT40240-LINE3 EQUAL TO SPACES                            RPTRT40 
00309      GO TO 21665-FMT-FLDMODE.                                     RPTRT40 
00310      MOVE CAT40240-LINE3 TO STDRPT-70CHR.                         RPTRT40 
00311      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT40 
00312 *                                                                 RPTRT40 
00313 *    FORMAT 4TH DISPLAY LINE                                      RPTRT40 
00314 *                                                                 RPTRT40 
00315  21665-FMT-FLDMODE.                                               RPTRT40 
00316      MOVE SPACES TO CAT40240-LINE4.                                  CL**2
00317      IF FLOW-R-MODE EQUAL TO SPACES                               RPTRT40 
00318          GO TO 21698-OUTPUT-LN4.                                  RPTRT40 
00319      MOVE FLD40240MODE-HCON TO FLD40240MODE-HDG.                  RPTRT40 
00320              GO TO 21666-FMT-FLD25.                                  CL**2
00321  21666-FMT-FLD25.                                                 RPTRT40 
00322      IF FLOW-R-MODE1 EQUAL TO SPACES                              RPTRT40 
00323          GO TO 21671-FMT-FLD30.                                      CL**2
00324      MOVE FLD4024025-HCON  TO FLD4024025-HDG.                        CL**2
00325          GO TO 21668-INTERPRET-CODE.                              RPTRT40 
00326  21667-JUST-CODE.                                                 RPTRT40 
00327      MOVE FLOW-R-MODE1 TO FLD4024025-POS1.                        RPTRT40 
00328          GO TO 21671-FMT-FLD30.                                   RPTRT40 
00329  21668-INTERPRET-CODE.                                            RPTRT40 
00330      MOVE 01 TO SUB3.                                             RPTRT40 
00331  21669-NEXT-CODE-CK.                                              RPTRT40 
00332      IF FLD40240MODE-CODES (SUB3) EQUAL TO "9"                    RPTRT40 
00333          GO TO 21667-JUST-CODE.                                   RPTRT40 
00334      IF FLD40240MODE-CODES (SUB3) EQUAL TO FLOW-R-MODE1           RPTRT40 
00335          GO TO 21670-EXTRACT-MNG.                                 RPTRT40 
00336      ADD 1 TO SUB3.                                               RPTRT40 
00337          GO TO 21669-NEXT-CODE-CK.                                RPTRT40 
00338  21670-EXTRACT-MNG.                                                  CL**2
00339      MOVE FLD40240MODE-MNG (SUB3) TO FLD4024025-VAL.                 CL**2
00340  21671-FMT-FLD30.                                                 RPTRT40 
00341      IF FLOW-R-MODE2 EQUAL TO SPACES                              RPTRT40 
00342          GO TO 21676-FMT-FLD35.                                   RPTRT40 
00343      MOVE FLD4024030-HCON TO FLD4024030-HDG.                      RPTRT40 
00344          GO TO 21673-INTERPRET-CODE.                              RPTRT40 
00345  21672-JUST-CODE.                                                 RPTRT40 
00346      MOVE FLOW-R-MODE2 TO FLD4024030-POS1.                        RPTRT40 
00347          GO TO 21676-FMT-FLD35.                                   RPTRT40 
00348  21673-INTERPRET-CODE.                                            RPTRT40 
00349      MOVE 01 TO SUB3.                                             RPTRT40 
00350  21674-NEXT-CODE-CK.                                              RPTRT40 
00351      IF FLD40240MODE-CODES (SUB3) EQUAL TO "9"                    RPTRT40 
00352          GO TO 21672-JUST-CODE.                                   RPTRT40 
00353      IF FLD40240MODE-CODES (SUB3) EQUAL TO FLOW-R-MODE2           RPTRT40 
00354          GO TO 21675-EXTRACT-MNG.                                 RPTRT40 
00355      ADD 1 TO SUB3.                                                  CL**2
00356          GO TO 21674-NEXT-CODE-CK.                                RPTRT40 
00357  21675-EXTRACT-MNG.                                               RPTRT40 
00358      MOVE FLD40240MODE-MNG (SUB3) TO FLD4024030-VAL.                 CL**2
00359  21676-FMT-FLD35.                                                 RPTRT40 
00360      IF FLOW-R-MODE3 EQUAL TO SPACES                              RPTRT40 
00361          GO TO 21681-FMT-FLD40.                                   RPTRT40 
00362      MOVE FLD4024035-HCON  TO FLD4024035-HDG.                     RPTRT40 
00363          GO TO 21678-INTERPRET-CODE.                              RPTRT40 
00364  21677-JUST-CODE.                                                 RPTRT40 
00365      MOVE FLOW-R-MODE3 TO FLD4024035-POS1.                        RPTRT40 
00366          GO TO 21681-FMT-FLD40.                                   RPTRT40 
00367  21678-INTERPRET-CODE.                                            RPTRT40 
00368      MOVE 01 TO SUB3.                                             RPTRT40 
00369  21679-NEXT-CODE-CK.                                              RPTRT40 
00370      IF FLD40240MODE-CODES (SUB3) EQUAL TO "9"                    RPTRT40 
00371          GO TO 21677-JUST-CODE.                                   RPTRT40 
00372      IF FLD40240MODE-CODES (SUB3) EQUAL TO FLOW-R-MODE3           RPTRT40 
00373          GO TO 21680-EXTRACT-MNG.                                 RPTRT40 
00374      ADD 1 TO SUB3.                                               RPTRT40 
00375          GO TO 21679-NEXT-CODE-CK.                                RPTRT40 
00376  21680-EXTRACT-MNG.                                               RPTRT40 
00377      MOVE FLD40240MODE-MNG (SUB3) TO FLD4024035-VAL.                 CL**2
00378  21681-FMT-FLD40.                                                 RPTRT40 
00379      IF FLOW-R-MODE4 EQUAL TO SPACES                              RPTRT40 
00380          GO TO 21686-FMT-FLD45.                                      CL**2
00381      MOVE FLD4024040-HCON  TO FLD4024040-HDG.                        CL**2
00382          GO TO 21683-INTERPRET-CODE.                              RPTRT40 
00383  21682-JUST-CODE.                                                 RPTRT40 
00384      MOVE FLOW-R-MODE4 TO FLD4024040-POS1.                        RPTRT40 
00385          GO TO 21686-FMT-FLD45.                                   RPTRT40 
00386  21683-INTERPRET-CODE.                                            RPTRT40 
00387      MOVE 01 TO SUB3.                                             RPTRT40 
00388  21684-NEXT-CODE-CK.                                              RPTRT40 
00389      IF FLD40240MODE-CODES (SUB3) EQUAL TO "9"                    RPTRT40 
00390          GO TO 21682-JUST-CODE.                                   RPTRT40 
00391      IF FLD40240MODE-CODES (SUB3) EQUAL TO FLOW-R-MODE4           RPTRT40 
00392          GO TO 21685-EXTRACT-MNG.                                 RPTRT40 
00393      ADD 1 TO SUB3.                                               RPTRT40 
00394          GO TO 21684-NEXT-CODE-CK.                                RPTRT40 
00395  21685-EXTRACT-MNG.                                               RPTRT40 
00396      MOVE FLD40240MODE-MNG (SUB3) TO FLD4024040-VAL.                 CL**2
00397  21686-FMT-FLD45.                                                 RPTRT40 
00398      IF FLOW-R-MODE5  EQUAL TO SPACES                             RPTRT40 
00399          GO TO 21698-OUTPUT-LN4.                                  RPTRT40 
00400      MOVE FLD4024045-HCON TO FLD4024045-HDG.                      RPTRT40 
00401          GO TO 21688-INTERPRET-CODE.                              RPTRT40 
00402  21687-JUST-CODE.                                                 RPTRT40 
00403      MOVE FLOW-R-MODE5 TO FLD4024045-POS1.                        RPTRT40 
00404          GO TO 21698-OUTPUT-LN4.                                  RPTRT40 
00405  21688-INTERPRET-CODE.                                            RPTRT40 
00406      MOVE 01 TO SUB3.                                             RPTRT40 
00407  21689-NEXT-CODE-CK.                                              RPTRT40 
00408      IF FLD40240MODE-CODES (SUB3) EQUAL TO "9"                    RPTRT40 
00409          GO TO 21687-JUST-CODE.                                   RPTRT40 
00410      IF FLD40240MODE-CODES (SUB3) EQUAL TO FLOW-R-MODE5              CL**2
00411          GO TO 21690-EXTRACT-MNG.                                 RPTRT40 
00412      ADD 1 TO SUB3.                                                  CL**2
00413          GO TO 21689-NEXT-CODE-CK.                                RPTRT40 
00414  21690-EXTRACT-MNG.                                               RPTRT40 
00415      MOVE FLD40240MODE-MNG (SUB3) TO FLD4024045-VAL.                 CL**2
00416  21698-OUTPUT-LN4.                                                   CL**2
00417      IF CAT40240-LINE4 EQUAL TO SPACES                            RPTRT40 
00418          GO TO 21699-FMT-CAT240-XIT.                              RPTRT40 
00419      MOVE CAT40240-LINE4 TO STDRPT-70CHR.                         RPTRT40 
00420      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT40 
00421  21699-FMT-CAT240-XIT.                                            RPTRT40 
00422      EXIT.                                                        RPTRT40 
00423                                                                    RPTRT40
00424 ******************************************************************RPTRT40 
00425 *                                                                 RPTRT40 
00426 *    FORMAT CATEGORY 800 DETAIL LINE                              RPTRT40 
00427 *        CATEGORY 800 = RELATIONAL                                RPTRT40 
00428 *                                                                 RPTRT40 
00429 ******************************************************************RPTRT40 
00430  21800-FMT-CAT800.                                                RPTRT40 
00431      MOVE SPACES TO CAT40800-LINE1.                               RPTRT40 
00432 *    FORMAT CATALOGUE NAME FIELD                                  RPTRT40 
00433 *                                                                 RPTRT40 
00434      IF FIRST-REC-SW EQUAL TO "N"                                    CL**2
00435          GO TO 21824-CHECK-COMMENT.                                  CL**2
00436      MOVE FLD4080005-HCON TO FLD4080005-HDG.                      RPTRT40 
00437      MOVE FLD4080010-HCON TO FLD4080010-HDG.                      RPTRT40 
00438      MOVE FLD4080015-HCON TO FLD4080015-HDG.                      RPTRT40 
00439      MOVE "N" TO FIRST-REC-SW.                                       CL**2
00440 *    OUTPUT 1ST DETAIL LINE.                                      RPTRT40 
00441      MOVE CAT40800-LINE1 TO STDRPT-70CHR.                         RPTRT40 
00442      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT40 
00443      MOVE 1 TO PRT-CTL.                                              CL**2
00444      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00445      MOVE CAT-REV   TO  STDRPT-REVNO.                                CL**2
00446          MOVE CAT-LINE   TO  STDRPT-LINE.                            CL**2
00447 *                                                                 RPTRT40 
00448 *    FORMAT 2ND DISPLAY LINE                                      RPTRT40 
00449 *                                                                 RPTRT40 
00450  21824-CHECK-COMMENT.                                                CL**2
00451      IF CAT-COMMENT NOT EQUAL TO "*"                                 CL**2
00452          GO TO 21825-FMT-FLD05.                                      CL**2
00453      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.               CL**2
00454      GO TO 21899-FMT-CAT800-XIT.                                     CL**2
00455  21825-FMT-FLD05.                                                    CL**2
00456      MOVE SPACES TO CAT40800-LINE2.                                  CL**2
00457      IF REL-R-CNAME EQUAL TO SPACES                                  CL**2
00458          GO TO 21830-FMT-FLD10.                                   RPTRT40 
00459      MOVE REL-R-CNAME TO FLD4080005-VAL.                          RPTRT40 
00460  21830-FMT-FLD10.                                                    CL**2
00461      IF REL-R-PUSE EQUAL TO SPACES                                RPTRT40 
00462          GO TO 21840-FMT-FLD15.                                   RPTRT40 
00463      GO TO 21832-INTERPRET-CODE.                                  RPTRT40 
00464  21831-JUST-CODE.                                                 RPTRT40 
00465      MOVE REL-R-PUSE TO FLD4080010-POS1.                          RPTRT40 
00466              GO TO 21840-FMT-FLD15.                                  CL**2
00467  21832-INTERPRET-CODE.                                               CL**2
00468      MOVE 01 TO SUB3.                                                CL**2
00469  21833-NEXT-CODE-CK.                                                 CL**2
00470      IF FLD4080010-CODES (SUB3) EQUAL TO "9"                         CL**2
00471          GO TO 21831-JUST-CODE.                                      CL**2
00472      IF FLD4080010-CODES (SUB3) EQUAL TO REL-R-PUSE                  CL**2
00473          GO TO 21834-EXTRACT-MNG.                                 RPTRT40 
00474      ADD 1 TO SUB3.                                               RPTRT40 
00475          GO TO 21833-NEXT-CODE-CK.                                RPTRT40 
00476  21834-EXTRACT-MNG.                                               RPTRT40 
00477      MOVE FLD4080010-MNG (SUB3) TO FLD4080010-VAL.                RPTRT40 
00478  21840-FMT-FLD15.                                                    CL**2
00479      IF REL-R-TYPE EQUAL TO SPACES                                RPTRT40 
00480          GO TO 21850-OUTPUT-LN2.                                  RPTRT40 
00481      MOVE REL-R-TYPE TO FLD4080015-VAL.                           RPTRT40 
00482  21850-OUTPUT-LN2.                                                RPTRT40 
00483      IF CAT40800-LINE2 EQUAL TO SPACES                            RPTRT40 
00484          GO TO 21855-FMT-FLD30.                                   RPTRT40 
00485      MOVE CAT40800-LINE2 TO STDRPT-70CHR.                         RPTRT40 
00486      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT40 
00487 *                                                                 RPTRT40 
00488 *    FORMAT 3RD DISPLAY LINE                                      RPTRT40 
00489 *                                                                 RPTRT40 
00490  21855-FMT-FLD30.                                                    CL**2
00491      MOVE SPACES TO CAT40800-LINE3.                                  CL**2
00492      IF REL-R-START EQUAL TO SPACES                               RPTRT40 
00493          GO TO 21860-FMT-FLD35.                                   RPTRT40 
00494      MOVE FLD4080030-HCON  TO FLD4080030-HDG.                        CL**2
00495      MOVE REL-R-START      TO  FLD4080030-VAL.                    RPTRT40:  
00496  21860-FMT-FLD35.                                                    CL**2
00497      IF REL-R-END EQUAL TO SPACES                                 RPTRT40 
00498      GO TO 21865-FMT-FLD25.                                          CL**2
00499      MOVE FLD4080035-HCON  TO  FLD4080035-HDG.                    RPTRT40 
00500      MOVE REL-R-END        TO  FLD4080035-VAL.                    RPTRT40 
00501  21865-FMT-FLD25.                                                    CL**2
00502      IF REL-R-PIC EQUAL TO SPACES                                 RPTRT40 
00503          GO TO 21870-OUTPUT-LN3.                                  RPTRT40 
00504      MOVE FLD4080025-HCON  TO  FLD4080025-HDG.                    RPTRT40 
00505      MOVE REL-R-PIC    TO FLD4080025-VAL.                            CL**2
00506  21870-OUTPUT-LN3.                                                RPTRT40 
00507      IF CAT40800-LINE3 EQUAL TO SPACES                            RPTRT40 
00508          GO TO 21899-FMT-CAT800-XIT.                              RPTRT40 
00509      MOVE CAT40800-LINE3 TO STDRPT-70CHR.                         RPTRT40 
00510      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT40 
00511  21899-FMT-CAT800-XIT.                                            RPTRT40 
00512      EXIT.                                                        RPTRT40 
00513                                                                    RPTRT40
