*COMDECK  RPTRT19 
00001 ******************************************************************08/09/78
00002 *                                                                 RPTRT19 
00003 *    FORMAT CATEGORY 140 DETAIL LINE                                 LV002
00004 *        CATEGORY 140 = RESPONSIBILITY                            RPTRT19 
00005 *                                                                 RPTRT19 
00006 ******************************************************************RPTRT19 
00007  5500-FMT-CAT140.                                                 RPTRT19 
00008      MOVE SPACES TO CAT19140-LINE1.                               RPTRT19 
00009 *                                                                 RPTRT19 
00010 *    FORMAT STATUS FIELD                                          RPTRT19 
00011 *                                                                 RPTRT19 
00012  5505-FMT-FLD05.                                                  RPTRT19 
00013      IF RESP-SET-STATUS EQUAL TO SPACES                           RPTRT19 
00014          GO TO 5550-FMT-FLD10.                                    RPTRT19 
00015      MOVE FLD1914005-HCON TO FLD1914005-HDG.                      RPTRT19 
00016          GO TO 5520-INTERPRET-CODE.                               RPTRT19 
00017  5510-JUST-CODE.                                                  RPTRT19 
00018      MOVE RESP-SET-STATUS TO FLD1914005-POS1.                     RPTRT19 
00019          GO TO 5550-FMT-FLD10.                                    RPTRT19 
00020  5520-INTERPRET-CODE.                                             RPTRT19 
00021      MOVE 01 TO SUB3.                                             RPTRT19 
00022  5530-NEXT-CODE-CK.                                               RPTRT19 
00023      IF FLD1914005-CODES (SUB3) EQUAL TO "9"                      RPTRT19 
00024          GO TO 5510-JUST-CODE.                                    RPTRT19 
00025      IF FLD1914005-CODES (SUB3) EQUAL TO RESP-SET-STATUS          RPTRT19 
00026          GO TO 5540-EXTRACT-MNG.                                  RPTRT19 
00027      ADD 1 TO SUB3.                                               RPTRT19 
00028      GO TO 5530-NEXT-CODE-CK.                                     RPTRT19 
00029  5540-EXTRACT-MNG.                                                RPTRT19 
00030      MOVE FLD1914005-MNG (SUB3) TO FLD1914005-VAL.                RPTRT19 
00031 *                                                                 RPTRT19 
00032 *    FORMAT FUNCTION FIELD                                        RPTRT19 
00033 *                                                                 RPTRT19 
00034  5550-FMT-FLD10.                                                  RPTRT19 
00035      IF RESP-SET-FUNC EQUAL TO SPACES                             RPTRT19 
00036          GO TO 5600-FMT-FLD25.                                    RPTRT19 
00037      MOVE FLD1914010-HCON TO FLD1914010-HDG.                      RPTRT19 
00038          GO TO 5570-INTERPRET-CODE.                               RPTRT19 
00039  5560-JUST-CODE.                                                  RPTRT19 
00040      MOVE RESP-SET-FUNC TO FLD1914010-POS1.                       RPTRT19 
00041          GO TO 5600-FMT-FLD25.                                    RPTRT19 
00042  5570-INTERPRET-CODE.                                             RPTRT19 
00043      MOVE 01 TO SUB3.                                             RPTRT19 
00044  5580-NEXT-CODE-CK.                                               RPTRT19 
00045      IF FLD1914010-CODES (SUB3) EQUAL TO "9"                      RPTRT19 
00046          GO TO 5560-JUST-CODE.                                    RPTRT19 
00047      IF FLD1914010-CODES (SUB3) EQUAL TO RESP-SET-FUNC            RPTRT19 
00048          GO TO 5590-EXTRACT-MNG.                                  RPTRT19 
00049      ADD 1 TO SUB3.                                               RPTRT19 
00050      GO TO 5580-NEXT-CODE-CK.                                     RPTRT19 
00051  5590-EXTRACT-MNG.                                                RPTRT19 
00052      MOVE FLD1914010-MNG (SUB3) TO FLD1914010-VAL.                RPTRT19 
00053 *                                                                 RPTRT19 
00054 *    FORMAT PHONE FIELD                                           RPTRT19 
00055 *                                                                 RPTRT19 
00056  5600-FMT-FLD25.                                                  RPTRT19 
00057      IF RESP-SET-PHONE EQUAL TO SPACES                            RPTRT19 
00058          GO TO 5610-FMT-FLD35.                                    RPTRT19 
00059      MOVE FLD1914025-HCON TO FLD1914025-HDG.                      RPTRT19 
00060      MOVE RESP-SET-PHONE TO FLD1914025-VAL.                       RPTRT19 
00061 *                                                                 RPTRT19 
00062 *    FORMAT MAIL FIELD                                            RPTRT19 
00063 *                                                                 RPTRT19 
00064  5610-FMT-FLD35.                                                  RPTRT19 
00065      IF RESP-SET-MAIL EQUAL TO SPACES                             RPTRT19 
00066          GO TO 5620-OUTPUT-LN1.                                   RPTRT19 
00067      MOVE FLD1914035-HCON TO FLD1914035-HDG.                      RPTRT19 
00068      MOVE RESP-SET-MAIL TO FLD1914035-VAL.                        RPTRT19 
00069 *                                                                 RPTRT19 
00070 *    OUTPUT DISPLAY LINE                                          RPTRT19 
00071 *                                                                 RPTRT19 
00072  5620-OUTPUT-LN1.                                                 RPTRT19 
00073      IF CAT19140-LINE1 EQUAL TO SPACES                            RPTRT19 
00074          GO TO 5630-FMT-FLD15.                                    RPTRT19 
00075      MOVE CAT19140-LINE1 TO STDRPT-70CHR.                         RPTRT19 
00076      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00077 *                                                                 RPTRT19 
00078 *    FORMAT 2ND DISPLAY LINE                                      RPTRT19 
00079 *                                                                 RPTRT19 
00080  5630-FMT-FLD15.                                                  RPTRT19 
00081      MOVE SPACES TO CAT19140-LINE2.                               RPTRT19 
00082 *                                                                 RPTRT19 
00083 *    FORMAT DEPARTMENT FIELD                                      RPTRT19 
00084 *                                                                 RPTRT19 
00085      IF RESP-SET-DEPT EQUAL TO SPACES                             RPTRT19 
00086          GO TO 5640-FMT-FLD40.                                    RPTRT19 
00087      MOVE FLD1914015-HCON TO FLD1914015-HDG.                      RPTRT19 
00088      MOVE RESP-SET-DEPT TO FLD1914015-VAL.                        RPTRT19 
00089 *                                                                 RPTRT19 
00090 *    FORMAT DATE FIELD                                            RPTRT19 
00091 *                                                                 RPTRT19 
00092  5640-FMT-FLD40.                                                  RPTRT19 
00093      IF RESP-SET-DATE EQUAL TO SPACES                             RPTRT19 
00094          GO TO 5650-OUTPUT-LN2.                                   RPTRT19 
00095      MOVE FLD1914040-HCON TO FLD1914040-HDG.                      RPTRT19 
00096      MOVE RESP-SET-DATE TO FLD1914040-VAL.                        RPTRT19 
00097 *                                                                 RPTRT19 
00098 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT19 
00099 *                                                                 RPTRT19 
00100  5650-OUTPUT-LN2.                                                 RPTRT19 
00101      IF CAT19140-LINE2 EQUAL TO SPACES                            RPTRT19 
00102          GO TO 5660-FMT-FLD20.                                    RPTRT19 
00103      MOVE CAT19140-LINE2 TO STDRPT-70CHR.                         RPTRT19 
00104      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00105 *                                                                 RPTRT19 
00106 *    FORMAT 3RD DISPLAY LINE                                      RPTRT19 
00107 *                                                                 RPTRT19 
00108  5660-FMT-FLD20.                                                  RPTRT19 
00109      MOVE SPACES TO CAT19140-LINE3.                               RPTRT19 
00110 *                                                                 RPTRT19 
00111 *    FORMAT PERSON FIELD                                          RPTRT19 
00112 *                                                                 RPTRT19 
00113      IF RESP-SET-PERSON EQUAL TO SPACES                           RPTRT19 
00114          GO TO 5670-FMT-FLD30.                                    RPTRT19 
00115      MOVE FLD1914020-HCON TO FLD1914020-HDG.                      RPTRT19 
00116      MOVE RESP-SET-PERSON TO FLD1914020-VAL.                      RPTRT19 
00117 *                                                                 RPTRT19 
00118 *    FORMAT TITLE FIELD                                           RPTRT19 
00119 *                                                                 RPTRT19 
00120  5670-FMT-FLD30.                                                  RPTRT19 
00121      IF RESP-SET-TITLE EQUAL TO SPACES                            RPTRT19 
00122          GO TO 5680-OUTPUT-LN3.                                   RPTRT19 
00123      MOVE FLD1914030-HCON TO FLD1914030-HDG.                      RPTRT19 
00124      MOVE RESP-SET-TITLE TO FLD1914030-VAL.                       RPTRT19 
00125 *                                                                 RPTRT19 
00126 *    OUTPUT 3RD DISPLAY LINE                                      RPTRT19 
00127 *                                                                 RPTRT19 
00128  5680-OUTPUT-LN3.                                                 RPTRT19 
00129      IF CAT19140-LINE3 EQUAL TO SPACES                            RPTRT19 
00130          GO TO 5690-FMT-CAT140-XIT.                               RPTRT19 
00131      MOVE CAT19140-LINE3 TO STDRPT-70CHR.                         RPTRT19 
00132      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00133  5690-FMT-CAT140-XIT.                                             RPTRT19 
00134      EXIT.                                                        RPTRT19 
00135                                                                    RPTRT19
00136 ******************************************************************RPTRT19 
00137 *                                                                 RPTRT19 
00138 *    FORMAT CATEGORY 200 DETAIL LINES                             RPTRT19 
00139 *        CATEGORY 200 = NAMES                                     RPTRT19 
00140 *                                                                 RPTRT19 
00141 ******************************************************************RPTRT19 
00142  12200-FMT-CAT200.                                                RPTRT19 
00143      MOVE SPACES TO CAT19200-LINE1.                               RPTRT19 
00144 *                                                                 RPTRT19 
00145 *    FORMAT TDNAME FIELD                                          RPTRT19 
00146 *                                                                 RPTRT19 
00147  12205-FMT-FLD05.                                                 RPTRT19 
00148      IF NAME-SET-TD EQUAL TO SPACES                               RPTRT19 
00149          GO TO 12220-FMT-FLD15.                                   RPTRT19 
00150      MOVE FLD1920005-HCON TO FLD1920005-HDG.                      RPTRT19 
00151      MOVE NAME-SET-TD TO FLD1920005-VAL.                          RPTRT19 
00152  12220-FMT-FLD15.                                                 RPTRT19 
00153 *                                                                 RPTRT19 
00154 *    FORMAT DDNAME FIELD                                          RPTRT19 
00155 *                                                                 RPTRT19 
00156      IF NAME-SET-DD EQUAL TO SPACES                               RPTRT19 
00157          GO TO 12230-FMT-FLD20.                                   RPTRT19 
00158      MOVE FLD1920015-HCON TO FLD1920015-HDG.                      RPTRT19 
00159      MOVE NAME-SET-DD TO FLD1920015-VAL.                          RPTRT19 
00160 *                                                                 RPTRT19 
00161 *    FORMAT PRIME NAME FIELD                                      RPTRT19 
00162 *                                                                 RPTRT19 
00163  12230-FMT-FLD20.                                                 RPTRT19 
00164      IF NAME-SET-PRIME EQUAL TO SPACES                            RPTRT19 
00165          GO TO 12240-FMT-FLD25.                                      CL**2
00166      MOVE FLD1920020-HCON TO FLD1920020-HDG.                      RPTRT19 
00167      MOVE NAME-SET-PRIME TO FLD1920020-VAL.                       RPTRT19 
00168  12240-FMT-FLD25.                                                    CL**2
00169 *                                                                 RPTRT19 
00170 *    FORMAT MEMBER NAME FIELD                                     RPTRT19 
00171 *                                                                 RPTRT19 
00172      IF NAME-SET-MEMBER EQUAL TO SPACES                           RPTRT19 
00173          GO TO 12260-OUTPUT-LN1.                                  RPTRT19 
00174      MOVE FLD1920025-HCON TO FLD1920025-HDG.                      RPTRT19 
00175      MOVE NAME-SET-MEMBER TO FLD1920025-VAL.                      RPTRT19 
00176 *                                                                 RPTRT19 
00177 *    OUTPUT 1ST DISPLAY LINE                                      RPTRT19 
00178 *                                                                 RPTRT19 
00179  12260-OUTPUT-LN1.                                                RPTRT19 
00180      IF CAT19200-LINE1 EQUAL TO SPACES                            RPTRT19 
00181          GO TO 12275-FMT-FLD10.                                   RPTRT19 
00182      MOVE CAT19200-LINE1 TO STDRPT-70CHR.                         RPTRT19 
00183      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00184  12275-FMT-FLD10.                                                 RPTRT19 
00185      MOVE SPACES TO CAT19200-LINE2.                               RPTRT19 
00186 *                                                                 RPTRT19 
00187 *    FORMAT DATA SET NAME FIELD                                   RPTRT19 
00188 *                                                                 RPTRT19 
00189      IF NAME-SET-DS EQUAL TO SPACES                               RPTRT19 
00190          GO TO 12276-FMT-FLD30.                                      CL**2
00191      MOVE FLD1920010-HCON TO FLD1920010-HDG.                      RPTRT19 
00192      MOVE NAME-SET-DS TO FLD1920010-VAL.                          RPTRT19 
00193  12276-FMT-FLD30.                                                    CL**2
00194      IF NAME-SET-IO EQUAL SPACE                                      CL**2
00195          GO TO 12280-OUTPUT-LINE2.                                   CL**2
00196      MOVE FLD1920030-HCON TO FLD1920030-HDG.                         CL**2
00197      MOVE NAME-SET-IO     TO FLD1920030-VAL.                         CL**2
00198 *                                                                 RPTRT19 
00199 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT19 
00200 *                                                                 RPTRT19 
00201  12280-OUTPUT-LINE2.                                                 CL**2
00202      IF CAT19200-LINE2 EQUAL TO SPACES                            RPTRT19 
00203          GO TO 12299-FMT-CAT200-XIT.                              RPTRT19 
00204      MOVE CAT19200-LINE2 TO STDRPT-70CHR.                         RPTRT19 
00205      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00206 *                                                                 RPTRT19 
00207 *    FORMAT 2ND DISPLAY LINE                                      RPTRT19 
00208 *                                                                 RPTRT19:  
00209  12299-FMT-CAT200-XIT.                                            RPTRT19 
00210      EXIT.                                                        RPTRT19 
00211                                                                    RPTRT19
00212 ******************************************************************RPTRT19 
00213 *                                                                 RPTRT19 
00214 *    FORMAT CATEGORY 210 DETAIL LINE                              RPTRT19 
00215 *        CATEGORY 210 = ATTRIBUTES                                RPTRT19 
00216 *                                                                 RPTRT19 
00217 ******************************************************************RPTRT19 
00218  12500-FMT-CAT210.                                                RPTRT19 
00219      MOVE SPACES TO CAT19210-LINE1.                               RPTRT19 
00220 *                                                                 RPTRT19 
00221 *    FORMAT RECSIZE FIELD                                         RPTRT19 
00222 *                                                                 RPTRT19 
00223  12505-FMT-FLD05.                                                 RPTRT19 
00224      IF ATTR-SET-RECSIZE EQUAL TO SPACES                          RPTRT19 
00225          GO TO 12510-FMT-FLD10.                                   RPTRT19 
00226      MOVE FLD1921005-HCON TO FLD1921005-HDG.                      RPTRT19 
00227      MOVE ATTR-SET-RECSIZE TO FLD1921005-VAL.                     RPTRT19 
00228 *                                                                 RPTRT19 
00229 *    FORMAT BLKSIZE FIELD                                         RPTRT19 
00230 *                                                                 RPTRT19 
00231  12510-FMT-FLD10.                                                 RPTRT19 
00232      IF ATTR-SET-BLKSIZE EQUAL TO SPACES                          RPTRT19 
00233          GO TO 12515-FMT-FLD15.                                   RPTRT19 
00234      MOVE FLD1921010-HCON TO FLD1921010-HDG.                      RPTRT19 
00235      MOVE ATTR-SET-BLKSIZE TO FLD1921010-VAL.                     RPTRT19 
00236 *                                                                 RPTRT19 
00237 *    FORMAT RECFM FIELD                                           RPTRT19 
00238 *                                                                 RPTRT19 
00239  12515-FMT-FLD15.                                                 RPTRT19 
00240      IF ATTR-SET-RECFM EQUAL TO SPACES                            RPTRT19 
00241          GO TO 12520-FMT-FLD20.                                   RPTRT19 
00242      MOVE FLD1921015-HCON TO FLD1921015-HDG.                      RPTRT19 
00243      MOVE ATTR-SET-RECFM TO FLD1921015-VAL.                       RPTRT19 
00244 *                                                                 RPTRT19 
00245 *    FORMAT DSORG FIELD                                           RPTRT19 
00246 *                                                                 RPTRT19 
00247  12520-FMT-FLD20.                                                 RPTRT19 
00248      IF ATTR-SET-DSORG EQUAL TO SPACES                            RPTRT19 
00249          GO TO 12525-FMT-FLD25.                                   RPTRT19 
00250      MOVE FLD1921020-HCON TO FLD1921020-HDG.                      RPTRT19 
00251      MOVE ATTR-SET-DSORG TO FLD1921020-VAL.                       RPTRT19 
00252 *                                                                 RPTRT19 
00253 *    FORMAT LABEL FIELD                                           RPTRT19 
00254 *                                                                 RPTRT19 
00255  12525-FMT-FLD25.                                                 RPTRT19 
00256      IF ATTR-SET-LABEL EQUAL TO SPACES                            RPTRT19 
00257          GO TO 12530-OUTPUT-LN1.                                  RPTRT19 
00258      MOVE FLD1921025-HCON TO FLD1921025-HDG.                      RPTRT19 
00259      MOVE ATTR-SET-LABEL TO FLD1921025-VAL.                       RPTRT19 
00260 *                                                                 RPTRT19 
00261 *    OUTPUT DISPLAY LINE                                          RPTRT19 
00262 *                                                                 RPTRT19 
00263  12530-OUTPUT-LN1.                                                RPTRT19 
00264      IF CAT19210-LINE1 EQUAL TO SPACES                            RPTRT19 
00265          GO TO 12535-FMT-FLD40.                                   RPTRT19 
00266      MOVE CAT19210-LINE1 TO STDRPT-70CHR.                         RPTRT19 
00267      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00268 *                                                                 RPTRT19 
00269 *    FORMAT 2ND DISPLAY LINE                                      RPTRT19 
00270 *                                                                 RPTRT19 
00271  12535-FMT-FLD40.                                                 RPTRT19 
00272      MOVE SPACES TO CAT19210-LINE2.                               RPTRT19 
00273 *                                                                 RPTRT19 
00274 *    FORMAT ADDRESS MODE FIELD                                    RPTRT19 
00275 *                                                                 RPTRT19 
00276      IF ATTR-SET-ADDR EQUAL TO SPACES                             RPTRT19 
00277          GO TO 12540-FMT-FLD45.                                   RPTRT19 
00278      MOVE FLD1921040-HCON TO FLD1921040-HDG.                      RPTRT19 
00279          GO TO 12537-INTERPRET-CODE.                              RPTRT19 
00280  12536-JUST-CODE.                                                 RPTRT19 
00281      MOVE ATTR-SET-ADDR TO FLD1921040-POS1.                       RPTRT19 
00282          GO TO 12540-FMT-FLD45.                                   RPTRT19 
00283  12537-INTERPRET-CODE.                                            RPTRT19 
00284      MOVE 01 TO SUB3.                                             RPTRT19 
00285  12538-NEXT-CODE-CK.                                              RPTRT19 
00286      IF FLD1921040-CODES (SUB3) EQUAL TO "9"                      RPTRT19 
00287          GO TO 12536-JUST-CODE.                                   RPTRT19 
00288      IF FLD1921040-CODES (SUB3) EQUAL TO ATTR-SET-ADDR            RPTRT19 
00289          GO TO 12539-EXTRACT-MNG.                                 RPTRT19 
00290      ADD 1 TO SUB3.                                               RPTRT19 
00291      GO TO 12538-NEXT-CODE-CK.                                    RPTRT19 
00292  12539-EXTRACT-MNG.                                               RPTRT19 
00293      MOVE FLD1921040-MNG (SUB3) TO FLD1921040-VAL.                RPTRT19 
00294 *                                                                 RPTRT19 
00295 *    FORMAT RMOD NAME FIELD                                       RPTRT19 
00296 *                                                                 RPTRT19 
00297  12540-FMT-FLD45.                                                 RPTRT19 
00298      IF ATTR-SET-RMOD EQUAL TO SPACES                             RPTRT19 
00299          GO TO 12545-OUTPUT-LN2.                                  RPTRT19 
00300      MOVE FLD1921045-HCON TO FLD1921045-HDG.                      RPTRT19 
00301      MOVE ATTR-SET-RMOD TO FLD1921045-VAL.                        RPTRT19 
00302 *                                                                 RPTRT19 
00303 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT19 
00304 *                                                                 RPTRT19 
00305  12545-OUTPUT-LN2.                                                RPTRT19 
00306      IF CAT19210-LINE2 EQUAL TO SPACES                            RPTRT19 
00307          GO TO 12550-FMT-FLD50.                                   RPTRT19 
00308      MOVE CAT19210-LINE2 TO STDRPT-70CHR.                         RPTRT19 
00309      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00310 *                                                                 RPTRT19 
00311 *    FORMAT 3RD DISPLAY LINE                                      RPTRT19 
00312 *                                                                 RPTRT19 
00313  12550-FMT-FLD50.                                                 RPTRT19 
00314      MOVE SPACES TO CAT19210-LINE3.                               RPTRT19 
00315 *                                                                 RPTRT19 
00316 *    FORMAT KEY LENGTH FIELD                                      RPTRT19 
00317 *                                                                 RPTRT19 
00318      IF ATTR-SET-KEYLEN EQUAL TO SPACES                           RPTRT19 
00319          GO TO 12555-FMT-FLD55.                                   RPTRT19 
00320      MOVE FLD1921050-HCON TO FLD1921050-HDG.                      RPTRT19 
00321      MOVE ATTR-SET-KEYLEN TO FLD1921050-VAL.                      RPTRT19 
00322 *                                                                 RPTRT19 
00323 *    FORMAT RECORD KEY POSITION FIELD                             RPTRT19 
00324 *                                                                 RPTRT19 
00325  12555-FMT-FLD55.                                                 RPTRT19 
00326      IF ATTR-SET-RKP EQUAL TO SPACES                              RPTRT19 
00327          GO TO 12560-FMT-FLD60.                                   RPTRT19 
00328      MOVE FLD1921055-HCON TO FLD1921055-HDG.                      RPTRT19 
00329      MOVE ATTR-SET-RKP TO FLD1921055-VAL.                         RPTRT19 
00330 *                                                                 RPTRT19 
00331 *    FORMAT CYLINDER OVERFLOW TRACKS FIELD                        RPTRT19 
00332 *                                                                 RPTRT19 
00333  12560-FMT-FLD60.                                                 RPTRT19 
00334      IF ATTR-SET-CYLOFL EQUAL TO SPACES                           RPTRT19 
00335          GO TO 12565-FMT-FLD30.                                   RPTRT19 
00336      MOVE FLD1921060-HCON TO FLD1921060-HDG.                      RPTRT19 
00337      MOVE ATTR-SET-CYLOFL TO FLD1921060-VAL.                      RPTRT19 
00338 *                                                                 RPTRT19 
00339 *    FORMAT DENSITY FIELD                                         RPTRT19 
00340 *                                                                 RPTRT19 
00341  12565-FMT-FLD30.                                                 RPTRT19 
00342      IF ATTR-SET-DEN EQUAL TO SPACES                              RPTRT19 
00343          GO TO 12570-FMT-FLD35.                                   RPTRT19 
00344      MOVE FLD1921030-HCON TO FLD1921030-HDG.                      RPTRT19 
00345          GO TO 12567-INTERPRET-CODE.                              RPTRT19 
00346  12566-JUST-CODE.                                                 RPTRT19 
00347      MOVE ATTR-SET-DEN TO FLD1921030-POS1.                        RPTRT19 
00348      GO TO 12570-FMT-FLD35.                                       RPTRT19 
00349  12567-INTERPRET-CODE.                                            RPTRT19 
00350      MOVE 01 TO SUB3.                                             RPTRT19 
00351  12568-NEXT-CODE-CK.                                              RPTRT19 
00352      IF FLD1921030-CODES (SUB3) EQUAL TO "9"                      RPTRT19 
00353          GO TO 12566-JUST-CODE.                                   RPTRT19 
00354      IF FLD1921030-CODES (SUB3) EQUAL TO ATTR-SET-DEN             RPTRT19 
00355          GO TO 12569-EXTRACT-MNG.                                 RPTRT19 
00356      ADD 1 TO SUB3.                                               RPTRT19 
00357      GO TO 12568-NEXT-CODE-CK.                                    RPTRT19 
00358  12569-EXTRACT-MNG.                                               RPTRT19 
00359      MOVE FLD1921030-MNG (SUB3) TO FLD1921030-VAL.                RPTRT19 
00360 *                                                                 RPTRT19 
00361 *    FORMAT BUFFER FIELD                                          RPTRT19 
00362 *                                                                 RPTRT19 
00363  12570-FMT-FLD35.                                                 RPTRT19 
00364      IF ATTR-SET-BUFF EQUAL TO SPACES                             RPTRT19 
00365          GO TO 12575-OUTPUT-LN3.                                  RPTRT19 
00366      MOVE FLD1921035-HCON TO FLD1921035-HDG.                      RPTRT19 
00367      MOVE ATTR-SET-BUFF TO FLD1921035-VAL.                        RPTRT19 
00368 *                                                                 RPTRT19 
00369 *    OUTPUT 3RD DISPLAY LINE                                      RPTRT19 
00370 *                                                                 RPTRT19 
00371  12575-OUTPUT-LN3.                                                RPTRT19 
00372      IF CAT19210-LINE3 EQUAL TO SPACES                            RPTRT19 
00373          GO TO 12580-FMT-FLD70.                                   RPTRT19 
00374      MOVE CAT19210-LINE3 TO STDRPT-70CHR.                         RPTRT19 
00375      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00376 *                                                                 RPTRT19 
00377 *    FORMAT 4TH DISPLAY LINE                                      RPTRT19 
00378 *                                                                 RPTRT19 
00379  12580-FMT-FLD70.                                                 RPTRT19 
00380      MOVE SPACES TO CAT19210-LINE4.                               RPTRT19 
00381 *                                                                 RPTRT19 
00382 *    FORMAT OPTION CODE FIELD                                     RPTRT19 
00383 *                                                                 RPTRT19 
00384      IF ATTR-SET-OPT EQUAL TO SPACES                              RPTRT19 
00385              GO TO 12585-FMT-FLD75.                               RPTRT19 
00386      MOVE FLD1921070-HCON TO FLD1921070-HDG.                      RPTRT19 
00387      MOVE ATTR-SET-OPT  TO FLD1921070-VAL.                        RPTRT19 
00388 *                                                                 RPTRT19 
00389 *    FORMAT LIMIT COUNT FIELD                                     RPTRT19 
00390 *                                                                 RPTRT19 
00391  12585-FMT-FLD75.                                                 RPTRT19 
00392      IF ATTR-SET-LIMCT EQUAL TO SPACES                            RPTRT19 
00393          GO TO 12590-OUTPUT-LN4.                                  RPTRT19 
00394      MOVE FLD1921075-HCON TO FLD1921075-HDG.                      RPTRT19 
00395      MOVE ATTR-SET-LIMCT TO FLD1921075-VAL.                       RPTRT19 
00396 *                                                                 RPTRT19 
00397 *    OUTPUT 4TH DISPLAY LINE                                      RPTRT19 
00398 *                                                                 RPTRT19 
00399  12590-OUTPUT-LN4.                                                RPTRT19 
00400      IF CAT19210-LINE4 EQUAL TO SPACES                            RPTRT19 
00401          GO TO 12595-FMT-CAT210-XIT.                              RPTRT19 
00402      MOVE CAT19210-LINE4 TO STDRPT-70CHR                          RPTRT19 
00403      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00404  12595-FMT-CAT210-XIT.                                            RPTRT19 
00405      EXIT.                                                        RPTRT19 
00406                                                                    RPTRT19
00407 ******************************************************************RPTRT19 
00408 *                                                                 RPTRT19 
00409 *    FORMAT CATEGORY 220 DETAIL LINES                             RPTRT19 
00410 *        CATEGORY 220 = UNIT.                                     RPTRT19 
00411 *                                                                 RPTRT19 
00412 ******************************************************************RPTRT19 
00413  12700-FMT-CAT220.                                                   CL**2
00414      MOVE SPACES TO CAT19220-LINE1.                               RPTRT19 
00415 *                                                                 RPTRT19 
00416 *    FORMAT UNIT FIELD                                            RPTRT19 
00417 *                                                                 RPTRT19 
00418  12705-FMT-FLD05.                                                 RPTRT19 
00419      IF UNIT-UNIT EQUAL TO SPACES                                 RPTRT19 
00420          GO TO 12710-FMT-FLD10.                                   RPTRT19 
00421      MOVE FLD1922005-HCON TO FLD1922005-HDG.                      RPTRT19 
00422      MOVE UNIT-UNIT TO FLD1922005-VAL.                            RPTRT19 
00423 *                                                                 RPTRT19 
00424 *    FORMAT VOLUME-SERIAL FIELD                                   RPTRT19 
00425 *                                                                 RPTRT19 
00426  12710-FMT-FLD10.                                                 RPTRT19 
00427      IF UNIT-VOLSER EQUAL TO SPACES                               RPTRT19 
00428          GO TO 12715-FMT-FLD15.                                   RPTRT19 
00429      MOVE FLD1922010-HCON TO FLD1922010-HDG.                      RPTRT19 
00430      MOVE UNIT-VOLSER TO FLD1922010-VAL.                          RPTRT19 
00431 *                                                                 RPTRT19 
00432 *    FORMAT UNIT SPACE FIELD                                      RPTRT19 
00433 *                                                                 RPTRT19 
00434  12715-FMT-FLD15.                                                 RPTRT19 
00435      IF UNIT-SPACE EQUAL TO SPACES                                RPTRT19 
00436          GO TO 12720-FMT-FLD20.                                   RPTRT19 
00437      MOVE FLD1922015-HCON TO FLD1922015-HDG.                      RPTRT19 
00438      MOVE UNIT-SPACE TO FLD1922015-VAL.                           RPTRT19 
00439 *                                                                 RPTRT19 
00440 *    FORMAT UNIT TYPE VALUE FIELD                                 RPTRT19 
00441 *                                                                 RPTRT19 
00442  12720-FMT-FLD20.                                                 RPTRT19 
00443      IF UNIT-TYPE EQUAL TO SPACES                                 RPTRT19 
00444          GO TO 12725-OUTPUT-LN1.                                  RPTRT19 
00445      GO TO 12722-INTERPRET-CODE.                                  RPTRT19 
00446  12721-JUST-CODE.                                                 RPTRT19 
00447      MOVE UNIT-TYPE TO FLD1922020-POS1.                           RPTRT19 
00448      GO TO 12725-OUTPUT-LN1.                                      RPTRT19 
00449  12722-INTERPRET-CODE.                                            RPTRT19 
00450      MOVE 01 TO SUB3.                                             RPTRT19 
00451  12723-NEXT-CODE-CK.                                              RPTRT19 
00452      IF FLD1922020-CODES (SUB3) EQUAL TO "9"                      RPTRT19 
00453          GO TO 12721-JUST-CODE.                                   RPTRT19 
00454      IF FLD1922020-CODES (SUB3) EQUAL TO UNIT-TYPE                RPTRT19 
00455          GO TO 12724-EXTRACT-MNG.                                 RPTRT19 
00456      ADD 1 TO SUB3.                                               RPTRT19 
00457      GO TO 12723-NEXT-CODE-CK.                                    RPTRT19 
00458  12724-EXTRACT-MNG.                                               RPTRT19 
00459      MOVE FLD1922020-MNG (SUB3) TO FLD1922020-VAL.                RPTRT19 
00460 *                                                                 RPTRT19 
00461 *    OUTPUT 1ST DETAIL LINE.                                      RPTRT19 
00462 *                                                                 RPTRT19 
00463  12725-OUTPUT-LN1.                                                RPTRT19 
00464      IF CAT19220-LINE1 EQUAL TO SPACES                            RPTRT19 
00465          GO TO 12730-FMT-FLDIDX.                                  RPTRT19 
00466      MOVE CAT19220-LINE1 TO STDRPT-70CHR.                         RPTRT19 
00467      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00468 *                                                                 RPTRT19 
00469 *    FORMAT 2ND DISPLAY LINE                                      RPTRT19 
00470 *                                                                 RPTRT19 
00471  12730-FMT-FLDIDX.                                                RPTRT19 
00472      MOVE SPACES TO CAT19220-LINE2.                               RPTRT19 
00473 *                                                                 RPTRT19 
00474 *                                                                 RPTRT19 
00475 *    FORMAT INDEX FIELD HEADING                                   RPTRT19 
00476 *                                                                 RPTRT19 
00477  12735-FMT-FLDIDX.                                                RPTRT19 
00478      MOVE FLD19220IDX-HCON TO FLD19220IDX-HDG.                    RPTRT19 
00479 *                                                                 RPTRT19 
00480 *    FORMAT INDEX UNIT FIELD                                      RPTRT19 
00481 *                                                                 RPTRT19 
00482      IF UNIT-IDX-UNIT EQUAL TO SPACES                             RPTRT19 
00483          GO TO 12740-FMT-FLD30.                                   RPTRT19 
00484          MOVE FLD1922025-HCON TO FLD1922025-HDG.                     CL**2
00485          MOVE UNIT-IDX-UNIT   TO FLD1922025-VAL.                     CL**2
00486 *                                                                 RPTRT19 
00487 *    FORMAT INDEX VOLUME SERIAL FIELD                             RPTRT19 
00488 *                                                                 RPTRT19 
00489  12740-FMT-FLD30.                                                 RPTRT19 
00490      IF UNIT-IDX-VOLSER EQUAL TO SPACES                           RPTRT19 
00491          GO TO 12745-FMT-FLD35.                                   RPTRT19 
00492      MOVE FLD1922030-HCON TO FLD1922030-HDG.                      RPTRT19 
00493      MOVE UNIT-IDX-VOLSER TO FLD1922030-VAL.                      RPTRT19 
00494 *                                                                 RPTRT19 
00495 *    FORMAT INDEX SPACE FIELD                                     RPTRT19 
00496 *                                                                 RPTRT19 
00497  12745-FMT-FLD35.                                                 RPTRT19 
00498      IF UNIT-IDX-SPACE EQUAL TO SPACES                            RPTRT19 
00499          GO TO 12750-FMT-FLD40.                                   RPTRT19 
00500      MOVE FLD1922035-HCON TO FLD1922035-HDG.                      RPTRT19 
00501      MOVE  UNIT-IDX-SPACE TO FLD1922035-VAL.                      RPTRT19 
00502 *                                                                 RPTRT19 
00503 *    FORMAT INDEX UNIT TYPE FIELD                                 RPTRT19 
00504 *                                                                 RPTRT19 
00505  12750-FMT-FLD40.                                                 RPTRT19 
00506      IF UNIT-IDX-TYPE EQUAL TO SPACES                             RPTRT19 
00507          GO TO 12755-OUTPUT-LN2.                                  RPTRT19 
00508      GO TO 12752-INTERPRET-CODE.                                  RPTRT19 
00509  12751-JUST-CODE.                                                 RPTRT19 
00510      MOVE UNIT-IDX-TYPE TO FLD1922040-POS1.                       RPTRT19 
00511          GO TO 12755-OUTPUT-LN2.                                  RPTRT19 
00512  12752-INTERPRET-CODE.                                            RPTRT19 
00513      MOVE 01 TO SUB3.                                             RPTRT19 
00514  12753-NEXT-CODE-CK.                                              RPTRT19 
00515      IF FLD1922040-CODES (SUB3) EQUAL TO "9"                      RPTRT19 
00516          GO TO 12751-JUST-CODE.                                   RPTRT19 
00517      IF FLD1922040-CODES (SUB3) EQUAL TO UNIT-IDX-TYPE            RPTRT19 
00518          GO TO 12754-EXTRACT-MNG.                                 RPTRT19 
00519      ADD 1 TO SUB3.                                               RPTRT19 
00520      GO TO 12753-NEXT-CODE-CK.                                    RPTRT19 
00521  12754-EXTRACT-MNG.                                               RPTRT19 
00522      MOVE FLD1922040-MNG (SUB3) TO FLD1922040-VAL.                RPTRT19 
00523 *                                                                 RPTRT19 
00524 *    OUTPUT 2ND DETAIL LINE                                       RPTRT19 
00525 *                                                                 RPTRT19 
00526  12755-OUTPUT-LN2.                                                RPTRT19 
00527      IF CAT19220-LINE2 EQUAL TO SPACES                            RPTRT19 
00528          GO TO 12760-FMT-FLDOVFL.                                 RPTRT19 
00529      MOVE CAT19220-LINE2 TO STDRPT-70CHR.                         RPTRT19 
00530      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00531 *                                                                 RPTRT19 
00532 *    FORMAT 3RD DISPLAY LINE                                      RPTRT19 
00533 *                                                                 RPTRT19 
00534  12760-FMT-FLDOVFL.                                               RPTRT19 
00535      MOVE SPACES TO CAT19220-LINE3.                               RPTRT19 
00536 *                                                                 RPTRT19 
00537 *    FORMAT OVERFLOW SETD HEADING.                                RPTRT19 
00538 *                                                                 RPTRT19 
00539  12765-FMT-FLDOVFL.                                               RPTRT19 
00540      MOVE FLD19220OVFL-HCON TO FLD19220OVFL-HDG.                  RPTRT19 
00541 *                                                                 RPTRT19 
00542 *    FORMAT OVERFLOW UNIT FIELD                                   RPTRT19 
00543 *                                                                 RPTRT19 
00544      IF UNIT-OVF-UNIT EQUAL TO SPACES                             RPTRT19 
00545          GO TO 12770-FMT-FLD50.                                   RPTRT19 
00546      MOVE FLD1922045-HCON TO FLD1922045-HDG.                      RPTRT19 
00547      MOVE UNIT-OVF-UNIT TO FLD1922045-VAL.                        RPTRT19 
00548 *                                                                 RPTRT19 
00549 *    FORMAT OVERFLOW VOLUME SERIAL FIELD                          RPTRT19 
00550 *                                                                 RPTRT19:  
00551  12770-FMT-FLD50.                                                 RPTRT19 
00552      IF UNIT-OVF-VOLSER EQUAL TO SPACES                           RPTRT19 
00553          GO TO 12775-FMT-FLD55.                                   RPTRT19 
00554      MOVE FLD1922050-HCON TO FLD1922050-HDG.                      RPTRT19 
00555      MOVE UNIT-OVF-VOLSER TO FLD1922050-VAL.                      RPTRT19 
00556 *                                                                 RPTRT19 
00557 *    FORMAT OVERFLOW SPACE FIELD                                  RPTRT19 
00558 *                                                                 RPTRT19 
00559  12775-FMT-FLD55.                                                 RPTRT19 
00560      IF UNIT-OVF-SPACE EQUAL TO SPACES                            RPTRT19 
00561          GO TO 12780-FMT-FLD60.                                   RPTRT19 
00562      MOVE FLD1922055-HCON TO FLD1922055-HDG.                      RPTRT19 
00563      MOVE UNIT-OVF-SPACE TO FLD1922055-VAL.                       RPTRT19 
00564 *                                                                 RPTRT19 
00565 *    FORMAT OVERFLOW UNIT TYPE FIELD                              RPTRT19 
00566 *                                                                 RPTRT19 
00567  12780-FMT-FLD60.                                                 RPTRT19 
00568      IF UNIT-OVF-TYPE EQUAL TO SPACES                             RPTRT19 
00569          GO TO 12785-OUTPUT-LN3.                                  RPTRT19 
00570      GO TO 12782-INTERPRET-CODE.                                  RPTRT19 
00571  12781-JUST-CODE.                                                 RPTRT19 
00572      MOVE UNIT-OVF-TYPE TO FLD1922060-POS1.                       RPTRT19 
00573      GO TO 12785-OUTPUT-LN3.                                      RPTRT19 
00574  12782-INTERPRET-CODE.                                            RPTRT19 
00575      MOVE 01 TO SUB3.                                             RPTRT19 
00576  12783-NEXT-CODE-CK.                                              RPTRT19 
00577      IF FLD1922060-CODES (SUB3) EQUAL TO "9"                      RPTRT19 
00578          GO TO 12781-JUST-CODE.                                   RPTRT19 
00579      IF FLD1922060-CODES (SUB3) EQUAL TO UNIT-OVF-TYPE            RPTRT19 
00580          GO TO 12784-EXTRACT-MNG.                                 RPTRT19 
00581      ADD 1 TO SUB3.                                               RPTRT19 
00582      GO TO 12783-NEXT-CODE-CK.                                    RPTRT19 
00583  12784-EXTRACT-MNG.                                               RPTRT19 
00584      MOVE FLD1922060-MNG (SUB3) TO FLD1922060-VAL.                RPTRT19 
00585 *                                                                 RPTRT19 
00586 *    OUTPUT 3RD DISPLAY LINE                                      RPTRT19 
00587 *                                                                 RPTRT19 
00588  12785-OUTPUT-LN3.                                                RPTRT19 
00589      IF CAT19220-LINE3 EQUAL TO SPACES                            RPTRT19 
00590          GO TO 12790-FMT-CAT220-XIT.                              RPTRT19 
00591      MOVE CAT19220-LINE3 TO STDRPT-70CHR.                         RPTRT19 
00592      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00593  12790-FMT-CAT220-XIT.                                            RPTRT19 
00594      EXIT.                                                        RPTRT19 
00595                                                                    RPTRT19
00596 ******************************************************************RPTRT19 
00597 *                                                                 RPTRT19 
00598 *     CATEGORY 245 DETAIL LINES                                   RPTRT19 
00599 *          CATEGORY 245 = ENVIRONMENT                             RPTRT19 
00600 *                                                                 RPTRT19 
00601 ******************************************************************RPTRT19 
00602  1900-FMT-CAT245.                                                 RPTRT19 
00603      MOVE SPACES TO CAT19245-LINE1.                                  CL**2
00604 *                                                                 RPTRT19 
00605 *     FORMAT DEVICE FIELD                                         RPTRT19 
00606 *                                                                 RPTRT19 
00607  1905-FMT-FLD05.                                                  RPTRT19 
00608       IF ENV-DEVICE EQUAL TO SPACES                               RPTRT19 
00609          GO TO 1910-FMT-FLD10.                                    RPTRT19 
00610       MOVE FLD1924505-HCON TO FLD1924505-HDG.                     RPTRT19 
00611       MOVE ENV-DEVICE TO FLD1924505-VAL.                          RPTRT19 
00612 *                                                                 RPTRT19 
00613 *     FORMAT TRECS FIELD                                          RPTRT19 
00614 *                                                                 RPTRT19 
00615  1910-FMT-FLD10.                                                  RPTRT19 
00616      IF ENV-TRECS EQUAL TO SPACES                                 RPTRT19 
00617          GO TO 1915-FMT-FLD15.                                    RPTRT19 
00618      MOVE FLD1924510-HCON TO FLD1924510-HDG.                      RPTRT19 
00619      MOVE ENV-TRECS TO FLD1924510-VAL.                            RPTRT19 
00620 *                                                                 RPTRT19 
00621 *     FORMAT TRACK FIELD                                          RPTRT19 
00622 *                                                                 RPTRT19 
00623  1915-FMT-FLD15.                                                  RPTRT19 
00624      IF ENV-TRACK EQUAL TO SPACES                                 RPTRT19 
00625          GO TO 1920-OUTPUT-LINE1.                                 RPTRT19 
00626      MOVE FLD1924515-HCON TO FLD1924515-HDG.                      RPTRT19 
00627      MOVE ENV-TRACK TO FLD1924515-VAL.                               CL**2
00628 *                                                                 RPTRT19 
00629 *    OUTPUT 1ST LINE                                              RPTRT19 
00630 *                                                                 RPTRT19 
00631  1920-OUTPUT-LINE1.                                               RPTRT19 
00632      IF CAT19245-LINE1 EQUAL TO SPACES                            RPTRT19 
00633          GO TO 1925-FMT-FLD20.                                    RPTRT19 
00634      MOVE CAT19245-LINE1 TO STDRPT-70CHR.                         RPTRT19 
00635      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19:  
00636 *                                                                 RPTRT19 
00637 *     FORMAT LENGTH FIELD                                         RPTRT19 
00638 *                                                                 RPTRT19 
00639  1925-FMT-FLD20.                                                  RPTRT19 
00640      MOVE SPACES TO CAT19245-LINE2.                               RPTRT19 
00641      IF ENV-LENGTH EQUAL TO SPACES                                RPTRT19 
00642          GO TO 1930-FMT-FLD25.                                    RPTRT19 
00643      MOVE FLD1924520-HCON TO FLD1924520-HDG.                      RPTRT19 
00644      MOVE ENV-LENGTH TO FLD1924520-VAL.                           RPTRT19 
00645 *                                                                 RPTRT19 
00646 *     FORMAT BLOCK FIELD                                          RPTRT19 
00647 *                                                                 RPTRT19 
00648  1930-FMT-FLD25.                                                  RPTRT19 
00649      IF ENV-BLOCK EQUAL TO SPACES                                 RPTRT19 
00650          GO TO 1935-FMT-FLD30.                                    RPTRT19 
00651      MOVE FLD1924525-HCON TO FLD1924525-HDG.                      RPTRT19 
00652      MOVE ENV-BLOCK TO FLD1924525-VAL.                            RPTRT19 
00653 *                                                                 RPTRT19 
00654 *     FORMAT DISK FIELD                                           RPTRT19 
00655 *                                                                 RPTRT19 
00656  1935-FMT-FLD30.                                                  RPTRT19 
00657      IF ENV-DISK EQUAL TO SPACES                                  RPTRT19 
00658          GO TO 1940-OUTPUT-LINE2.                                 RPTRT19 
00659      MOVE FLD1924530-HCON TO FLD1924530-HDG.                      RPTRT19 
00660      MOVE ENV-DISK TO FLD1924530-VAL.                             RPTRT19 
00661 *                                                                 RPTRT19 
00662 *     OUTPUT 2ND LINE                                             RPTRT19 
00663 *                                                                 RPTRT19 
00664  1940-OUTPUT-LINE2.                                               RPTRT19 
00665      IF CAT19245-LINE2 EQUAL TO SPACES                            RPTRT19 
00666          GO TO 1945-FMT-FLD35.                                    RPTRT19 
00667       MOVE CAT19245-LINE2 TO STDRPT-70CHR.                        RPTRT19 
00668      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00669 *                                                                 RPTRT19 
00670 *     FORMAT LOAD FIELD                                           RPTRT19 
00671 *                                                                 RPTRT19 
00672  1945-FMT-FLD35.                                                  RPTRT19 
00673      MOVE SPACES TO CAT19245-LINE3.                                  CL**2
00674      IF ENV-LOAD EQUAL TO SPACES                                  RPTRT19 
00675          GO TO 1950-FMT-FLD40.                                    RPTRT19 
00676      MOVE FLD1924535-HCON TO FLD1924535-HDG.                      RPTRT19 
00677      MOVE ENV-LOAD TO FLD1924535-VAL.                             RPTRT19 
00678 *                                                                 RPTRT19 
00679 *     FORMAT FILE FIELD                                           RPTRT19 
00680 *                                                                 RPTRT19 
00681  1950-FMT-FLD40.                                                  RPTRT19 
00682      IF ENV-FILE EQUAL TO SPACES                                  RPTRT19 
00683          GO TO 1975-FMT-FLD45.                                    RPTRT19 
00684      MOVE FLD1924540-HCON TO FLD1924540-HDG.                         CL**2
00685          GO TO 1960-INTERPRET-CODE.                               RPTRT19 
00686  1955-JUST-CODE.                                                  RPTRT19 
00687      MOVE ENV-FILE TO FLD1924540-POS1.                            RPTRT19 
00688          GO TO 1975-FMT-FLD45.                                       CL**2
00689  1960-INTERPRET-CODE.                                             RPTRT19 
00690      MOVE 01 TO SUB3.                                             RPTRT19 
00691  1965-NEXT-CODE-CK.                                               RPTRT19 
00692      IF FLD1924540-CODES (SUB3) EQUAL TO "9"                      RPTRT19 
00693          GO TO 1955-JUST-CODE.                                    RPTRT19 
00694      IF FLD1924540-CODES (SUB3) EQUAL TO ENV-FILE                 RPTRT19 
00695          GO TO 1970-EXTRACT-MNG.                                  RPTRT19 
00696      ADD 1 TO SUB3.                                               RPTRT19 
00697      GO TO 1965-NEXT-CODE-CK.                                     RPTRT19 
00698  1970-EXTRACT-MNG.                                                RPTRT19 
00699      MOVE FLD1924540-MNG (SUB3) TO FLD1924540-VAL.                RPTRT19 
00700 *                                                                 RPTRT19 
00701 *     FORMAT START FIELD                                          RPTRT19 
00702 *                                                                 RPTRT19 
00703  1975-FMT-FLD45.                                                  RPTRT19 
00704      IF ENV-START EQUAL TO SPACES                                 RPTRT19 
00705          GO TO 1980-FMT-FLD50.                                    RPTRT19 
00706      MOVE FLD1924545-HCON TO FLD1924545-HDG.                      RPTRT19 
00707      MOVE ENV-START TO FLD1924545-VAL.                            RPTRT19 
00708 *                                                                 RPTRT19 
00709 *     FORMAT VTOC FIELD                                           RPTRT19 
00710 *                                                                 RPTRT19 
00711  1980-FMT-FLD50.                                                  RPTRT19 
00712      IF ENV-VTOC EQUAL TO SPACES                                  RPTRT19 
00713          GO TO 1985-OUTPUT-LINE3.                                 RPTRT19 
00714      MOVE FLD1924550-HCON TO FLD1924550-HDG.                      RPTRT19 
00715      MOVE ENV-VTOC TO FLD1924550-VAL.                             RPTRT19 
00716 *                                                                 RPTRT19 
00717 *     OUTPUT 3RD LINE                                             RPTRT19 
00718 *                                                                 RPTRT19 
00719  1985-OUTPUT-LINE3.                                               RPTRT19 
00720      IF CAT19245-LINE3 EQUAL TO SPACES                            RPTRT19 
00721          GO TO 1999-FMT-CAT19245-XIT.                             RPTRT19 
00722      MOVE CAT19245-LINE3 TO STDRPT-70CHR.                         RPTRT19 
00723      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00724  1999-FMT-CAT19245-XIT.                                           RPTRT19 
00725      EXIT.                                                        RPTRT19 
00726                                                                    RPTRT19
00727 ******************************************************************RPTRT19 
00728 *                                                                 RPTRT19 
00729 *    FORMAT CATEGORY 300 DETAIL-LINE5                             RPTRT19 
00730 *        CATEGORY 300 = STRUCTURE                                 RPTRT19 
00731 *                                                                 RPTRT19 
00732 ******************************************************************RPTRT19 
00733  12800-FMT-CAT300.                                                RPTRT19 
00734      MOVE SPACES TO CAT19300-LINE1.                               RPTRT19 
00735 *                                                                 RPTRT19 
00736 *    FORMAT CATEGORY HEADING LINES                                RPTRT19 
00737 *                                                                 RPTRT19 
00738      IF FIRST-REC-SW EQUAL TO "N"                                 RPTRT19 
00739          GO TO 12804-CHECK-COMMENT.                               RPTRT19 
00740      MOVE "N" TO FIRST-REC-SW.                                    RPTRT19 
00741      MOVE FLD1930005-HCON TO FLD1930005-HDG.                      RPTRT19 
00742      MOVE FLD1930010-HCON TO FLD1930010-HDG.                      RPTRT19 
00743      MOVE FLD1930015-HCON TO FLD1930015-HDG.                      RPTRT19 
00744      MOVE FLD1930020-HCON TO FLD1930020-HDG.                      RPTRT19 
00745      MOVE FLD1930025-HCON TO FLD1930025-HDG.                      RPTRT19 
00746 *                                                                 RPTRT19 
00747 *    OUTPUT 1ST DETAIL LINE                                       RPTRT19 
00748 *                                                                 RPTRT19 
00749      MOVE CAT19300-LINE1 TO STDRPT-70CHR.                         RPTRT19 
00750      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00751      MOVE 1 TO PRT-CTL.                                           RPTRT19 
00752      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00753      MOVE CAT-REV  TO STDRPT-REVNO.                               RPTRT19 
00754      MOVE CAT-LINE TO STDRPT-LINE.                                RPTRT19 
00755 *                                                                 RPTRT19 
00756 *    FORMAT CATEGORY NAME FIELD                                   RPTRT19 
00757 *                                                                 RPTRT19 
00758  12804-CHECK-COMMENT.                                             RPTRT19 
00759      IF CAT-COMMENT NOT EQUAL TO "*"                              RPTRT19 
00760          GO TO 12805-FMT-FLD05.                                   RPTRT19 
00761      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.            RPTRT19 
00762      GO TO 12860-FMT-CAT300-XIT.                                  RPTRT19 
00763  12805-FMT-FLD05.                                                 RPTRT19 
00764      MOVE SPACES TO CAT19300-LINE2.                               RPTRT19 
00765      IF STC-SET-CNAME EQUAL TO SPACES                             RPTRT19 
00766          GO TO 12810-FMT-FLD10.                                   RPTRT19 
00767      MOVE STC-SET-CNAME TO FLD1930005-VAL.                        RPTRT19 
00768 *                                                                 RPTRT19 
00769 *    FORMAT TYPE FIELD                                            RPTRT19 
00770 *                                                                 RPTRT19 
00771  12810-FMT-FLD10.                                                 RPTRT19 
00772      IF STC-SET-TYPE EQUAL TO SPACES                              RPTRT19 
00773          GO TO 12820-FMT-FLD15.                                   RPTRT19 
00774      MOVE STC-SET-TYPE TO FLD1930010-VAL.                         RPTRT19 
00775 *                                                                 RPTRT19 
00776 *    FORMAT FREQUENCY FIELD                                       RPTRT19 
00777 *                                                                 RPTRT19 
00778  12820-FMT-FLD15.                                                 RPTRT19 
00779      IF STC-SET-FREQ EQUAL TO SPACES                              RPTRT19 
00780          GO TO 12830-FMT-FLD20.                                   RPTRT19 
00781      MOVE STC-SET-FREQ TO FLD1930015-VAL.                         RPTRT19 
00782 *                                                                 RPTRT19 
00783 *    FORMAT SEG NO. FIELD                                         RPTRT19 
00784 *                                                                 RPTRT19 
00785  12830-FMT-FLD20.                                                 RPTRT19 
00786      IF STC-SET-SEGNO EQUAL TO SPACES                             RPTRT19 
00787          GO TO 12840-FMT-FLD25.                                   RPTRT19 
00788      MOVE STC-SET-SEGNO TO FLD1930020-VAL.                        RPTRT19 
00789 *                                                                 RPTRT19 
00790 *    FORMAT LEVEL NO. FIELD                                       RPTRT19 
00791 *                                                                 RPTRT19 
00792  12840-FMT-FLD25.                                                 RPTRT19 
00793      IF STC-SET-LEVNO EQUAL TO SPACES                             RPTRT19 
00794          GO TO 12850-OUTPUT-LN2.                                  RPTRT19 
00795      MOVE STC-SET-LEVNO TO FLD1930025-VAL.                        RPTRT19 
00796 *                                                                 RPTRT19 
00797 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT19 
00798 *                                                                 RPTRT19 
00799  12850-OUTPUT-LN2.                                                RPTRT19 
00800      IF CAT19300-LINE2 EQUAL TO SPACES                            RPTRT19 
00801          GO TO 12860-FMT-CAT300-XIT.                              RPTRT19 
00802      MOVE CAT-REV TO STDRPT-REVNO.                                RPTRT19 
00803      MOVE CAT-LINE TO STDRPT-LINE.                                RPTRT19 
00804      MOVE CAT19300-LINE2 TO STDRPT-70CHR.                         RPTRT19 
00805      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT19 
00806  12860-FMT-CAT300-XIT.                                            RPTRT19 
00807      EXIT.                                                        RPTRT19 
00808                                                                    RPTRT19
