*COMDECK  RPTRT20 
00001 ******************************************************************06/08/78
00002 *                                                                 RPTRT20 
00003 *    FORMAT CATEGORY 140 DETAIL LINE                                 LV001
00004 *        CATEGORY 140 = RESPONSIBILITY                            RPTRT20 
00005 *                                                                 RPTRT20 
00006 ******************************************************************RPTRT20 
00007  5500-FMT-CAT140.                                                 RPTRT20 
00008      MOVE SPACES TO CAT20140-LINE1.                               RPTRT20 
00009 *                                                                 RPTRT20 
00010 *    FORMAT STATUS FIELD                                          RPTRT20 
00011 *                                                                 RPTRT20 
00012  5505-FMT-FLD05.                                                  RPTRT20 
00013      IF RESP-STATUS EQUAL TO SPACES                               RPTRT20 
00014          GO TO 5550-FMT-FLD10.                                    RPTRT20 
00015      MOVE FLD2014005-HCON TO FLD2014005-HDG.                      RPTRT20 
00016          GO TO 5520-INTERPRET-CODE.                                  CL**2
00017  5510-JUST-CODE.                                                  RPTRT20 
00018      MOVE RESP-STATUS TO FLD2014005-POS1.                         RPTRT20 
00019          GO TO 5550-FMT-FLD10.                                    RPTRT20 
00020  5520-INTERPRET-CODE.                                             RPTRT20 
00021      MOVE 01 TO SUB3.                                             RPTRT20 
00022  5530-NEXT-CODE-CK.                                               RPTRT20 
00023      IF FLD2014005-CODES (SUB3) EQUAL TO "9"                      RPTRT20 
00024          GO TO 5510-JUST-CODE.                                    RPTRT20 
00025      IF FLD2014005-CODES (SUB3) EQUAL TO RESP-STATUS              RPTRT20 
00026          GO TO 5540-EXTRACT-MNG.                                  RPTRT20 
00027      ADD 1 TO SUB3.                                               RPTRT20 
00028      GO TO 5530-NEXT-CODE-CK.                                     RPTRT20 
00029  5540-EXTRACT-MNG.                                                RPTRT20 
00030      MOVE FLD2014005-MNG (SUB3) TO FLD2014005-VAL.                RPTRT20 
00031 *                                                                 RPTRT20 
00032 *    FORMAT FUNCTION FIELD                                        RPTRT20 
00033 *                                                                 RPTRT20 
00034  5550-FMT-FLD10.                                                  RPTRT20 
00035      IF RESP-FUNC EQUAL TO SPACES                                 RPTRT20 
00036          GO TO 5600-FMT-FLD25.                                    RPTRT20 
00037      MOVE FLD2014010-HCON TO FLD2014010-HDG.                         CL**2
00038          GO TO 5570-INTERPRET-CODE.                               RPTRT20 
00039  5560-JUST-CODE.                                                  RPTRT20 
00040      MOVE RESP-FUNC TO FLD2014010-POS1.                           RPTRT20 
00041          GO TO 5600-FMT-FLD25.                                    RPTRT20 
00042  5570-INTERPRET-CODE.                                             RPTRT20 
00043      MOVE 01 TO SUB3.                                             RPTRT20 
00044  5580-NEXT-CODE-CK.                                               RPTRT20 
00045      IF FLD2014010-CODES (SUB3) EQUAL TO "9"                      RPTRT20 
00046          GO TO 5560-JUST-CODE.                                    RPTRT20 
00047      IF FLD2014010-CODES (SUB3) EQUAL TO RESP-FUNC                RPTRT20 
00048          GO TO 5590-EXTRACT-MNG.                                  RPTRT20 
00049      ADD 1 TO SUB3.                                               RPTRT20 
00050      GO TO 5580-NEXT-CODE-CK.                                     RPTRT20 
00051  5590-EXTRACT-MNG.                                                   CL**2
00052      MOVE FLD2014010-MNG (SUB3) TO FLD2014010-VAL.                RPTRT20 
00053 *                                                                 RPTRT20 
00054 *    FORMAT PHONE FIELD                                           RPTRT20 
00055 *                                                                 RPTRT20 
00056  5600-FMT-FLD25.                                                  RPTRT20 
00057      IF RESP-PHONE EQUAL TO SPACES                                RPTRT20 
00058          GO TO 5610-FMT-FLD35.                                    RPTRT20 
00059      MOVE FLD2014025-HCON TO FLD2014025-HDG.                      RPTRT20 
00060      MOVE RESP-PHONE TO FLD2014025-VAL.                           RPTRT20 
00061 *                                                                 RPTRT20 
00062 *    FORMAT MAIL FIELD                                            RPTRT20 
00063 *                                                                 RPTRT20 
00064  5610-FMT-FLD35.                                                  RPTRT20 
00065      IF RESP-MAIL EQUAL TO SPACES                                 RPTRT20 
00066          GO TO 5620-OUTPUT-LN1.                                   RPTRT20 
00067      MOVE FLD2014035-HCON TO FLD2014035-HDG.                      RPTRT20 
00068      MOVE RESP-MAIL TO FLD2014035-VAL.                            RPTRT20 
00069 *                                                                 RPTRT20 
00070 *    OUTPUT DISPLAY LINE                                          RPTRT20 
00071 *                                                                 RPTRT20 
00072  5620-OUTPUT-LN1.                                                 RPTRT20 
00073      IF CAT20140-LINE1 EQUAL TO SPACES                               CL**2
00074          GO TO 5630-FMT-FLD15.                                    RPTRT20 
00075      MOVE CAT20140-LINE1 TO STDRPT-70CHR.                         RPTRT20 
00076      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT20 
00077 *                                                                 RPTRT20 
00078 *    FORMAT 2ND DISPLAY LINE                                      RPTRT20 
00079 *                                                                 RPTRT20 
00080  5630-FMT-FLD15.                                                  RPTRT20 
00081      MOVE SPACES TO CAT20140-LINE2.                                  CL**2
00082 *                                                                 RPTRT20 
00083 *    FORMAT DEPARTMENT FIELD                                      RPTRT20 
00084 *                                                                 RPTRT20 
00085      IF RESP-DEPT EQUAL TO SPACES                                    CL**2
00086          GO TO 5640-FMT-FLD40.                                       CL**2
00087      MOVE FLD2014015-HCON TO FLD2014015-HDG.                      RPTRT20 
00088      MOVE RESP-DEPT TO FLD2014015-VAL.                               CL**2
00089 *                                                                    CL**2
00090 *    FORMAT DATE FIELD                                            RPTRT20 
00091 *                                                                    CL**2
00092  5640-FMT-FLD40.                                                     CL**2
00093      IF RESP-DATE EQUAL TO SPACES                                 RPTRT20 
00094          GO TO 5650-OUTPUT-LN2.                                      CL**2
00095      MOVE FLD2014040-HCON TO FLD2014040-HDG.                         CL**2
00096      MOVE RESP-DATE TO FLD2014040-VAL.                            RPTRT20 
00097 *                                                                    CL**2
00098 *    OUTPUT 2ND DISPLAY LINE                                         CL**2
00099 *                                                                    CL**2
00100  5650-OUTPUT-LN2.                                                 RPTRT20 
00101      IF CAT20140-LINE2 EQUAL TO SPACES                               CL**2
00102          GO TO 5660-FMT-FLD20.                                       CL**2
00103      MOVE CAT20140-LINE2 TO STDRPT-70CHR.                            CL**2
00104      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00105 *                                                                    CL**2
00106 *    FORMAT 3RD DISPLAY LINE                                         CL**2
00107 *                                                                    CL**2
00108  5660-FMT-FLD20.                                                     CL**2
00109      MOVE SPACES TO CAT20140-LINE3.                                  CL**2
00110 *                                                                    CL**2
00111 *    FORMAT PERSON FIELD                                             CL**2
00112 *                                                                    CL**2
00113      IF RESP-PERSON EQUAL TO SPACES                                  CL**2
00114          GO TO 5670-FMT-FLD30.                                       CL**2
00115      MOVE FLD2014020-HCON TO FLD2014020-HDG.                         CL**2
00116      MOVE RESP-PERSON TO FLD2014020-VAL.                          RPTRT20 
00117 *                                                                 RPTRT20 
00118 *    FORMAT TITLE FIELD                                           RPTRT20 
00119 *                                                                 RPTRT20 
00120  5670-FMT-FLD30.                                                  RPTRT20 
00121      IF RESP-TITLE EQUAL TO SPACES                                RPTRT20 
00122          GO TO 5680-OUTPUT-LN3.                                   RPTRT20 
00123      MOVE FLD2014030-HCON TO FLD2014030-HDG.                         CL**2
00124      MOVE RESP-TITLE TO FLD2014030-VAL.                              CL**2
00125 *                                                                    CL**2
00126 *    OUTPUT 3RD DISPLAY LINE                                         CL**2
00127 *                                                                    CL**2
00128  5680-OUTPUT-LN3.                                                 RPTRT20 
00129      IF CAT20140-LINE3 EQUAL TO SPACES                            RPTRT20 
00130          GO TO 5690-FMT-CAT140-XIT.                               RPTRT20 
00131      MOVE CAT20140-LINE3 TO STDRPT-70CHR.                         RPTRT20 
00132      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT20 
00133  5690-FMT-CAT140-XIT.                                             RPTRT20 
00134      EXIT.                                                        RPTRT20 
00135                                                                    RPTRT20
00136 ******************************************************************RPTRT20 
00137 *                                                                 RPTRT20 
00138 *    FORMAT CATEGORY 200 DETAIL LINES                             RPTRT20 
00139 *        CATEGORY 200 = NAMES                                     RPTRT20 
00140 *                                                                 RPTRT20 
00141 ******************************************************************RPTRT20 
00142  12200-FMT-CAT200.                                                RPTRT20 
00143      MOVE SPACES TO CAT20200-LINE1.                               RPTRT20 
00144 *                                                                 RPTRT20 
00145 *    FORMAT FDNAME FIELD                                          RPTRT20 
00146 *                                                                 RPTRT20 
00147  12205-FMT-FLD05.                                                 RPTRT20 
00148      IF NAME-FILE-FD EQUAL TO SPACES                              RPTRT20 
00149          GO TO 12220-FMT-FLD20.                                   RPTRT20 
00150      MOVE FLD2020005-HCON TO FLD2020005-HDG.                      RPTRT20 
00151      MOVE NAME-FILE-FD TO FLD2020005-VAL.                         RPTRT20 
00152 *                                                                    CL**2
00153 *    OUTPUT 1ST DISPLAY LINE                                         CL**2
00154 *                                                                    CL**2
00155  12210-OUTPUT-LN1.                                                RPTRT20 
00156      IF CAT20200-LINE1 EQUAL TO SPACES                            RPTRT20 
00157          GO TO 12220-FMT-FLD20.                                   RPTRT20 
00158      MOVE CAT20200-LINE1 TO STDRPT-70CHR.                         RPTRT20 
00159      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT20 
00160 *                                                                    CL**2
00161 *    FORMAT 2ND DISPLAY LINE                                         CL**2
00162 *                                                                    CL**2
00163  12220-FMT-FLD20.                                                    CL**2
00164      MOVE SPACE TO CAT20200-LINE2.                                   CL**2
00165 *                                                                 RPTRT20 
00166 *    FORMAT DDNAME FIELD                                          RPTRT20 
00167 *                                                                 RPTRT20 
00168      IF NAME-FILE-DD EQUAL TO SPACES                              RPTRT20 
00169          GO TO 12230-FMT-FLD15.                                   RPTRT20 
00170      MOVE FLD2020020-HCON TO FLD2020020-HDG.                      RPTRT20 
00171      MOVE NAME-FILE-DD TO FLD2020020-VAL.                         RPTRT20 
00172 *                                                                 RPTRT20 
00173 *    FORMAT MEMBER NAME FIELD                                     RPTRT20 
00174 *                                                                 RPTRT20:  
00175  12230-FMT-FLD15.                                                 RPTRT20 
00176      IF NAME-FILE-MEMBER EQUAL TO SPACES                          RPTRT20 
00177          GO TO 12240-OUTPUT-LN2.                                  RPTRT20 
00178      MOVE FLD2020015-HCON TO FLD2020015-HDG.                      RPTRT20 
00179      MOVE NAME-FILE-MEMBER TO FLD2020015-VAL.                     RPTRT20 
00180 *                                                                    CL**2
00181 *    OUTPUT 2ND DISPLAY LINE                                         CL**2
00182 *                                                                    CL**2
00183  12240-OUTPUT-LN2.                                                RPTRT20 
00184      IF CAT20200-LINE2 EQUAL TO SPACES                            RPTRT20 
00185          GO TO 12250-FMT-FLD10.                                   RPTRT20 
00186      MOVE CAT20200-LINE2 TO STDRPT-70CHR.                         RPTRT20 
00187      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT20 
00188 *                                                                 RPTRT20 
00189 *    FORMAT 3RD DISPLAY LINE                                      RPTRT20 
00190 *                                                                    CL**2
00191  12250-FMT-FLD10.                                                 RPTRT20 
00192      MOVE SPACES TO CAT20200-LINE3.                               RPTRT20 
00193 *                                                                 RPTRT20 
00194 *    FORMAT DATA SET NAME FIELD                                   RPTRT20 
00195 *                                                                 RPTRT20 
00196      IF NAME-FILE-DS EQUAL TO SPACES                              RPTRT20 
00197          GO TO 12260-OUTPUT-LN3.                                  RPTRT20 
00198      MOVE FLD2020010-HCON TO FLD2020010-HDG.                      RPTRT20 
00199      MOVE NAME-FILE-DS TO FLD2020010-VAL.                         RPTRT20 
00200 *                                                                    CL**2
00201 *    OUTPUT 3RD DISPLAY LINE                                         CL**2
00202 *                                                                    CL**2
00203  12260-OUTPUT-LN3.                                                RPTRT20 
00204      IF CAT20200-LINE3 EQUAL TO SPACES                            RPTRT20 
               GO TO 12265-FMT-FLD35. 
