*COMDECK  RPTRT50 
00001 *                                                                 09/22/77
00002 *    FORMAT CATEGORY 140 DETAIL LINES                             RPTRT50 
00003 *        CATEGORY 140 = RESPONSIBILITY                               LV001
00004 *                                                                 RPTRT50 
00005 ******************************************************************RPTRT50 
00006  23000-FMT-CAT140.                                                RPTRT50 
00007      MOVE SPACES TO CAT50140-LINE1.                               RPTRT50 
00008 *                                                                 RPTRT50 
00009 *    FORMAT STATUS FIELD                                          RPTRT50 
00010 *                                                                 RPTRT50 
00011  23005-FMT-FLD05.                                                 RPTRT50 
00012      IF RESP-PRG-STATUS EQUAL TO SPACES                           RPTRT50 
00013          GO TO 23050-FMT-FLD10.                                   RPTRT50 
00014      MOVE FLD5014005-HCON TO FLD5014005-HDG.                      RPTRT50 
00015          GO TO 23020-INTERPRET-CODE.                              RPTRT50 
00016  23010-JUST-CODE.                                                 RPTRT50 
00017      MOVE RESP-PRG-STATUS TO FLD5014005-POS1.                     RPTRT50 
00018          GO TO 23050-FMT-FLD10.                                   RPTRT50 
00019  23020-INTERPRET-CODE.                                            RPTRT50 
00020      MOVE 01 TO SUB3.                                             RPTRT50 
00021  23030-NEXT-CODE-CK.                                              RPTRT50 
00022      IF FLD5014005-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00023          GO TO 23010-JUST-CODE.                                   RPTRT50 
00024      IF FLD5014005-CODES (SUB3) EQUAL TO RESP-PRG-STATUS          RPTRT50 
00025          GO TO 23040-EXTRACT-MNG.                                 RPTRT50 
00026      ADD 1 TO SUB3.                                               RPTRT50 
00027      GO TO 23030-NEXT-CODE-CK.                                    RPTRT50 
00028  23040-EXTRACT-MNG.                                               RPTRT50 
00029      MOVE FLD5014005-MNG (SUB3) TO FLD5014005-VAL.                RPTRT50 
00030 *                                                                 RPTRT50 
00031 *    FORMAT FUNCTION FIELD                                        RPTRT50 
00032 *                                                                 RPTRT50 
00033  23050-FMT-FLD10.                                                 RPTRT50 
00034      IF RESP-PRG-FUNC EQUAL TO SPACES                             RPTRT50 
00035          GO TO 23100-FMT-FLD25.                                   RPTRT50 
00036      MOVE FLD5014010-HCON TO FLD5014010-HDG.                      RPTRT50 
00037          GO TO 23070-INTERPRET-CODE.                              RPTRT50 
00038  23060-JUST-CODE.                                                 RPTRT50 
00039      MOVE RESP-PRG-FUNC TO FLD5014010-POS1.                       RPTRT50 
00040          GO TO 23100-FMT-FLD25.                                   RPTRT50 
00041  23070-INTERPRET-CODE.                                            RPTRT50 
00042      MOVE 01 TO SUB3.                                             RPTRT50 
00043  23080-NEXT-CODE-CK.                                              RPTRT50 
00044      IF FLD5014010-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00045          GO TO 23060-JUST-CODE.                                   RPTRT50 
00046      IF FLD5014010-CODES (SUB3) EQUAL TO RESP-PRG-FUNC            RPTRT50 
00047          GO TO 23090-EXTRACT-MNG.                                 RPTRT50 
00048      ADD 1 TO SUB3.                                               RPTRT50 
00049      GO TO 23080-NEXT-CODE-CK.                                    RPTRT50 
00050  23090-EXTRACT-MNG.                                               RPTRT50 
00051      MOVE FLD5014010-MNG (SUB3) TO FLD5014010-VAL.                RPTRT50 
00052 *                                                                 RPTRT50 
00053 *    FORMAT PHONE FIELD                                           RPTRT50 
00054 *                                                                 RPTRT50 
00055  23100-FMT-FLD25.                                                 RPTRT50 
00056      IF RESP-PRG-PHONE EQUAL TO SPACES                            RPTRT50 
00057          GO TO 23110-FMT-FLD35.                                   RPTRT50 
00058      MOVE FLD5014025-HCON TO FLD5014025-HDG.                      RPTRT50 
00059      MOVE RESP-PRG-PHONE TO FLD5014025-VAL.                       RPTRT50 
00060 *                                                                 RPTRT50 
00061 *    FORMAT MAIL FIELD                                            RPTRT50 
00062 *                                                                 RPTRT50 
00063  23110-FMT-FLD35.                                                 RPTRT50 
00064      IF RESP-PRG-MAIL EQUAL TO SPACES                             RPTRT50 
00065          GO TO 23120-OUTPUT-LN1.                                  RPTRT50 
00066      MOVE FLD5014035-HCON TO FLD5014035-HDG.                      RPTRT50 
00067      MOVE RESP-PRG-MAIL TO FLD5014035-VAL.                           CL**2
00068 *                                                                 RPTRT50 
00069 *    OUTPUT 1ST DISPLAY LINE                                      RPTRT50 
00070 *                                                                 RPTRT50 
00071  23120-OUTPUT-LN1.                                                RPTRT50 
00072      IF CAT50140-LINE1 EQUAL TO SPACES                            RPTRT50 
00073          GO TO 23130-FMT-FLD15.                                   RPTRT50 
00074      MOVE CAT50140-LINE1 TO STDRPT-70CHR.                         RPTRT50 
00075      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00076 *                                                                 RPTRT50 
00077 *    FORMAT 2ND DISPLAY LINE                                      RPTRT50 
00078 *                                                                 RPTRT50 
00079  23130-FMT-FLD15.                                                 RPTRT50 
00080      MOVE SPACES TO CAT50140-LINE2.                               RPTRT50 
00081 *                                                                 RPTRT50 
00082 *    FORMAT DEPARTMENT FIELD                                      RPTRT50 
00083 *                                                                 RPTRT50 
00084      IF RESP-PRG-DEPT EQUAL TO SPACES                             RPTRT50 
00085          GO TO 23140-FMT-FLD40.                                   RPTRT50 
00086      MOVE FLD5014015-HCON TO FLD5014015-HDG.                      RPTRT50 
00087      MOVE RESP-PRG-DEPT TO FLD5014015-VAL.                        RPTRT50 
00088 *                                                                 RPTRT50 
00089 *    FORMAT DATE FIELD                                            RPTRT50 
00090 *                                                                 RPTRT50 
00091  23140-FMT-FLD40.                                                 RPTRT50 
00092      IF RESP-PRG-DATE EQUAL TO SPACES                             RPTRT50 
00093          GO TO 23150-OUTPUT-LN2.                                  RPTRT50 
00094      MOVE FLD5014040-HCON TO FLD5014040-HDG.                      RPTRT50 
00095      MOVE RESP-PRG-DATE TO FLD5014040-VAL.                        RPTRT50 
00096 *                                                                 RPTRT50 
00097 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT50 
00098 *                                                                 RPTRT50 
00099  23150-OUTPUT-LN2.                                                RPTRT50 
00100      IF CAT50140-LINE2 EQUAL TO SPACES                            RPTRT50 
00101          GO TO 23160-FMT-FLD20.                                   RPTRT50 
00102      MOVE CAT50140-LINE2 TO STDRPT-70CHR.                         RPTRT50 
00103      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00104 *                                                                 RPTRT50 
00105 *    FORMAT 3RD DISPLAY LINE                                      RPTRT50 
00106 *                                                                 RPTRT50 
00107  23160-FMT-FLD20.                                                 RPTRT50 
00108      MOVE SPACES TO CAT50140-LINE3.                               RPTRT50 
00109 *                                                                 RPTRT50 
00110 *    FORMAT PERSON FIELD                                          RPTRT50 
00111 *                                                                 RPTRT50 
00112      IF RESP-PRG-PERSON EQUAL TO SPACES                           RPTRT50 
00113          GO TO 23170-FMT-FLD30.                                   RPTRT50 
00114      MOVE FLD5014020-HCON TO FLD5014020-HDG.                      RPTRT50 
00115      MOVE RESP-PRG-PERSON TO FLD5014020-VAL.                      RPTRT50 
00116 *                                                                 RPTRT50 
00117 *    FORMAT TITLE FIELD                                           RPTRT50 
00118 *                                                                 RPTRT50 
00119  23170-FMT-FLD30.                                                 RPTRT50 
00120      IF RESP-PRG-TITLE EQUAL TO SPACES                            RPTRT50 
00121          GO TO 23180-OUTPUT-LN3.                                  RPTRT50 
00122      MOVE FLD5014030-HCON TO FLD5014030-HDG.                      RPTRT50 
00123      MOVE RESP-PRG-TITLE TO FLD5014030-VAL.                       RPTRT50 
00124 *                                                                 RPTRT50 
00125 *    OUTPUT 3RD DISPLAY LINE                                      RPTRT50 
00126 *                                                                 RPTRT50 
00127  23180-OUTPUT-LN3.                                                RPTRT50 
00128      IF CAT50140-LINE3 EQUAL TO SPACES                            RPTRT50 
00129          GO TO 23190-FMT-CAT140-XIT.                              RPTRT50 
00130      MOVE CAT50140-LINE3 TO STDRPT-70CHR.                         RPTRT50 
00131      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00132  23190-FMT-CAT140-XIT.                                            RPTRT50 
00133      EXIT.                                                        RPTRT50 
00134                                                                    RPTRT50
00135 ******************************************************************RPTRT50 
00136 *                                                                 RPTRT50 
00137 *    FORMAT CATEGORY 200 DETAIL LINE                              RPTRT50 
00138 *        CATEGORY 200 = NAMES                                     RPTRT50 
00139 *                                                                 RPTRT50 
00140 ******************************************************************RPTRT50 
00141  23200-FMT-CAT200.                                                RPTRT50 
00142      MOVE SPACES TO CAT50200-LINE1.                               RPTRT50 
00143 *                                                                 RPTRT50 
00144 *    FORMAT MODULE NAME FIELD                                     RPTRT50 
00145 *                                                                 RPTRT50 
00146      IF NAME-PRG-NAME EQUAL TO SPACES                             RPTRT50 
00147          GO TO 23210-FMT-FLD10.                                   RPTRT50 
00148      MOVE FLD5020005-HCON TO FLD5020005-HDG.                      RPTRT50 
00149      MOVE NAME-PRG-NAME TO FLD5020005-VAL.                        RPTRT50 
00150 *                                                                 RPTRT50 
00151 *    FORMAT MODULE ID FIELD                                       RPTRT50 
00152 *                                                                 RPTRT50 
00153  23210-FMT-FLD10.                                                 RPTRT50 
00154      IF NAME-PRG-MODID EQUAL TO SPACES                            RPTRT50 
00155          GO TO 23220-OUTPUT-LN1.                                  RPTRT50 
00156      MOVE FLD5020010-HCON TO FLD5020010-HDG.                      RPTRT50 
00157      MOVE NAME-PRG-MODID TO FLD5020010-VAL.                          CL**2
00158 *                                                                 RPTRT50 
00159 *    OUTPUT 1ST LINE                                              RPTRT50 
00160 *                                                                 RPTRT50 
00161  23220-OUTPUT-LN1.                                                RPTRT50 
00162      IF CAT50200-LINE1 EQUAL TO SPACES                            RPTRT50 
00163          GO TO 23230-FMT-CAT200-XIT.                              RPTRT50 
00164      MOVE CAT50200-LINE1 TO STDRPT-70CHR.                         RPTRT50 
00165      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00166  23230-FMT-CAT200-XIT.                                            RPTRT50 
00167      EXIT.                                                        RPTRT50 
00168                                                                    RPTRT50
00169 ******************************************************************RPTRT50 
00170 *                                                                 RPTRT50 
00171 *    FORMAT CATEGORY 210 DETAIL LINE                              RPTRT50 
00172 *        CATEGORY 210 = ATTRIBUTE                                 RPTRT50 
00173 *                                                                 RPTRT50 
00174 ******************************************************************RPTRT50 
00175  23500-FMT-CAT210.                                                RPTRT50 
00176      MOVE SPACES TO CAT50210-LINE1.                               RPTRT50 
00177 *                                                                 RPTRT50 
00178 *    FORMAT LANGUAGE FIELD                                        RPTRT50 
00179 *                                                                 RPTRT50 
00180  23505-FMT-FLD05.                                                 RPTRT50 
00181      IF ATTR-PRG-LANG EQUAL TO SPACES                             RPTRT50 
00182          GO TO 23530-FMT-FLD10.                                      CL**2
00183      MOVE FLD5021005-HCON TO FLD5021005-HDG.                      RPTRT50 
00184          GO TO 23515-INTERPRET-CODE.                              RPTRT50 
00185  23510-JUST-CODE.                                                 RPTRT50 
00186      MOVE ATTR-PRG-LANG TO FLD5021005-POS1.                       RPTRT50 
00187          GO TO 23530-FMT-FLD10.                                   RPTRT50 
00188  23515-INTERPRET-CODE.                                            RPTRT50 
00189      MOVE 01 TO SUB3.                                             RPTRT50 
00190  23520-NEXT-CODE-CK.                                              RPTRT50 
00191      IF FLD5021005-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00192          GO TO 23510-JUST-CODE.                                   RPTRT50 
00193      IF FLD5021005-CODES (SUB3) EQUAL TO ATTR-PRG-LANG            RPTRT50 
00194          GO TO 23525-EXTRACT-MNG.                                 RPTRT50 
00195      ADD 1 TO SUB3.                                               RPTRT50 
00196      GO TO 23520-NEXT-CODE-CK.                                    RPTRT50 
00197  23525-EXTRACT-MNG.                                               RPTRT50 
00198      MOVE FLD5021005-MNG (SUB3) TO FLD5021005-VAL.                RPTRT50 
00199 *                                                                 RPTRT50 
00200 *    FORMAT TYPE FIELD                                            RPTRT50 
00201 *                                                                 RPTRT50 
00202  23530-FMT-FLD10.                                                 RPTRT50 
00203      IF ATTR-PRG-TYPE EQUAL TO SPACES                             RPTRT50 
00204          GO TO 23555-FMT-FLD15.                                   RPTRT50 
00205      MOVE FLD5021010-HCON TO FLD5021010-HDG.                      RPTRT50 
00206          GO TO 23540-INTERPRET-CODE.                              RPTRT50 
00207  23535-JUST-CODE.                                                 RPTRT50 
00208      MOVE ATTR-PRG-TYPE TO FLD5021010-POS1.                       RPTRT50 
00209          GO TO 23555-FMT-FLD15.                                   RPTRT50 
00210  23540-INTERPRET-CODE.                                            RPTRT50 
00211      MOVE 01 TO SUB3.                                             RPTRT50 
00212  23545-NEXT-CODE-CK.                                              RPTRT50 
00213      IF FLD5021010-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00214          GO TO 23535-JUST-CODE.                                   RPTRT50 
00215      IF FLD5021010-CODES (SUB3) EQUAL ATTR-PRG-TYPE               RPTRT50 
00216          GO TO 23550-EXTRACT-MNG.                                 RPTRT50 
00217      ADD 1 TO SUB3.                                               RPTRT50 
00218      GO TO 23545-NEXT-CODE-CK.                                    RPTRT50 
00219  23550-EXTRACT-MNG.                                               RPTRT50:  
00220      MOVE FLD5021010-MNG (SUB3) TO FLD5021010-VAL.                RPTRT50 
00221 *                                                                 RPTRT50 
00222 *    FORMAT OVERLAID FIELD                                        RPTRT50 
00223 *                                                                 RPTRT50 
00224  23555-FMT-FLD15.                                                 RPTRT50 
00225      IF ATTR-PRG-OVLY EQUAL TO SPACES                             RPTRT50 
00226          GO TO 23580-FMT-FLD20.                                   RPTRT50 
00227      MOVE FLD5021015-HCON TO FLD5021015-HDG.                      RPTRT50 
00228          GO TO 23565-INTERPRET-CODE.                              RPTRT50 
00229  23560-JUST-CODE.                                                 RPTRT50 
00230      MOVE ATTR-PRG-OVLY TO FLD5021015-POS1.                       RPTRT50 
00231          GO TO 23580-FMT-FLD20.                                   RPTRT50 
00232  23565-INTERPRET-CODE.                                            RPTRT50 
00233      MOVE 01 TO SUB3.                                             RPTRT50 
00234  23570-NEXT-CODE-CK.                                              RPTRT50 
00235      IF FLD5021015-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00236          GO TO 23560-JUST-CODE.                                   RPTRT50 
00237      IF FLD5021015-CODES (SUB3) EQUAL TO ATTR-PRG-OVLY            RPTRT50 
00238          GO TO 23575-EXTRACT-MNG.                                 RPTRT50 
00239      ADD 1 TO SUB3.                                               RPTRT50 
00240      GO TO 23570-NEXT-CODE-CK.                                    RPTRT50 
00241  23575-EXTRACT-MNG.                                               RPTRT50 
00242      MOVE FLD5021015-MNG (SUB3) TO FLD5021015-VAL.                RPTRT50 
00243 *                                                                 RPTRT50 
00244 *    FORMAT SEGMENTED FIELD                                       RPTRT50 
00245 *                                                                 RPTRT50 
00246  23580-FMT-FLD20.                                                 RPTRT50 
00247      IF ATTR-PRG-SEG EQUAL TO SPACES                              RPTRT50 
00248          GO TO 23605-OUTPUT-LN1.                                  RPTRT50 
00249      MOVE FLD5021020-HCON TO FLD5021020-HDG.                      RPTRT50 
00250          GO TO 23590-INTERPRET-CODE.                              RPTRT50 
00251  23585-JUST-CODE.                                                 RPTRT50 
00252      MOVE ATTR-PRG-SEG TO FLD5021020-POS1.                        RPTRT50 
00253          GO TO 23605-OUTPUT-LN1.                                  RPTRT50 
00254  23590-INTERPRET-CODE.                                            RPTRT50 
00255      MOVE 01 TO SUB3.                                             RPTRT50 
00256  23595-NEXT-CODE-CK.                                                 CL**2
00257      IF FLD5021020-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00258          GO TO 23585-JUST-CODE.                                   RPTRT50 
00259      IF FLD5021020-CODES (SUB3) EQUAL TO ATTR-PRG-SEG             RPTRT50 
00260          GO TO 23600-EXTRACT-MNG.                                 RPTRT50 
00261      ADD 1 TO SUB3.                                               RPTRT50 
00262      GO TO 23595-NEXT-CODE-CK.                                    RPTRT50 
00263  23600-EXTRACT-MNG.                                               RPTRT50 
00264      MOVE FLD5021020-MNG (SUB3) TO FLD5021020-VAL.                RPTRT50 
00265 *                                                                 RPTRT50 
00266 *    OUTPUT 1ST DISPLAY LINE                                      RPTRT50 
00267 *                                                                 RPTRT50 
00268  23605-OUTPUT-LN1.                                                RPTRT50 
00269      IF CAT50210-LINE1 EQUAL TO SPACES                            RPTRT50 
00270          GO TO 23610-FMT-FLD25.                                   RPTRT50 
00271      MOVE CAT50210-LINE1 TO STDRPT-70CHR.                         RPTRT50 
00272      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00273 *                                                                 RPTRT50 
00274 *    FORMAT 2ND DISPLAY LINE                                      RPTRT50 
00275 *                                                                 RPTRT50 
00276  23610-FMT-FLD25.                                                 RPTRT50 
00277      MOVE SPACES TO CAT50210-LINE2.                                  CL**2
00278      IF ATTR-PRG-CALLTYP EQUAL TO SPACES                          RPTRT50 
00279          GO TO 23635-OUTPUT-LN2.                                  RPTRT50 
00280      MOVE FLD5021025-HCON TO FLD5021025-HDG.                      RPTRT50 
00281          GO TO 23620-INTERPRET-CODE.                              RPTRT50 
00282  23615-JUST-CODE.                                                 RPTRT50 
00283      MOVE ATTR-PRG-CALLTYP TO FLD5021025-POS1.                    RPTRT50 
00284          GO TO 23635-OUTPUT-LN2.                                  RPTRT50 
00285  23620-INTERPRET-CODE.                                            RPTRT50 
00286      MOVE 01 TO SUB3.                                             RPTRT50 
00287  23625-NEXT-CODE-CK.                                              RPTRT50 
00288      IF FLD5021025-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00289          GO TO 23615-JUST-CODE.                                   RPTRT50 
00290      IF FLD5021025-CODES (SUB3) EQUAL TO ATTR-PRG-CALLTYP         RPTRT50 
00291          GO TO 23630-EXTRACT-MNG.                                    CL**2
00292      ADD 1 TO SUB3.                                               RPTRT50 
00293      GO TO 23625-NEXT-CODE-CK.                                    RPTRT50 
00294  23630-EXTRACT-MNG.                                               RPTRT50 
00295      MOVE FLD5021025-MNG (SUB3) TO FLD5021025-VAL.                RPTRT50 
00296 *                                                                 RPTRT50 
00297 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT50 
00298 *                                                                 RPTRT50 
00299  23635-OUTPUT-LN2.                                                RPTRT50 
00300      IF CAT50210-LINE2 EQUAL TO SPACES                            RPTRT50 
00301          GO TO 23640-FMT-CAT210-XIT.                              RPTRT50 
00302      MOVE CAT50210-LINE2 TO STDRPT-70CHR.                         RPTRT50 
00303      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00304  23640-FMT-CAT210-XIT.                                            RPTRT50 
00305      EXIT.                                                        RPTRT50 
00306                                                                    RPTRT50
00307 ******************************************************************RPTRT50 
00308 *                                                                 RPTRT50 
00309 *    FORMAT CATEGORY 260 DETAIL LINES                             RPTRT50 
00310 *        CATEGORY 260 = STORAGE                                   RPTRT50 
00311 *                                                                 RPTRT50 
00312 ******************************************************************RPTRT50 
00313  23700-FMT-CAT260.                                                RPTRT50 
00314      MOVE SPACES TO CAT50260-LINE1.                               RPTRT50 
00315 *                                                                 RPTRT50 
00316 *    FORMAT TYPE FIELD                                            RPTRT50 
00317 *                                                                 RPTRT50 
00318  23705-FMT-FLD05.                                                 RPTRT50 
00319      IF STORE-TYPE EQUAL TO SPACES                                RPTRT50 
00320          GO TO 23730-FMT-FLD10.                                   RPTRT50 
00321      MOVE FLD5026005-HCON TO FLD5026005-HDG.                      RPTRT50 
00322          GO TO 23715-INTERPRET-CODE.                              RPTRT50 
00323  23710-JUST-CODE.                                                 RPTRT50 
00324      MOVE STORE-TYPE TO FLD5026005-POS1.                          RPTRT50 
00325          GO TO 23730-FMT-FLD10.                                   RPTRT50 
00326  23715-INTERPRET-CODE.                                            RPTRT50 
00327      MOVE 01 TO SUB3.                                             RPTRT50 
00328  23720-NEXT-CODE-CK.                                              RPTRT50 
00329      IF FLD5026005-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00330          GO TO 23710-JUST-CODE.                                   RPTRT50 
00331      IF FLD5026005-CODES (SUB3) EQUAL TO STORE-TYPE               RPTRT50 
00332          GO TO 23725-EXTRACT-MNG.                                 RPTRT50 
00333      ADD 1 TO SUB3.                                               RPTRT50 
00334      GO TO 23720-NEXT-CODE-CK.                                    RPTRT50 
00335  23725-EXTRACT-MNG.                                               RPTRT50 
00336      MOVE FLD5026005-MNG (SUB3) TO FLD5026005-VAL.                RPTRT50 
00337 *                                                                 RPTRT50 
00338 *    FORMAT PLACE FIELD                                           RPTRT50 
00339 *                                                                 RPTRT50 
00340  23730-FMT-FLD10.                                                 RPTRT50 
00341      IF STORE-PLACE EQUAL TO SPACES                               RPTRT50 
00342          GO TO 23735-OUTPUT-LN1.                                  RPTRT50 
00343      MOVE FLD5026010-HCON TO FLD5026010-HDG.                      RPTRT50 
00344      MOVE STORE-PLACE TO FLD5026010-VAL.                          RPTRT50 
00345 *                                                                 RPTRT50 
00346 *    OUTPUT 1ST DISPLAY LINE                                      RPTRT50 
00347 *                                                                 RPTRT50 
00348  23735-OUTPUT-LN1.                                                RPTRT50 
00349      IF CAT50260-LINE1 EQUAL TO SPACES                            RPTRT50 
00350          GO TO 23740-FMT-FLD15.                                      CL**2
00351      MOVE CAT50260-LINE1 TO STDRPT-70CHR.                         RPTRT50 
00352      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00353 *                                                                 RPTRT50 
00354 *    FORMAT 2ND DISPLAY LINE                                      RPTRT50 
00355 *                                                                 RPTRT50 
00356  23740-FMT-FLD15.                                                 RPTRT50 
00357      MOVE SPACES TO CAT50260-LINE2.                               RPTRT50 
00358 *                                                                 RPTRT50 
00359 *    FORMAT MEDIUM FIELD                                          RPTRT50 
00360 *                                                                 RPTRT50 
00361      IF STORE-MODE EQUAL TO SPACES                                RPTRT50 
00362          GO TO 23745-FMT-FLD20.                                   RPTRT50 
00363      MOVE FLD5026015-HCON TO FLD5026015-HDG.                      RPTRT50 
00364      MOVE STORE-MODE TO FLD5026015-VAL.                           RPTRT50 
00365 *                                                                 RPTRT50 
00366 *    FORMAT STORED SIZE FIELD                                     RPTRT50 
00367 *                                                                 RPTRT50 
00368  23745-FMT-FLD20.                                                 RPTRT50 
00369      IF STORE-SIZE EQUAL TO SPACES                                RPTRT50 
00370          GO TO 23750-FMT-FLD25.                                   RPTRT50 
00371      MOVE FLD5026020-HCON TO FLD5026020-HDG.                      RPTRT50 
00372      MOVE STORE-SIZE TO FLD5026020-VAL.                           RPTRT50 
00373 *                                                                 RPTRT50 
00374 *    FORMAT STORED SIZE UNIT FIELD                                RPTRT50 
00375 *                                                                 RPTRT50 
00376  23750-FMT-FLD25.                                                 RPTRT50 
00377      IF STORE-SIZE-UNIT EQUAL TO SPACES                           RPTRT50 
00378          GO TO 23775-OUTPUT-LN2.                                  RPTRT50 
00379      GO TO 23760-INTERPRET-CODE.                                  RPTRT50 
00380  23755-JUST-CODE.                                                 RPTRT50 
00381      MOVE STORE-SIZE-UNIT TO FLD5026025-POS1.                     RPTRT50 
00382          GO TO 23775-OUTPUT-LN2.                                  RPTRT50 
00383  23760-INTERPRET-CODE.                                            RPTRT50 
00384      MOVE 01 TO SUB3.                                             RPTRT50 
00385  23765-NEXT-CODE-CK.                                              RPTRT50 
00386      IF FLD5026025-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00387          GO TO 23755-JUST-CODE.                                   RPTRT50 
00388      IF FLD5026025-CODES (SUB3) EQUAL TO STORE-SIZE-UNIT          RPTRT50 
00389          GO TO 23770-EXTRACT-MNG.                                 RPTRT50 
00390      ADD 1 TO SUB3.                                               RPTRT50 
00391      GO TO 23765-NEXT-CODE-CK.                                    RPTRT50 
00392  23770-EXTRACT-MNG.                                               RPTRT50 
00393      MOVE FLD5026025-MNG (SUB3) TO FLD5026025-VAL.                RPTRT50 
00394 *                                                                 RPTRT50 
00395 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT50 
00396 *                                                                 RPTRT50 
00397  23775-OUTPUT-LN2.                                                RPTRT50 
00398      IF CAT50260-LINE2 EQUAL TO SPACES                            RPTRT50 
00399          GO TO 23780-FMT-CAT260-XIT.                              RPTRT50 
00400      MOVE CAT50260-LINE2 TO STDRPT-70CHR.                         RPTRT50 
00401      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00402  23780-FMT-CAT260-XIT.                                            RPTRT50 
00403      EXIT.                                                        RPTRT50 
00404                                                                    RPTRT50
00405 ******************************************************************RPTRT50 
00406 *                                                                 RPTRT50 
00407 *    FORMAT CATEGORY 270 DETAIL LINE                              RPTRT50 
00408 *        CATEGORY 270 = RESOURCE                                  RPTRT50 
00409 *                                                                 RPTRT50 
00410 ******************************************************************RPTRT50 
00411  24000-FMT-CAT270.                                                RPTRT50 
00412      MOVE SPACES TO CAT50270-LINE1.                               RPTRT50 
00413 *                                                                 RPTRT50 
00414 *    FORMAT STEP NAME FIELD                                       RPTRT50 
00415 *                                                                 RPTRT50 
00416  24005-FMT-FLD05.                                                 RPTRT50 
00417      IF RES-STEP-NAME EQUAL TO SPACES                             RPTRT50 
00418          GO TO 24010-FMT-FLD10.                                   RPTRT50 
00419      MOVE FLD5027005-HCON TO FLD5027005-HDG.                      RPTRT50 
00420      MOVE RES-STEP-NAME TO FLD5027005-VAL.                        RPTRT50 
00421 *                                                                 RPTRT50 
00422 *    FORMAT REGION FIELD                                          RPTRT50 
00423 *                                                                 RPTRT50 
00424  24010-FMT-FLD10.                                                 RPTRT50 
00425      IF RES-REGION EQUAL TO SPACES                                RPTRT50 
00426          GO TO 24015-OUTPUT-LN1.                                  RPTRT50 
00427      MOVE FLD5027010-HCON TO FLD5027010-HDG.                      RPTRT50 
00428      MOVE RES-REGION TO FLD5027010-VAL.                           RPTRT50 
00429 *                                                                 RPTRT50 
00430 *    OUTPUT 1ST DISPLAY LINE                                      RPTRT50 
00431 *                                                                 RPTRT50 
00432  24015-OUTPUT-LN1.                                                RPTRT50 
00433      IF CAT50270-LINE1 EQUAL TO SPACES                            RPTRT50 
00434          GO TO 24020-FMT-FLD15.                                   RPTRT50 
00435      MOVE CAT50270-LINE1 TO STDRPT-70CHR.                         RPTRT50 
00436      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00437 *                                                                 RPTRT50 
00438 *    FORMAT 2ND DISPLAY LINE                                      RPTRT50 
00439 *                                                                    CL**2
00440  24020-FMT-FLD15.                                                 RPTRT50 
00441      MOVE SPACES TO CAT50270-LINE2.                                  CL**2
00442      IF RES-ELAPSED-TIME EQUAL TO SPACES                          RPTRT50 
00443          GO TO 24025-FMT-FLD20.                                   RPTRT50 
00444      MOVE FLD5027015-HCON TO FLD5027015-HDG.                      RPTRT50 
00445      MOVE RES-ELAPSED-TIME TO FLD5027015-VAL.                     RPTRT50 
00446 *                                                                 RPTRT50 
00447 *    FORMAT RES ELAPSED UNIT FIELD                                RPTRT50 
00448 *                                                                 RPTRT50 
00449  24025-FMT-FLD20.                                                 RPTRT50 
00450      IF RES-ELAPSED-UNIT EQUAL TO SPACES                          RPTRT50 
00451          GO TO 24050-FMT-FLD25.                                   RPTRT50 
00452      GO TO 24035-INTERPRET-CODE.                                  RPTRT50 
00453  24030-JUST-CODE.                                                 RPTRT50 
00454      MOVE RES-ELAPSED-UNIT TO FLD5027020-POS1.                    RPTRT50 
00455          GO TO 24050-FMT-FLD25.                                   RPTRT50 
00456  24035-INTERPRET-CODE.                                            RPTRT50 
00457      MOVE 01 TO SUB3.                                             RPTRT50 
00458  24040-NEXT-CODE-CK.                                              RPTRT50 
00459      IF FLD5027020-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00460          GO TO 24030-JUST-CODE.                                   RPTRT50 
00461      IF FLD5027020-CODES (SUB3) EQUAL TO RES-ELAPSED-UNIT            CL**2
00462          GO TO 24045-EXTRACT-MNG.                                 RPTRT50 
00463      ADD 1 TO SUB3.                                               RPTRT50 
00464      GO TO 24040-NEXT-CODE-CK.                                    RPTRT50 
00465  24045-EXTRACT-MNG.                                               RPTRT50 
00466      MOVE FLD5027020-MNG (SUB3) TO FLD5027020-VAL.                RPTRT50 
00467 *                                                                 RPTRT50 
00468 *    FORMAT CPU TIME FIELD                                        RPTRT50 
00469 *                                                                 RPTRT50 
00470  24050-FMT-FLD25.                                                 RPTRT50 
00471      IF RES-CPU-TIME EQUAL TO SPACES                              RPTRT50 
00472          GO TO 24060-FMT-FLD30.                                   RPTRT50 
00473      MOVE FLD5027025-HCON TO FLD5027025-HDG.                      RPTRT50 
00474      MOVE RES-CPU-TIME TO FLD5027025-VAL.                         RPTRT50 
00475 *                                                                 RPTRT50 
00476 *    FORMAT CPU UNIT FIELD                                        RPTRT50 
00477 *                                                                 RPTRT50 
00478  24060-FMT-FLD30.                                                 RPTRT50 
00479      IF RES-CPU-UNIT EQUAL TO SPACES                              RPTRT50 
00480          GO TO 24090-FMT-FLD35.                                   RPTRT50 
00481      GO TO 24070-INTERPRET-CODE.                                  RPTRT50 
00482  24065-JUST-CODE.                                                    CL**2
00483      MOVE RES-CPU-UNIT TO FLD5027030-POS1.                        RPTRT50 
00484          GO TO 24090-FMT-FLD35.                                   RPTRT50 
00485  24070-INTERPRET-CODE.                                            RPTRT50 
00486      MOVE 01 TO SUB3.                                             RPTRT50 
00487  24075-NEXT-CODE-CK.                                              RPTRT50 
00488      IF FLD5027030-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00489          GO TO 24065-JUST-CODE.                                   RPTRT50 
00490      IF FLD5027030-CODES (SUB3) EQUAL TO RES-CPU-UNIT             RPTRT50 
00491          GO TO 24080-EXTRACT-MNG.                                 RPTRT50 
00492      ADD 1 TO SUB3.                                               RPTRT50 
00493      GO TO 24075-NEXT-CODE-CK.                                    RPTRT50 
00494  24080-EXTRACT-MNG.                                               RPTRT50 
00495      MOVE FLD5027030-MNG (SUB3) TO FLD5027030-VAL.                   CL**2
00496 *                                                                 RPTRT50 
00497 *    FORMAT PROCEDURE NAME FIELD                                  RPTRT50 
00498 *                                                                 RPTRT50 
00499  24090-FMT-FLD35.                                                 RPTRT50 
00500      IF RES-PROCEDURE EQUAL TO SPACES                             RPTRT50 
00501          GO TO 24095-OUTPUT-LN2.                                  RPTRT50 
00502      MOVE FLD5027035-HCON TO FLD5027035-HDG.                         CL**2
00503      MOVE RES-PROCEDURE TO FLD5027035-VAL.                        RPTRT50 
00504 *                                                                 RPTRT50 
00505 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT50 
00506 *                                                                 RPTRT50 
00507  24095-OUTPUT-LN2.                                                RPTRT50 
00508      IF CAT50270-LINE2 EQUAL TO SPACES                            RPTRT50 
00509          GO TO 24100-FMT-FLD40.                                   RPTRT50 
00510      MOVE CAT50270-LINE2 TO STDRPT-70CHR.                         RPTRT50 
00511      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00512 *                                                                 RPTRT50 
00513 *    FORMAT 3RD DISPLAY LINE                                      RPTRT50 
00514 *                                                                 RPTRT50 
00515  24100-FMT-FLD40.                                                 RPTRT50 
00516      MOVE SPACES TO CAT50270-LINE3.                                  CL**2
00517      IF RES-PROC-SEQ EQUAL TO SPACES                              RPTRT50 
00518          GO TO 24105-FMT-FLD45.                                   RPTRT50 
00519      MOVE FLD5027040-HCON TO FLD5027040-HDG.                      RPTRT50 
00520      MOVE RES-PROC-SEQ TO FLD5027040-VAL.                         RPTRT50 
00521 *                                                                 RPTRT50 
00522 *    FORMAT LINES PRINTED FIELD                                   RPTRT50 
00523 *                                                                 RPTRT50 
00524  24105-FMT-FLD45.                                                 RPTRT50 
00525      IF RES-LINES EQUAL TO SPACES                                 RPTRT50 
00526          GO TO 24110-FMT-FLD50.                                   RPTRT50 
00527      MOVE FLD5027045-HCON TO FLD5027045-HDG.                      RPTRT50 
00528      MOVE RES-LINES TO FLD5027045-VAL.                            RPTRT50 
00529 *                                                                 RPTRT50 
00530 *    FORMAT CARDS PUNCHED FIELD                                   RPTRT50 
00531 *                                                                 RPTRT50 
00532  24110-FMT-FLD50.                                                 RPTRT50 
00533      IF RES-PUNCH EQUAL TO SPACES                                 RPTRT50 
00534          GO TO 24120-OUTPUT-LN3.                                  RPTRT50 
00535      MOVE FLD5027050-HCON TO FLD5027050-HDG.                      RPTRT50 
00536      MOVE RES-PUNCH TO FLD5027050-VAL.                            RPTRT50 
00537 *                                                                 RPTRT50 
00538 *    OUTPUT 3RD DISPLAY LINE                                      RPTRT50 
00539 *                                                                 RPTRT50 
00540  24120-OUTPUT-LN3.                                                RPTRT50 
00541      IF CAT50270-LINE3 EQUAL TO SPACES                            RPTRT50 
00542          GO TO 24130-FMT-CAT270-XIT.                              RPTRT50 
00543      MOVE CAT50270-LINE3 TO STDRPT-70CHR.                         RPTRT50 
00544      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00545  24130-FMT-CAT270-XIT.                                            RPTRT50 
00546      EXIT.                                                        RPTRT50 
00547                                                                    RPTRT50
00548 ******************************************************************RPTRT50 
00549 *                                                                 RPTRT50 
00550 *    FORMAT CATEGORY 280 DETAIL LINE                              RPTRT50 
00551 *        CATEGORY 280 = SCHEDULING                                RPTRT50 
00552 *                                                                 RPTRT50 
00553 ******************************************************************RPTRT50 
00554  24500-FMT-CAT280.                                                RPTRT50 
00555      MOVE SPACES TO CAT50280-LINE1.                                  CL**2
00556 *                                                                 RPTRT50 
00557 *    FORMAT NORMAL START FIELD                                    RPTRT50 
00558 *                                                                 RPTRT50 
00559  24505-FMT-FLD05.                                                 RPTRT50 
00560      IF SCHLD-NORM-START EQUAL TO SPACES                          RPTRT50 
00561          GO TO 24510-FMT-FLD10.                                   RPTRT50:  
00562      MOVE FLD5028005-HCON TO FLD5028005-HDG.                      RPTRT50 
00563      MOVE SCHLD-NORM-START TO FLD5028005-VAL.                     RPTRT50 
00564 *                                                                 RPTRT50 
00565 *    FORMAT NORMAL STOP FIELD                                     RPTRT50 
00566 *                                                                 RPTRT50 
00567  24510-FMT-FLD10.                                                 RPTRT50 
00568      IF SCHLD-NORM-STOP EQUAL TO SPACES                           RPTRT50 
00569          GO TO 24520-FMT-FLD15.                                   RPTRT50 
00570      MOVE FLD5028010-HCON TO FLD5028010-HDG.                      RPTRT50 
00571      MOVE SCHLD-NORM-STOP TO FLD5028010-VAL.                      RPTRT50 
00572 *                                                                 RPTRT50 
00573 *                                                                 RPTRT50 
00574 *    FORMAT NORMAL DAY FIELD                                      RPTRT50 
00575 *                                                                 RPTRT50 
00576  24520-FMT-FLD15.                                                 RPTRT50 
00577      IF SCHLD-NORM-DAY EQUAL TO SPACES                            RPTRT50 
00578          GO TO 24530-OUTPUT-LN1.                                  RPTRT50 
00579      MOVE FLD5028015-HCON TO FLD5028015-HDG.                      RPTRT50 
00580      MOVE SCHLD-NORM-DAY TO FLD5028015-VAL.                       RPTRT50 
00581 *                                                                 RPTRT50 
00582 *    FORMAT 1ST OUTPUT LINE                                       RPTRT50 
00583 *                                                                 RPTRT50 
00584  24530-OUTPUT-LN1.                                                RPTRT50 
00585      IF CAT50280-LINE1 EQUAL TO SPACES                            RPTRT50 
00586          GO TO 24540-FMT-FLD20.                                   RPTRT50 
00587      MOVE CAT50280-LINE1 TO STDRPT-70CHR.                         RPTRT50 
00588      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00589 *                                                                 RPTRT50 
00590 *    FORMAT 2ND DISPLAY LINE                                      RPTRT50 
00591 *                                                                 RPTRT50 
00592  24540-FMT-FLD20.                                                 RPTRT50 
00593      MOVE SPACES TO CAT50280-LINE2.                               RPTRT50 
00594 *                                                                 RPTRT50 
00595 *    FORMAT DEADLINE START FIELD                                  RPTRT50 
00596 *                                                                 RPTRT50 
00597      IF SCHLD-DEAD-START EQUAL TO SPACES                          RPTRT50 
00598          GO TO 24550-FMT-FLD25.                                   RPTRT50 
00599      MOVE FLD5028020-HCON TO FLD5028020-HDG.                      RPTRT50 
00600      MOVE SCHLD-DEAD-START TO FLD5028020-VAL.                     RPTRT50 
00601 *                                                                 RPTRT50 
00602 *    FORMAT DEADLINE STOP FIELD                                   RPTRT50 
00603 *                                                                 RPTRT50 
00604  24550-FMT-FLD25.                                                 RPTRT50 
00605      IF SCHLD-DEAD-STOP EQUAL TO SPACES                           RPTRT50 
00606          GO TO 24560-FMT-FLD30.                                   RPTRT50 
00607      MOVE FLD5028025-HCON TO FLD5028025-HDG.                      RPTRT50 
00608      MOVE SCHLD-DEAD-STOP TO FLD5028025-VAL.                      RPTRT50 
00609 *                                                                 RPTRT50 
00610 *    FORMAT DEADLINE DAY FIELD                                    RPTRT50 
00611 *                                                                 RPTRT50 
00612  24560-FMT-FLD30.                                                 RPTRT50 
00613      IF SCHLD-DEAD-DAY EQUAL TO SPACES                            RPTRT50 
00614          GO TO 24570-OUTPUT-LN2.                                  RPTRT50 
00615      MOVE FLD5028030-HCON TO FLD5028030-HDG.                      RPTRT50 
00616      MOVE SCHLD-DEAD-DAY TO FLD5028030-VAL.                       RPTRT50 
00617 *                                                                 RPTRT50 
00618 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT50 
00619 *                                                                 RPTRT50 
00620  24570-OUTPUT-LN2.                                                RPTRT50 
00621      IF CAT50280-LINE2 EQUAL TO SPACES                            RPTRT50 
00622          GO TO 24580-FMT-FLD35.                                   RPTRT50 
00623      MOVE CAT50280-LINE2 TO STDRPT-70CHR.                         RPTRT50 
00624      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00625 *                                                                 RPTRT50 
00626 *    FORMAT 3RD DISPLAY LINE                                      RPTRT50 
00627 *                                                                 RPTRT50 
00628  24580-FMT-FLD35.                                                 RPTRT50 
00629      MOVE SPACES TO CAT50280-LINE3.                               RPTRT50 
00630 *                                                                 RPTRT50 
00631 *    FORMAT CYCLE FIELD                                           RPTRT50 
00632 *                                                                 RPTRT50 
00633      IF SCHLD-CYCLE EQUAL TO SPACES                               RPTRT50 
00634          GO TO 24605-FMT-FLD40.                                   RPTRT50 
00635      MOVE FLD5028035-HCON TO FLD5028035-HDG.                      RPTRT50 
00636          GO TO 24590-INTERPRET-CODE.                              RPTRT50 
00637  24585-JUST-CODE.                                                 RPTRT50 
00638      MOVE SCHLD-CYCLE TO FLD5028035-POS1.                         RPTRT50 
00639      GO TO 24605-FMT-FLD40.                                       RPTRT50 
00640  24590-INTERPRET-CODE.                                            RPTRT50 
00641      MOVE 01 TO SUB3.                                             RPTRT50 
00642  24595-NEXT-CODE-CK.                                              RPTRT50 
00643      IF FLD5028035-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00644          GO TO 24585-JUST-CODE.                                   RPTRT50 
00645      IF FLD5028035-CODES (SUB3) EQUAL TO SCHLD-CYCLE              RPTRT50 
00646          GO TO 24600-EXTRACT-MNG.                                 RPTRT50:  
00647      ADD 1 TO SUB3.                                               RPTRT50 
00648      GO TO 24595-NEXT-CODE-CK.                                    RPTRT50 
00649  24600-EXTRACT-MNG.                                                  CL**2
00650      MOVE FLD5028035-MNG (SUB3) TO FLD5028035-VAL.                RPTRT50 
00651 *                                                                 RPTRT50 
00652 *    FORMAT PRECEDING PROGRAM FIELD                               RPTRT50 
00653 *                                                                 RPTRT50 
00654  24605-FMT-FLD40.                                                 RPTRT50 
00655      IF SCHLD-PROCED-PROG EQUAL TO SPACES                         RPTRT50 
00656          GO TO 24610-OUTPUT-LN3.                                  RPTRT50 
00657      MOVE FLD5028040-HCON TO FLD5028040-HDG.                      RPTRT50 
00658      MOVE SCHLD-PROCED-PROG TO FLD5028040-VAL.                    RPTRT50 
00659 *                                                                 RPTRT50 
00660 *    OUTPUT 3RD DISPLAY LINE                                      RPTRT50 
00661 *                                                                 RPTRT50 
00662  24610-OUTPUT-LN3.                                                RPTRT50 
00663      IF CAT50280-LINE3 EQUAL TO SPACES                            RPTRT50 
00664          GO TO 24620-FMT-CAT280-XIT.                              RPTRT50 
00665      MOVE CAT50280-LINE3 TO STDRPT-70CHR.                         RPTRT50 
00666      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00667  24620-FMT-CAT280-XIT.                                            RPTRT50 
00668      EXIT.                                                        RPTRT50 
00669                                                                    RPTRT50
00670 ******************************************************************RPTRT50 
00671 *                                                                 RPTRT50 
00672 *    FORMAT CATEGORY 290 DETAIL LINE                              RPTRT50 
00673 *        CATEGORY 290 = PASSING                                   RPTRT50 
00674 *                                                                 RPTRT50 
00675 ******************************************************************RPTRT50 
00676  24700-FMT-CAT290.                                                RPTRT50 
00677      MOVE SPACES TO CAT50290-LINE1.                               RPTRT50 
00678 *                                                                 RPTRT50 
00679 *    FORMAT PASSING CATALOGUE NAME FIELD                          RPTRT50 
00680 *                                                                 RPTRT50 
00681  24705-FMT-FLD05.                                                 RPTRT50 
00682      IF PASS-CNAME EQUAL TO SPACES                                RPTRT50 
00683          GO TO 24720-FMT-CAT290-XIT.                              RPTRT50 
00684      MOVE PASS-CNAME TO FLD5029005-VAL.                           RPTRT50 
00685 *                                                                 RPTRT50 
00686 *    FORMAT OUTPUT LINE                                           RPTRT50 
00687 *                                                                 RPTRT50 
00688  24710-OUTPUT-LN1.                                                RPTRT50 
00689      IF CAT50290-LINE1 EQUAL TO SPACES                            RPTRT50 
00690          GO TO 24720-FMT-CAT290-XIT.                              RPTRT50 
00691      MOVE CAT50290-LINE1 TO STDRPT-70CHR.                         RPTRT50 
00692      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50:  
00693  24720-FMT-CAT290-XIT.                                            RPTRT50 
00694      EXIT.                                                        RPTRT50 
00695                                                                    RPTRT50
00696 ******************************************************************RPTRT50 
00697 *                                                                 RPTRT50 
00698 *    FORMAT CATEGORY 800 DETAIL LINES                             RPTRT50 
00699 *        CATEGORY 800 = RELATIONAL                                RPTRT50 
00700 *                                                                 RPTRT50 
00701 ******************************************************************RPTRT50 
00702  24800-FMT-CAT800.                                                RPTRT50 
00703      MOVE SPACES TO CAT50800-LINE1.                               RPTRT50 
00704 *                                                                 RPTRT50 
00705 *    FORMAT HEADING LINE                                          RPTRT50 
00706 *                                                                 RPTRT50 
00707  24800-FMT-HEAD.                                                  RPTRT50 
00708      IF FIRST-REC-SW EQUAL TO "N"                                 RPTRT50 
00709          GO TO 24810-CHECK-COMMENT.                                  CL**2
00710      MOVE "N" TO FIRST-REC-SW.                                    RPTRT50 
00711      MOVE FLD5080005-HCON TO FLD5080005-HDG.                      RPTRT50 
00712      MOVE FLD50800US-HCON TO FLD50800US-HDG.                      RPTRT50 
00713      MOVE FLD5080015-HCON TO FLD5080015-HDG.                      RPTRT50 
00714 *                                                                 RPTRT50 
00715 *    OUTPUT HEADING LINE                                          RPTRT50 
00716 *                                                                 RPTRT50 
00717  24805-FMT-HEADING.                                               RPTRT50 
00718      MOVE CAT50800-LINE1 TO STDRPT-70CHR.                         RPTRT50 
00719      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00720      MOVE 1 TO PRT-CTL.                                              CL**2
00721      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00722      MOVE CAT-REV  TO STDRPT-REVNO.                                  CL**2
00723      MOVE CAT-LINE  TO STDRPT-LINE.                                  CL**2
00724  24810-CHECK-COMMENT.                                                CL**2
00725      IF CAT-COMMENT NOT EQUAL TO "*"                                 CL**2
00726          GO TO 24825-FMT-FLD05.                                      CL**2
00727      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.               CL**2
00728      GO TO 25010-FMT-CAT800-XIT.                                     CL**2
00729 *                                                                 RPTRT50 
00730 *    FORMAT CATALOGUE NAME FIELD                                  RPTRT50 
00731 *                                                                 RPTRT50 
00732  24825-FMT-FLD05.                                                 RPTRT50 
00733      MOVE SPACES TO CAT50800-LINE2.                               RPTRT50 
00734      IF REL-PRG-CNAME EQUAL TO SPACES                                CL**2
00735          GO TO 24830-FMT-FLD10.                                   RPTRT50 
00736      MOVE FLD5080005-HCON TO FLD5080005-HDG.                      RPTRT50 
00737      MOVE REL-PRG-CNAME TO FLD5080005-VAL.                           CL**2
00738 *                                                                 RPTRT50 
00739 *    FORMAT PARTIAL FIELD                                         RPTRT50 
00740 *                                                                 RPTRT50 
00741  24830-FMT-FLD10.                                                 RPTRT50 
00742      IF REL-PRG-PUSE EQUAL TO SPACES                                 CL**2
00743          GO TO 24860-FMT-FLD15.                                   RPTRT50 
00744      GO TO 24840-INTERPRET-CODE.                                  RPTRT50 
00745  24835-JUST-CODE.                                                 RPTRT50 
00746      MOVE REL-PRG-PUSE TO FLD5080010-POS1.                           CL**2
00747          GO TO 24860-FMT-FLD15.                                   RPTRT50 
00748  24840-INTERPRET-CODE.                                            RPTRT50 
00749      MOVE 01 TO SUB3.                                             RPTRT50 
00750  24845-NEXT-CODE-CK.                                              RPTRT50 
00751      IF FLD5080010-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00752          GO TO 24835-JUST-CODE.                                   RPTRT50 
00753      IF FLD5080010-CODES (SUB3) EQUAL TO REL-PRG-PUSE                CL**2
00754          GO TO 24850-EXTRACT-MNG.                                 RPTRT50 
00755      ADD 1 TO SUB3.                                               RPTRT50 
00756      GO TO 24845-NEXT-CODE-CK.                                    RPTRT50 
00757  24850-EXTRACT-MNG.                                               RPTRT50 
00758      MOVE FLD5080010-MNG (SUB3) TO FLD5080010-VAL.                RPTRT50 
00759 *                                                                 RPTRT50 
00760 *    FORMAT I/O FIELD                                             RPTRT50 
00761 *                                                                 RPTRT50 
00762  24860-FMT-FLD15.                                                 RPTRT50 
00763      IF REL-PRG-IO EQUAL TO SPACES                                   CL**2
00764          GO TO 24890-OUTPUT-LN2.                                  RPTRT50 
00765      GO TO 24870-INTERPRET-CODE.                                  RPTRT50 
00766  24865-JUST-CODE.                                                 RPTRT50 
00767      MOVE REL-PRG-IO TO FLD5080015-POS1.                             CL**2
00768          GO TO 24890-OUTPUT-LN2.                                  RPTRT50 
00769  24870-INTERPRET-CODE.                                            RPTRT50 
00770      MOVE 01 TO SUB3.                                             RPTRT50 
00771  24875-NEXT-CODE-CK.                                              RPTRT50 
00772      IF FLD5080015-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00773          GO TO 24865-JUST-CODE.                                   RPTRT50 
00774      IF FLD5080015-CODES (SUB3) EQUAL TO REL-PRG-IO                  CL**2
00775          GO TO 24880-EXTRACT-MNG.                                 RPTRT50 
00776      ADD 1 TO SUB3.                                               RPTRT50 
00777      GO TO 24875-NEXT-CODE-CK.                                    RPTRT50 
00778  24880-EXTRACT-MNG.                                               RPTRT50 
00779      MOVE FLD5080015-MNG (SUB3) TO FLD5080015-VAL.                RPTRT50 
00780 *                                                                 RPTRT50 
00781 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT50 
00782 *                                                                 RPTRT50 
00783  24890-OUTPUT-LN2.                                                RPTRT50 
00784      IF CAT50800-LINE2 EQUAL TO SPACES                            RPTRT50 
00785          GO TO 24900-FMT-FLD20.                                   RPTRT50 
00786      MOVE CAT50800-LINE2 TO STDRPT-70CHR.                         RPTRT50 
00787      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00788 *                                                                 RPTRT50 
00789 *    FORMAT 3RD DISPLAY LINE                                      RPTRT50 
00790 *                                                                 RPTRT50 
00791  24900-FMT-FLD20.                                                 RPTRT50 
00792      MOVE SPACES TO CAT50800-LINE3.                                  CL**2
00793      IF REL-PRG-ACCESS EQUAL TO SPACES                               CL**2
00794          GO TO 24925-FMT-FLD25.                                   RPTRT50 
00795      MOVE FLD50800ACC-HCON TO FLD50800ACC-HDG.                    RPTRT50 
00796      MOVE FLD5080020-HCON TO FLD5080020-HDG.                      RPTRT50 
00797          GO TO 24910-INTERPRET-CODE.                              RPTRT50 
00798  24905-JUST-CODE.                                                 RPTRT50 
00799      MOVE REL-PRG-ACCESS TO FLD5080020-POS1.                         CL**2
00800          GO TO 24925-FMT-FLD25.                                   RPTRT50 
00801  24910-INTERPRET-CODE.                                            RPTRT50 
00802      MOVE 01 TO SUB3.                                             RPTRT50 
00803  24915-NEXT-CODE-CK.                                              RPTRT50 
00804      IF FLD5080020-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00805          GO TO 24905-JUST-CODE.                                   RPTRT50 
00806      IF FLD5080020-CODES (SUB3) EQUAL TO REL-PRG-ACCESS              CL**2
00807          GO TO 24920-EXTRACT-MNG.                                 RPTRT50 
00808      ADD 1 TO SUB3.                                               RPTRT50 
00809      GO TO 24915-NEXT-CODE-CK.                                    RPTRT50 
00810  24920-EXTRACT-MNG.                                               RPTRT50 
00811      MOVE FLD5080020-MNG (SUB3) TO FLD5080020-VAL.                RPTRT50 
00812 *                                                                 RPTRT50 
00813 *FORMAT CYCLE FIELD                                               RPTRT50 
00814 *                                                                 RPTRT50 
00815  24925-FMT-FLD25.                                                 RPTRT50 
00816      IF REL-PRG-CYCLE EQUAL TO SPACES                                CL**2
00817          GO TO 24950-FMT-FLD30.                                   RPTRT50 
00818      MOVE FLD50800ACC-HCON TO FLD50800ACC-HDG.                    RPTRT50 
00819      MOVE FLD5080025-HCON TO FLD5080025-HDG.                      RPTRT50 
00820          GO TO 24935-INTERPRET-CODE.                              RPTRT50 
00821  24930-JUST-CODE.                                                 RPTRT50 
00822      MOVE REL-PRG-CYCLE TO FLD5080025-VAL.                           CL**2
00823          GO TO 24950-FMT-FLD30.                                   RPTRT50 
00824  24935-INTERPRET-CODE.                                            RPTRT50 
00825      MOVE 01 TO SUB3.                                             RPTRT50 
00826  24940-NEXT-CODE-CK.                                              RPTRT50 
00827      IF FLD5080025-CODES (SUB3) EQUAL TO "9"                      RPTRT50 
00828          GO TO 24930-JUST-CODE.                                   RPTRT50 
00829      IF FLD5080025-CODES (SUB3) EQUAL TO REL-PRG-CYCLE               CL**2
00830          GO TO 24945-EXTRACT-MNG.                                 RPTRT50 
00831      ADD 1 TO SUB3.                                               RPTRT50 
00832      GO TO 24940-NEXT-CODE-CK.                                    RPTRT50 
00833  24945-EXTRACT-MNG.                                               RPTRT50 
00834      MOVE FLD5080025-MNG (SUB3) TO FLD5080025-VAL.                RPTRT50 
00835 *                                                                 RPTRT50 
00836 *    FORMAT FREQUENCY FIELD                                       RPTRT50 
00837 *                                                                 RPTRT50 
00838  24950-FMT-FLD30.                                                 RPTRT50 
00839      IF REL-PRG-FREQ EQUAL TO SPACES                                 CL**2
00840          GO TO 24960-OUTPUT-LN3.                                  RPTRT50 
00841      MOVE FLD5080030-HCON TO FLD5080030-HDG.                      RPTRT50 
00842      MOVE REL-PRG-FREQ TO FLD5080030-VAL.                            CL**2
00843 *                                                                 RPTRT50 
00844 *    OUTPUT 3RD DISPLAY LINE                                      RPTRT50 
00845 *                                                                 RPTRT50 
00846  24960-OUTPUT-LN3.                                                RPTRT50 
00847      IF CAT50800-LINE3 EQUAL TO SPACES                            RPTRT50 
00848          GO TO 24970-FMT-FLDDISP.                                 RPTRT50 
00849      MOVE CAT50800-LINE3 TO STDRPT-70CHR.                         RPTRT50 
00850      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00851 *                                                                 RPTRT50 
00852 *    FORMAT 3RD DISPLAY LINE                                      RPTRT50 
00853 *                                                                 RPTRT50 
00854  24970-FMT-FLDDISP.                                               RPTRT50 
00855      MOVE SPACES TO CAT50800-LINE4.                                  CL**2
00856      IF REL-PRG-DISP EQUAL TO SPACES                                 CL**2
00857          GO TO 25000-OUTPUT-LN4.                                  RPTRT50 
00858      MOVE FLD50800DISP-HCON TO FLD50800DISP-HDG.                  RPTRT50 
00859      MOVE REL-PRG-DISP TO FLD5080035-VAL.                            CL**2
00860 *                                                                 RPTRT50 
00861 *    OUTPUT 4TH DISPLAY LINE                                      RPTRT50 
00862 *                                                                 RPTRT50 
00863  25000-OUTPUT-LN4.                                                RPTRT50 
00864      IF CAT50800-LINE4 EQUAL TO SPACES                            RPTRT50 
00865          GO TO 25010-FMT-CAT800-XIT.                              RPTRT50 
00866      MOVE CAT50800-LINE4 TO STDRPT-70CHR.                         RPTRT50 
00867      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT50 
00868  25010-FMT-CAT800-XIT.                                            RPTRT50 
00869      EXIT.                                                        RPTRT50 
00870                                                                    RPTRT50