00206      MOVE CAT20200-LINE3 TO STDRPT-70CHR.                         RPTRT20 
00207      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT20 
      * 
      *    FORMAT DMS NAME
      * 
       12265-FMT-FLD35. 
           MOVE SPACES TO CAT20200-LINE4
           IF NAME-FILE-DMS IS EQUAL TO SPACES
           THEN 
              GO TO 12270-FMT-CAT200-XIT
           ELSE 
              MOVE FLD2020035-HCON TO FLD2020035-HDG
              MOVE NAME-FILE-DMS TO FLD2020035-VAL
           END-IF.
00225 *                                                                    CL**2
00226 *    OUTPUT 4TH LINE                                                 CL**2
00227 *                                                                    CL**2
00228  12267-OUTPUT-LINE4.                                                 CL**2
00229      IF CAT20200-LINE4 EQUAL SPACE                                   CL**2
00230          GO TO 12270-FMT-CAT200-XIT.                                 CL**2
00231      MOVE CAT20200-LINE4 TO STDRPT-70CHR.                            CL**2
00232      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00233  12270-FMT-CAT200-XIT.                                            RPTRT20 
00234      EXIT.                                                        RPTRT20 
00235                                                                    RPTRT20
00236 ******************************************************************RPTRT20 
00237 *                                                                 RPTRT20 
00238 *    FORMAT CATEGORY 210 DETAIL LINE                              RPTRT20 
00239 *        CATEGORY 210 = ATTRIBUTES                                RPTRT20 
00240 *                                                                 RPTRT20 
00241 ******************************************************************RPTRT20 
00242  12500-FMT-CAT210.                                                RPTRT20 
00243      MOVE SPACES TO CAT20210-LINE1.                               RPTRT20 
00244 *                                                                 RPTRT20 
00245 *    FORMAT RECSIZE FIELD                                         RPTRT20 
00246 *                                                                 RPTRT20 
00247  12505-FMT-FLD05.                                                 RPTRT20 
00248      IF ATTR-FILE-RECSIZE EQUAL TO SPACES                         RPTRT20 
00249          GO TO 12510-FMT-FLD10.                                   RPTRT20 
00250      MOVE FLD2021005-HCON TO FLD2021005-HDG.                      RPTRT20 
00251      MOVE ATTR-FILE-RECSIZE TO FLD2021005-VAL.                    RPTRT20 
00252 *                                                                 RPTRT20 
00253 *    FORMAT BLKSIZE FIELD                                         RPTRT20 
00254 *                                                                 RPTRT20 
00255  12510-FMT-FLD10.                                                 RPTRT20 
00256      IF ATTR-FILE-BLKSIZE EQUAL TO SPACES                         RPTRT20 
00257          GO TO 12515-FMT-FLD15.                                   RPTRT20 
00258      MOVE FLD2021010-HCON TO FLD2021010-HDG.                      RPTRT20 
00259      MOVE ATTR-FILE-BLKSIZE TO FLD2021010-VAL.                    RPTRT20:  
00260 *                                                                 RPTRT20 
00261 *    FORMAT RECFM FIELD                                           RPTRT20 
00262 *                                                                 RPTRT20 
00263  12515-FMT-FLD15.                                                 RPTRT20 
00264      IF ATTR-FILE-RECFM EQUAL TO SPACES                           RPTRT20 
00265          GO TO 12520-FMT-FLD20.                                   RPTRT20 
00266      MOVE FLD2021015-HCON TO FLD2021015-HDG.                      RPTRT20 
00267      MOVE ATTR-FILE-RECFM TO FLD2021015-VAL.                      RPTRT20 
00268 *                                                                 RPTRT20 
00269 *    FORMAT DSORG FIELD                                           RPTRT20 
00270 *                                                                 RPTRT20 
00271  12520-FMT-FLD20.                                                 RPTRT20 
00272      IF ATTR-FILE-DSORG EQUAL TO SPACES                              CL**2
00273          GO TO 12525-FMT-FLD25.                                   RPTRT20 
00274      MOVE FLD2021020-HCON TO FLD2021020-HDG.                         CL**2
00275      MOVE ATTR-FILE-DSORG TO FLD2021020-VAL.                      RPTRT20 
00276 *                                                                 RPTRT20 
00277 *    FORMAT LABEL FIELD                                           RPTRT20 
00278 *                                                                 RPTRT20 
00279  12525-FMT-FLD25.                                                 RPTRT20 
00280      IF ATTR-FILE-LABEL EQUAL TO SPACES                           RPTRT20 
00281          GO TO 12530-OUTPUT-LN1.                                  RPTRT20 
00282      MOVE FLD2021025-HCON TO FLD2021025-HDG.                         CL**2
00283      MOVE ATTR-FILE-LABEL TO FLD2021025-VAL.                      RPTRT20 
00284 *                                                                 RPTRT20 
00285 *    OUTPUT DISPLAY LINE                                          RPTRT20 
00286 *                                                                 RPTRT20 
00287  12530-OUTPUT-LN1.                                                RPTRT20 
00288      IF CAT20210-LINE1 EQUAL TO SPACES                            RPTRT20 
00289          GO TO 12535-FMT-FLD40.                                   RPTRT20 
00290      MOVE CAT20210-LINE1 TO STDRPT-70CHR.                         RPTRT20 
00291      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT20 
00292 *                                                                 RPTRT20 
00293 *    FORMAT 2ND DISPLAY LINE                                      RPTRT20 
00294 *                                                                 RPTRT20 
00295  12535-FMT-FLD40.                                                 RPTRT20 
00296      MOVE SPACES TO CAT20210-LINE2.                               RPTRT20 
00297 *                                                                 RPTRT20 
00298 *    FORMAT ADDRESS MODE FIELD                                    RPTRT20 
00299 *                                                                 RPTRT20 
00300      IF ATTR-FILE-ADDR EQUAL TO SPACES                            RPTRT20 
00301          GO TO 12540-FMT-FLD45.                                   RPTRT20 
00302      MOVE FLD2021040-HCON TO FLD2021040-HDG.                      RPTRT20 
00303          GO TO 12537-INTERPRET-CODE.                              RPTRT20 
00304  12536-JUST-CODE.                                                 RPTRT20 
00305      MOVE ATTR-FILE-ADDR TO FLD2021040-POS1.                      RPTRT20 
00306          GO TO 12540-FMT-FLD45.                                   RPTRT20 
00307  12537-INTERPRET-CODE.                                            RPTRT20 
00308      MOVE 01 TO SUB3.                                             RPTRT20 
00309  12538-NEXT-CODE-CK.                                              RPTRT20 
00310      IF FLD2021040-CODES (SUB3) EQUAL TO "9"                      RPTRT20 
00311          GO TO 12536-JUST-CODE.                                      CL**2
00312      IF FLD2021040-CODES (SUB3) EQUAL TO ATTR-FILE-ADDR           RPTRT20 
00313          GO TO 12539-EXTRACT-MNG.                                    CL**2
00314      ADD 1 TO SUB3.                                                  CL**2
00315      GO TO 12538-NEXT-CODE-CK.                                    RPTRT20 
00316  12539-EXTRACT-MNG.                                               RPTRT20 
00317      MOVE FLD2021040-MNG (SUB3) TO FLD2021040-VAL.                RPTRT20 
00318 *                                                                 RPTRT20 
00319 *    FORMAT RMOD NAME FIELD                                       RPTRT20 
00320 *                                                                    CL**2
00321  12540-FMT-FLD45.                                                 RPTRT20 
00322      IF ATTR-FILE-RMOD EQUAL TO SPACES                            RPTRT20 
00323          GO TO 12545-OUTPUT-LN2.                                  RPTRT20 
00324      MOVE FLD2021045-HCON TO FLD2021045-HDG.                      RPTRT20 
00325      MOVE ATTR-FILE-RMOD TO FLD2021045-VAL.                       RPTRT20 
00326 *                                                                 RPTRT20 
00327 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT20 
00328 *                                                                 RPTRT20 
00329  12545-OUTPUT-LN2.                                                RPTRT20 
00330      IF CAT20210-LINE2 EQUAL TO SPACES                            RPTRT20 
00331          GO TO 12550-FMT-FLD50.                                   RPTRT20 
00332      MOVE CAT20210-LINE2 TO STDRPT-70CHR.                         RPTRT20 
00333      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT20 
00334 *                                                                 RPTRT20 
00335 *    FORMAT 3RD DISPLAY LINE                                      RPTRT20 
00336 *                                                                 RPTRT20 
00337  12550-FMT-FLD50.                                                 RPTRT20 
00338      MOVE SPACES TO CAT20210-LINE3.                               RPTRT20 
00339 *                                                                 RPTRT20 
00340 *    FORMAT KEY LENGTH FIELD                                      RPTRT20 
00341 *                                                                 RPTRT20 
00342      IF ATTR-FILE-KEYLEN EQUAL TO SPACES                          RPTRT20 
00343          GO TO 12555-FMT-FLD55.                                   RPTRT20 
00344      MOVE FLD2021050-HCON TO FLD2021050-HDG.                      RPTRT20 
00345      MOVE ATTR-FILE-KEYLEN TO FLD2021050-VAL.                        CL**2
00346 *                                                                 RPTRT20 
00347 *    FORMAT RECORD KEY POSITION FIELD                             RPTRT20 
00348 *                                                                 RPTRT20 
00349  12555-FMT-FLD55.                                                 RPTRT20 
00350      IF ATTR-FILE-RKP EQUAL TO SPACES                             RPTRT20 
00351          GO TO 12560-FMT-FLD60.                                   RPTRT20 
00352      MOVE FLD2021055-HCON TO FLD2021055-HDG.                      RPTRT20 
00353      MOVE ATTR-FILE-RKP TO FLD2021055-VAL.                        RPTRT20 
00354 *                                                                 RPTRT20 
00355 *    FORMAT CYLINDER OVERFLOW TRACKS FIELD                        RPTRT20 
00356 *                                                                 RPTRT20 
00357  12560-FMT-FLD60.                                                 RPTRT20 
00358      IF ATTR-FILE-CYLOFL EQUAL TO SPACES                          RPTRT20 
00359          GO TO 12565-FMT-FLD30.                                   RPTRT20 
00360      MOVE FLD2021060-HCON TO FLD2021060-HDG.                      RPTRT20 
00361      MOVE ATTR-FILE-CYLOFL TO FLD2021060-VAL.                     RPTRT20 
00362 *                                                                 RPTRT20 
00363 *    FORMAT DENSITY FIELD                                         RPTRT20 
00364 *                                                                 RPTRT20 
00365  12565-FMT-FLD30.                                                 RPTRT20 
00366      IF ATTR-FILE-DEN EQUAL TO SPACES                             RPTRT20 
00367          GO TO 12570-FMT-FLD35.                                   RPTRT20 
00368      MOVE FLD2021030-HCON TO FLD2021030-HDG.                      RPTRT20 
00369          GO TO 12567-INTERPRET-CODE.                              RPTRT20 
00370  12566-JUST-CODE.                                                 RPTRT20 
00371      MOVE ATTR-FILE-DEN TO FLD2021030-POS1.                       RPTRT20 
00372      GO TO 12570-FMT-FLD35.                                       RPTRT20 
00373  12567-INTERPRET-CODE.                                            RPTRT20 
00374      MOVE 01 TO SUB3.                                             RPTRT20 
00375  12568-NEXT-CODE-CK.                                              RPTRT20 
00376      IF FLD2021030-CODES (SUB3) EQUAL TO "9"                      RPTRT20 
00377          GO TO 12566-JUST-CODE.                                   RPTRT20 
00378      IF FLD2021030-CODES (SUB3) EQUAL TO ATTR-FILE-DEN            RPTRT20 
00379          GO TO 12569-EXTRACT-MNG.                                 RPTRT20 
00380      ADD 1 TO SUB3.                                               RPTRT20 
00381      GO TO 12568-NEXT-CODE-CK.                                    RPTRT20 
00382  12569-EXTRACT-MNG.                                               RPTRT20 
00383      MOVE FLD2021030-MNG (SUB3) TO FLD2021030-VAL.                RPTRT20 
00384 *                                                                 RPTRT20 
00385 *    FORMAT BUFFER FIELD                                          RPTRT20 
00386 *                                                                 RPTRT20 
00387  12570-FMT-FLD35.                                                 RPTRT20 
00388      IF ATTR-FILE-BUFF EQUAL TO SPACES                            RPTRT20 
00389          GO TO 12575-OUTPUT-LN3.                                  RPTRT20 
00390      MOVE FLD2021035-HCON TO FLD2021035-HDG.                      RPTRT20 
00391      MOVE ATTR-FILE-BUFF TO FLD2021035-VAL.                       RPTRT20 
00392 *                                                                 RPTRT20 
00393 *    OUTPUT 3RD DISPLAY LINE                                      RPTRT20 
00394 *                                                                 RPTRT20 
00395  12575-OUTPUT-LN3.                                                RPTRT20 
00396      IF CAT20210-LINE3 EQUAL TO SPACES                            RPTRT20 
00397          GO TO 12580-FMT-FLD70.                                   RPTRT20 
00398      MOVE CAT20210-LINE3 TO STDRPT-70CHR.                         RPTRT20 
00399      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT20 
00400 *                                                                 RPTRT20 
00401 *    FORMAT 4TH DISPLAY LINE                                      RPTRT20 
00402 *                                                                 RPTRT20 
00403  12580-FMT-FLD70.                                                 RPTRT20 
00404      MOVE SPACES TO CAT20210-LINE4.                               RPTRT20 
00405 *                                                                 RPTRT20 
00406 *    FORMAT OPTION CODE FIELD                                     RPTRT20 
00407 *                                                                 RPTRT20 
00408      IF ATTR-FILE-OPT EQUAL TO SPACES                                CL**2
00409              GO TO 12585-FMT-FLD75.                               RPTRT20 
00410      MOVE FLD2021070-HCON TO FLD2021070-HDG.                      RPTRT20 
00411      MOVE ATTR-FILE-OPT  TO FLD2021070-VAL.                          CL**2
00412 *                                                                 RPTRT20 
00413 *    FORMAT LIMIT COUNT FIELD                                     RPTRT20 
00414 *                                                                 RPTRT20 
00415  12585-FMT-FLD75.                                                 RPTRT20 
00416      IF ATTR-FILE-LIMCT EQUAL TO SPACES                              CL**2
00417          GO TO 12590-OUTPUT-LN4.                                  RPTRT20 
00418      MOVE FLD2021075-HCON TO FLD2021075-HDG.                      RPTRT20 
00419      MOVE ATTR-FILE-LIMCT TO FLD2021075-VAL.                         CL**2
00420 *                                                                 RPTRT20 
00421 *    OUTPUT 4TH DISPLAY LINE                                      RPTRT20 
00422 *                                                                 RPTRT20 
00423  12590-OUTPUT-LN4.                                                   CL**2
00424      IF CAT20210-LINE4 EQUAL TO SPACES                            RPTRT20 
00425          GO TO 12595-FMT-CAT210-XIT.                              RPTRT20 
00426      MOVE CAT20210-LINE4 TO STDRPT-70CHR                          RPTRT20 
00427      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT20 
00428  12595-FMT-CAT210-XIT.                                            RPTRT20 
00429      EXIT.                                                        RPTRT20 
00430                                                                    RPTRT20
00431 ******************************************************************RPTRT20 
00432 *                                                                 RPTRT20 
00433 *    FORMAT CATEGORY 220 DETAIL LINES                             RPTRT20 
00434 *        CATEGORY 220 = UNIT.                                     RPTRT20 
00435 *                                                                 RPTRT20 
00436 ******************************************************************RPTRT20 
00437  12700-FMT-FLD05.                                                 RPTRT20 
00438      MOVE SPACES TO CAT20220-LINE1.                               RPTRT20 
00439 *                                                                 RPTRT20 
00440 *    FORMAT UNIT FIELD                                            RPTRT20 
00441 *                                                                 RPTRT20 
00442  12705-FMT-FLD05.                                                 RPTRT20 
00443      IF UNIT-UNIT EQUAL TO SPACES                                 RPTRT20 
00444          GO TO 12710-FMT-FLD10.                                   RPTRT20 
00445      MOVE FLD2022005-HCON TO FLD2022005-HDG.                      RPTRT20 
00446      MOVE UNIT-UNIT TO FLD2022005-VAL.                            RPTRT20 
00447 *                                                                 RPTRT20 
00448 *    FORMAT VOLUME-SERIAL FIELD                                   RPTRT20 
00449 *                                                                 RPTRT20 
00450  12710-FMT-FLD10.                                                 RPTRT20 
00451      IF UNIT-VOLSER EQUAL TO SPACES                               RPTRT20 
00452          GO TO 12715-FMT-FLD15.                                   RPTRT20 
00453      MOVE FLD2022010-HCON TO FLD2022010-HDG.                      RPTRT20 
00454      MOVE UNIT-VOLSER TO FLD2022010-VAL.                          RPTRT20 
00455 *                                                                 RPTRT20 
00456 *    FORMAT UNIT SPACE FIELD                                      RPTRT20 
00457 *                                                                 RPTRT20 
00458  12715-FMT-FLD15.                                                 RPTRT20 
00459      IF UNIT-SPACE EQUAL TO SPACES                                RPTRT20 
00460          GO TO 12720-FMT-FLD20.                                   RPTRT20 
00461      MOVE FLD2022015-HCON TO FLD2022015-HDG.                      RPTRT20 
00462      MOVE UNIT-SPACE TO FLD2022015-VAL.                           RPTRT20 
00463 *                                                                 RPTRT20 
00464 *    FORMAT UNIT TYPE VALUE FIELD                                 RPTRT20 
00465 *                                                                 RPTRT20 
00466  12720-FMT-FLD20.                                                 RPTRT20 
00467      IF UNIT-TYPE EQUAL TO SPACES                                 RPTRT20 
00468          GO TO 12725-OUTPUT-LN1.                                  RPTRT20 
00469      GO TO 12722-INTERPRET-CODE.                                  RPTRT20 
00470  12721-JUST-CODE.                                                 RPTRT20 
00471      MOVE UNIT-TYPE TO FLD2022020-POS1.                           RPTRT20 
00472      GO TO 12725-OUTPUT-LN1.                                      RPTRT20 
00473  12722-INTERPRET-CODE.                                            RPTRT20 
00474      MOVE 01 TO SUB3.                                             RPTRT20 
00475  12723-NEXT-CODE-CK.                                              RPTRT20 
00476      IF FLD2022020-CODES (SUB3) EQUAL TO "9"                      RPTRT20 
00477          GO TO 12721-JUST-CODE.                                   RPTRT20 
00478      IF FLD2022020-CODES (SUB3) EQUAL TO UNIT-TYPE                RPTRT20 
00479          GO TO 12724-EXTRACT-MNG.                                 RPTRT20 
00480      ADD 1 TO SUB3.                                               RPTRT20 
00481      GO TO 12723-NEXT-CODE-CK.                                    RPTRT20 
00482  12724-EXTRACT-MNG.                                               RPTRT20 
00483      MOVE FLD2022020-MNG (SUB3) TO FLD2022020-VAL.                RPTRT20 
00484 *                                                                 RPTRT20 
00485 *    OUTPUT 1ST DETAIL LINE.                                      RPTRT20 
00486 *                                                                 RPTRT20 
00487  12725-OUTPUT-LN1.                                                RPTRT20 
00488      IF CAT20220-LINE1 EQUAL TO SPACES                            RPTRT20 
00489          GO TO 12730-FMT-FLDIDX.                                  RPTRT20 
00490      MOVE CAT20220-LINE1 TO STDRPT-70CHR.                         RPTRT20 
00491      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00492 *                                                                 RPTRT20 
00493 *    FORMAT 2ND DISPLAY LINE                                      RPTRT20 
00494 *                                                                 RPTRT20 
00495  12730-FMT-FLDIDX.                                                RPTRT20 
00496      MOVE SPACES TO CAT20220-LINE2.                               RPTRT20 
00497 *                                                                 RPTRT20 
00498 *                                                                 RPTRT20 
00499 *    FORMAT INDEX FIELD HEADING                                   RPTRT20 
00500 *                                                                 RPTRT20 
00501  12735-FMT-FLDIDX.                                                RPTRT20 
00503 *                                                                 RPTRT20 
00504 *    FORMAT INDEX UNIT FIELD                                      RPTRT20 
00505 *                                                                 RPTRT20 
00506      IF UNIT-IDX-UNIT EQUAL TO SPACES                             RPTRT20 
00507          GO TO 12740-FMT-FLD30.                                   RPTRT20 
00508      MOVE FLD2022025-HCON TO FLD2022025-HDG.                      RPTRT20 
           MOVE FLD20220IDX-HCON TO FLD20220IDX-HDG.
00509      MOVE UNIT-IDX-UNIT TO FLD2022025-VAL.                        RPTRT20 
00510 *                                                                 RPTRT20 
00511 *    FORMAT INDEX VOLUME SERIAL FIELD                             RPTRT20 
00512 *                                                                 RPTRT20 
00513  12740-FMT-FLD30.                                                 RPTRT20 
00514      IF UNIT-IDX-VOLSER EQUAL TO SPACES                           RPTRT20 
00515          GO TO 12745-FMT-FLD35.                                   RPTRT20 
00516      MOVE FLD2022030-HCON TO FLD2022030-HDG.                      RPTRT20 
00517      MOVE UNIT-IDX-VOLSER TO FLD2022030-VAL.                      RPTRT20 
00518 *                                                                 RPTRT20 
00519 *    FORMAT INDEX SPACE FIELD                                     RPTRT20 
00520 *                                                                 RPTRT20 
00521  12745-FMT-FLD35.                                                 RPTRT20 
00522      IF UNIT-IDX-SPACE EQUAL TO SPACES                            RPTRT20 
00523          GO TO 12750-FMT-FLD40.                                   RPTRT20 
00524      MOVE FLD2022035-HCON TO FLD2022035-HDG.                      RPTRT20 
00525      MOVE  UNIT-IDX-SPACE TO FLD2022035-VAL.                      RPTRT20 
00526 *                                                                 RPTRT20 
00527 *    FORMAT INDEX UNIT TYPE FIELD                                 RPTRT20 
00528 *                                                                 RPTRT20 
00529  12750-FMT-FLD40.                                                 RPTRT20 
00530      IF UNIT-IDX-TYPE EQUAL TO SPACES                             RPTRT20 
00531          GO TO 12755-OUTPUT-LN2.                                  RPTRT20 
00532      GO TO 12752-INTERPRET-CODE.                                  RPTRT20 
00533  12751-JUST-CODE.                                                 RPTRT20 
00534      MOVE UNIT-IDX-TYPE TO FLD2022040-POS1.                       RPTRT20 
00535          GO TO 12755-OUTPUT-LN2.                                  RPTRT20 
00536  12752-INTERPRET-CODE.                                            RPTRT20 
00537      MOVE 01 TO SUB3.                                             RPTRT20 
00538  12753-NEXT-CODE-CK.                                              RPTRT20 
00539      IF FLD2022040-CODES (SUB3) EQUAL TO "9"                      RPTRT20 
00540          GO TO 12751-JUST-CODE.                                   RPTRT20 
00541      IF FLD2022040-CODES (SUB3) EQUAL TO UNIT-IDX-TYPE            RPTRT20 
00542          GO TO 12754-EXTRACT-MNG.                                 RPTRT20 
00543      ADD 1 TO SUB3.                                               RPTRT20 
00544      GO TO 12753-NEXT-CODE-CK.                                    RPTRT20 
00545  12754-EXTRACT-MNG.                                               RPTRT20 
00546      MOVE FLD2022040-MNG (SUB3) TO FLD2022040-VAL.                RPTRT20 
00547 *                                                                 RPTRT20 
00548 *    OUTPUT 2ND DETAIL LINE                                       RPTRT20 
00549 *                                                                 RPTRT20 
00550  12755-OUTPUT-LN2.                                                RPTRT20 
00551      IF CAT20220-LINE2 EQUAL TO SPACES                            RPTRT20 
00552          GO TO 12760-FMT-FLDOVFL.                                 RPTRT20 
00553      MOVE CAT20220-LINE2 TO STDRPT-70CHR.                         RPTRT20 
00554      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00555 *                                                                 RPTRT20 
00556 *    FORMAT 3RD DISPLAY LINE                                      RPTRT20 
00557 *                                                                 RPTRT20 
00558  12760-FMT-FLDOVFL.                                               RPTRT20 
00559      MOVE SPACES TO CAT20220-LINE3.                               RPTRT20 
00560 *                                                                 RPTRT20 
00561 *    FORMAT OVERFLOW FILED HEADING.                               RPTRT20 
00562 *                                                                 RPTRT20 
00563  12765-FMT-FLDOVFL.                                               RPTRT20 
00565 *                                                                 RPTRT20 
00566 *    FORMAT OVERFLOW UNIT FIELD                                   RPTRT20 
00567 *                                                                 RPTRT20 
00568      IF UNIT-OVF-UNIT EQUAL TO SPACES                             RPTRT20 
00569          GO TO 12770-FMT-FLD50.                                   RPTRT20 
           MOVE FLD20220OVFL-HCON TO FLD20220OVFL-HDG.
00570      MOVE FLD2022045-HCON TO FLD2022045-HDG.                      RPTRT20 
00571      MOVE UNIT-OVF-UNIT TO FLD2022045-VAL.                        RPTRT20 
00572 *                                                                 RPTRT20 
00573 *    FORMAT OVERFLOW VOLUME SERIAL FIELD                          RPTRT20 
00574 *                                                                 RPTRT20 
00575  12770-FMT-FLD50.                                                 RPTRT20 
00576      IF UNIT-OVF-VOLSER EQUAL TO SPACES                           RPTRT20 
00577          GO TO 12775-FMT-FLD55.                                   RPTRT20 
00578      MOVE FLD2022050-HCON TO FLD2022050-HDG.                      RPTRT20 
00579      MOVE UNIT-OVF-VOLSER TO FLD2022050-VAL.                      RPTRT20 
00580 *                                                                 RPTRT20 
00581 *    FORMAT OVERFLOW SPACE FIELD                                  RPTRT20 
00582 *                                                                 RPTRT20 
00583  12775-FMT-FLD55.                                                 RPTRT20 
00584      IF UNIT-OVF-SPACE EQUAL TO SPACES                            RPTRT20 
00585          GO TO 12780-FMT-FLD60.                                   RPTRT20 
00586      MOVE FLD2022055-HCON TO FLD2022055-HDG.                      RPTRT20 
00587      MOVE UNIT-OVF-SPACE TO FLD2022055-VAL.                       RPTRT20 
00588 *                                                                 RPTRT20 
00589 *    FORMAT OVERFLOW UNIT TYPE FIELD                              RPTRT20 
00590 *                                                                 RPTRT20 
00591  12780-FMT-FLD60.                                                 RPTRT20 
00592      IF UNIT-OVF-TYPE EQUAL TO SPACES                             RPTRT20 
00593          GO TO 12785-OUTPUT-LN3.                                  RPTRT20 
00594      GO TO 12782-INTERPRET-CODE.                                  RPTRT20 
00595  12781-JUST-CODE.                                                 RPTRT20 
00596      MOVE UNIT-OVF-TYPE TO FLD2022060-POS1.                       RPTRT20 
00597      GO TO 12785-OUTPUT-LN3.                                      RPTRT20 
00598  12782-INTERPRET-CODE.                                            RPTRT20 
00599      MOVE 01 TO SUB3.                                             RPTRT20 
00600  12783-NEXT-CODE-CK.                                              RPTRT20 
00601      IF FLD2022060-CODES (SUB3) EQUAL TO "9"                      RPTRT20:  
00602          GO TO 12781-JUST-CODE.                                   RPTRT20 
00603      IF FLD2022060-CODES (SUB3) EQUAL TO UNIT-OVF-TYPE            RPTRT20 
00604          GO TO 12784-EXTRACT-MNG.                                 RPTRT20 
00605      ADD 1 TO SUB3.                                               RPTRT20 
00606      GO TO 12783-NEXT-CODE-CK.                                    RPTRT20 
00607  12784-EXTRACT-MNG.                                               RPTRT20 
00608      MOVE FLD2022060-MNG (SUB3) TO FLD2022060-VAL.                RPTRT20 
00609 *                                                                 RPTRT20 
00610 *    OUTPUT 3RD DISPLAY LINE                                      RPTRT20 
00611 *                                                                 RPTRT20 
00612  12785-OUTPUT-LN3.                                                RPTRT20 
00613      IF CAT20220-LINE3 EQUAL TO SPACES                            RPTRT20 
00614          GO TO 12790-FMT-CAT220-XIT.                              RPTRT20 
00615      MOVE CAT20220-LINE3 TO STDRPT-70CHR.                         RPTRT20 
00616      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00617  12790-FMT-CAT220-XIT.                                            RPTRT20 
00618      EXIT.                                                        RPTRT20 
00619                                                                    RPTRT20
00620 ******************************************************************RPTRT20 
00621 *                                                                 RPTRT20 
00622 *    FORMAT CATEGORY 300 DETAIL-LINE5                             RPTRT20 
00623 *        CATEGORY 300 = STRUCTURE                                 RPTRT20 
00624 *                                                                 RPTRT20 
00625 ******************************************************************RPTRT20 
00626  12800-FMT-CAT300.                                                RPTRT20 
00627      MOVE SPACES TO CAT20300-LINE1.                                  CL**2
00628 *                                                                 RPTRT20 
00629 *    FORMAT CATEGORY HEADING LINES                                   CL**2
00630 *                                                                 RPTRT20 
00631      IF FIRST-REC-SW EQUAL TO "N"                                    CL**2
00632          GO TO 12804-CHECK-COMMENT.                                  CL**2
00633      MOVE "N" TO FIRST-REC-SW.                                       CL**2
00634      MOVE FLD2030005-HCON TO FLD2030005-HDG.                      RPTRT20 
00635      MOVE FLD2030010-HCON TO FLD2030010-HDG.                      RPTRT20 
00636      MOVE FLD2030015-HCON TO FLD2030015-HDG.                      RPTRT20 
00637      MOVE FLD2030020-HCON TO FLD2030020-HDG.                      RPTRT20 
00638      MOVE FLD2030025-HCON TO FLD2030025-HDG.                      RPTRT20 
00639 *                                                                 RPTRT20 
00640 *    OUTPUT 1ST DETAIL LINE                                       RPTRT20 
00641 *                                                                 RPTRT20 
00642      MOVE CAT20300-LINE1 TO STDRPT-70CHR.                         RPTRT20 
00643      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00644      MOVE 1 TO PRT-CTL.                                              CL**2
00645      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00646      MOVE CAT-REV  TO STDRPT-REVNO.                                  CL**2
00647      MOVE CAT-LINE TO STDRPT-LINE.                                   CL**2
00648 *                                                                 RPTRT20 
00649 *    FORMAT CATEGORY NAME FIELD                                   RPTRT20 
00650 *                                                                 RPTRT20 
00651  12804-CHECK-COMMENT.                                                CL**2
00652      IF CAT-COMMENT NOT EQUAL TO "*"                                 CL**2
00653          GO TO 12805-FMT-FLD05.                                      CL**2
00654      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.               CL**2
00655      GO TO 12860-FMT-CAT300-XIT.                                     CL**2
00656  12805-FMT-FLD05.                                                 RPTRT20 
00657      MOVE SPACES TO CAT20300-LINE2.                                  CL**2
00658      IF STC-FILE-CNAME EQUAL TO SPACES                            RPTRT20 
00659          GO TO 12810-FMT-FLD10.                                   RPTRT20 
00660      MOVE STC-FILE-CNAME TO FLD2030005-VAL.                          CL**2
00661 *                                                                 RPTRT20 
00662 *    FORMAT TYPE FIELD                                            RPTRT20 
00663 *                                                                 RPTRT20 
00664  12810-FMT-FLD10.                                                 RPTRT20 
00665      IF STC-FILE-TYPE EQUAL TO SPACES                             RPTRT20 
00666          GO TO 12820-FMT-FLD15.                                   RPTRT20 
00667      MOVE STC-FILE-TYPE TO FLD2030010-VAL.                        RPTRT20 
00668 *                                                                 RPTRT20 
00669 *    FORMAT FREQUENCY FIELD                                       RPTRT20 
00670 *                                                                 RPTRT20 
00671  12820-FMT-FLD15.                                                 RPTRT20 
00672      IF STC-FILE-FREQ EQUAL TO SPACES                             RPTRT20 
00673          GO TO 12830-FMT-FLD20.                                   RPTRT20 
00674      MOVE STC-FILE-FREQ TO FLD2030015-VAL.                        RPTRT20 
00675 *                                                                 RPTRT20 
00676 *    FORMAT SEG NO. FIELD                                         RPTRT20 
00677 *                                                                 RPTRT20 
00678  12830-FMT-FLD20.                                                 RPTRT20 
00679      IF STC-FILE-SEGNO EQUAL TO SPACES                               CL**2
00680          GO TO 12840-FMT-FLD25.                                   RPTRT20 
00681      MOVE STC-FILE-SEGNO TO FLD2030020-VAL.                          CL**2
00682 *                                                                 RPTRT20 
00683 *    FORMAT LEVEL NO. FIELD                                       RPTRT20 
00684 *                                                                 RPTRT20 
00685  12840-FMT-FLD25.                                                 RPTRT20 
00686      IF STC-FILE-LEVNO EQUAL TO SPACES                            RPTRT20 
00687          GO TO 12850-OUTPUT-LN2.                                  RPTRT20 
00688      MOVE STC-FILE-LEVNO TO FLD2030025-VAL.                       RPTRT20 
00689 *                                                                 RPTRT20 
00690 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT20 
00691 *                                                                 RPTRT20 
00692  12850-OUTPUT-LN2.                                                RPTRT20 
00693      IF CAT20300-LINE2 EQUAL TO SPACES                            RPTRT20 
00694          GO TO 12860-FMT-CAT300-XIT.                              RPTRT20 
00695      MOVE CAT-REV TO STDRPT-REVNO.                                   CL**2
00696      MOVE CAT-LINE TO STDRPT-LINE.                                   CL**2
00697      MOVE CAT20300-LINE2 TO STDRPT-70CHR.                         RPTRT20 
00698      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00699  12860-FMT-CAT300-XIT.                                            RPTRT20 
00700      EXIT.                                                        RPTRT20 
00701                                                                    RPTRT20
      ********************************************************
      *    FORMAT CATEGORY 450 DETAIL LINES 
      *         CATEGORY 450 = MDINFO 
      ********************************************************
       FMT-CAT450.
           MOVE SPACES TO CAT20450-LINE1
           IF MD-FILE-TYPE IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2045005-HCON TO FLD2045005-HDG
              PERFORM INTERPRET-FTYPE THRU INTERPRET-FTYPE-XIT
           END-IF 
           IF MD-FILE-UN IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2045010-HCON TO FLD2045010-HDG
              MOVE MD-FILE-UN TO FLD2045010-VAL 
           END-IF 
           IF MD-FILE-PW IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2045015-HCON TO FLD2045015-HDG
              MOVE MD-FILE-PW TO FLD2045015-VAL 
           END-IF.
  
      * 
      *      OUTPUT LINE 1 IF PRESENT 
      * 
           IF CAT20450-LINE1 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT20450-LINE1 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
  
           MOVE SPACES TO CAT20450-LINE2
           IF MD-FILE-UNIT-LIMIT IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2045020-HCON TO FLD2045020-HDG
              MOVE MD-FILE-UNIT-LIMIT TO FLD2045020-VAL 
           END-IF 
           IF MD-FILE-UPD-LIMIT IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2045025-HCON TO FLD2045025-HDG
              MOVE MD-FILE-UPD-LIMIT TO FLD2045025-VAL
           END-IF 
  
      * 
      *      OUTPUT LINE 2 IF PRESENT 
      * 
           IF CAT20450-LINE2 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT20450-LINE2 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
  
           MOVE SPACES TO CAT20450-LINE3
           IF MD-FILE-FAMILY IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2045030-HCON TO FLD2045030-HDG
              MOVE MD-FILE-FAMILY TO FLD2045030-VAL 
           END-IF 
  
      * 
      *      OUTPUT LINE 3 IF PRESENT 
      * 
           IF CAT20450-LINE3 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT20450-LINE3 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
  
           MOVE SPACES TO CAT20450-LINE4
           IF MD-FILE-PACK IS NOT EQUAL TO SPACES 
           THEN 
              MOVE FLD2045035-HCON TO FLD2045035-HDG
              MOVE MD-FILE-PACK TO FLD2045035-VAL 
           END-IF 
  
      * 
      *      OUTPUT LINE 4 IF PRESENT 
      * 
           IF CAT20450-LINE4 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT20450-LINE4 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
  
           MOVE SPACES TO CAT20450-LINE5
           IF MD-FILE-SET IS NOT EQUAL TO SPACES
           THEN 
              MOVE FLD2045040-HCON TO FLD2045040-HDG
              MOVE MD-FILE-SET TO FLD2045040-VAL
           END-IF 
  
      * 
      *      OUTPUT LINE 5 IF PRESENT 
      * 
           IF CAT20450-LINE5 IS NOT EQUAL TO SPACES 
           THEN 
              MOVE CAT20450-LINE5 TO STDRPT-70CHR 
              PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT
           END-IF 
  
       FMT-CAT450-XIT.
           EXIT.
  
      ********************************************************
      *     I N T E R P R E T    S U B R O U T I N E S
      ********************************************************
  
       INTERPRET-FTYPE. 
           MOVE 1 TO SUB3.
       INTERPRET-FTYPE-CONT.
           IF FLD2045005-CODES (SUB3) IS EQUAL TO MD-FILE-TYPE
           THEN 
              MOVE FLD2045005-MNG (SUB3) TO FLD2045005-VAL
              GO TO INTERPRET-FTYPE-XIT 
           ELSE 
              ADD 1 TO SUB3 
              GO TO INTERPRET-FTYPE-CONT
           END-IF.
       INTERPRET-FTYPE-XIT. 
           EXIT.
