*COMDECK  RPTRT55 
00001 ******************************************************************04/28/78
00002 *                                                                 RPTRT55 
00003 *        FORMAT CATEGORY 140 DETAIL LINE                             LV001
00004 *            CATEGORY 140 = RESPONSIBILITY                        RPTRT55 
00005 *                                                                 RPTRT55 
00006 ******************************************************************RPTRT55 
00007  25000-FMT-CAT-140.                                               RPTRT55 
00008      MOVE SPACES TO CAT55140-LINE1.                               RPTRT55 
00009 *                                                                 RPTRT55 
00010 *    FORMAT STATUS FIELD                                          RPTRT55 
00011 *                                                                 RPTRT55 
00012  25005-FMT-FLD05.                                                    CL**2
00013      IF RESP-TSK-STATUS  EQUAL TO SPACES                          RPTRT55 
00014          GO TO 25030-FMT-FLD10.                                   RPTRT55 
00015      MOVE FLD5514005-HCON TO FLD5514005-HDG.                      RPTRT55 
00016          GO TO 25015-INTERPRET-CODE.                              RPTRT55 
00017  25010-JUST-CODE.                                                 RPTRT55 
00018      MOVE RESP-TSK-STATUS    TO FLD5514005-POS1.                  RPTRT55 
00019          GO TO 25030-FMT-FLD10.                                   RPTRT55 
00020  25015-INTERPRET-CODE.                                            RPTRT55 
00021      MOVE 01 TO SUB3.                                             RPTRT55 
00022  25020-NEXT-CODE-CK.                                              RPTRT55 
00023      IF FLD5514005-CODES (SUB3) EQUAL TO "9"                      RPTRT55 
00024          GO TO 25010-JUST-CODE.                                   RPTRT55 
00025      IF FLD5514005-CODES (SUB3) EQUAL TO RESP-TSK-STATUS          RPTRT55 
00026          GO TO 25025-EXTRACT-MNG.                                 RPTRT55 
00027      ADD 1 TO SUB3.                                               RPTRT55 
00028      GO TO 25020-NEXT-CODE-CK.                                    RPTRT55 
00029  25025-EXTRACT-MNG.                                               RPTRT55 
00030      MOVE FLD5514005-MNG (SUB3) TO FLD5514005-VAL.                RPTRT55 
00031 *                                                                 RPTRT55 
00032 *    FORMAT FUNCTION FIELD                                        RPTRT55 
00033 *                                                                 RPTRT55 
00034  25030-FMT-FLD10.                                                 RPTRT55 
00035      IF RESP-TSK-FUNC   EQUAL TO SPACES                           RPTRT55 
00036          GO TO 25055-FMT-FLD25.                                   RPTRT55 
00037      MOVE FLD5514010-HCON TO FLD5514010-HDG.                         CL**2
00038          GO TO 25040-INTERPRET-CODE.                              RPTRT55 
00039  25035-JUST-CODE.                                                 RPTRT55 
00040      MOVE RESP-TSK-FUNC   TO FLD5514010-POS1.                     RPTRT55 
00041          GO TO 25055-FMT-FLD25.                                   RPTRT55 
00042  25040-INTERPRET-CODE.                                            RPTRT55 
00043      MOVE 01 TO SUB3.                                             RPTRT55 
00044  25045-NEXT-CODE-CK.                                              RPTRT55 
00045      IF FLD5514010-CODES (SUB3) EQUAL TO "9"                      RPTRT55 
00046          GO TO 25035-JUST-CODE.                                   RPTRT55 
00047      IF FLD5514010-CODES (SUB3) EQUAL TO RESP-TSK-FUNC            RPTRT55 
00048          GO TO 25050-EXTRACT-MNG.                                 RPTRT55 
00049      ADD 1 TO SUB3.                                               RPTRT55 
00050      GO TO 25045-NEXT-CODE-CK.                                    RPTRT55 
00051  25050-EXTRACT-MNG.                                               RPTRT55 
00052      MOVE FLD5514010-MNG (SUB3) TO FLD5514010-VAL.                RPTRT55 
00053 *                                                                 RPTRT55 
00054 *    FORMAT PHONE FIELD.                                          RPTRT55 
00055 *                                                                 RPTRT55 
00056  25055-FMT-FLD25.                                                 RPTRT55 
00057      IF RESP-TSK-PHONE   EQUAL TO SPACES                          RPTRT55 
00058          GO TO 25060-FMT-FLD35.                                   RPTRT55 
00059      MOVE FLD5514025-HCON TO FLD5514025-HDG.                         CL**2
00060      MOVE RESP-TSK-PHONE TO FLD5514025-VAL.                       RPTRT55 
00061 *                                                                 RPTRT55 
00062 *    FORMAT MAIL FIELD                                            RPTRT55 
00063 *                                                                 RPTRT55 
00064  25060-FMT-FLD35.                                                    CL**2
00065      IF RESP-TSK-MAIL  EQUAL TO SPACES                            RPTRT55 
00066          GO TO 25065-OUTPUT-LN1.                                  RPTRT55 
00067      MOVE FLD5514035-HCON TO FLD5514035-HDG.                      RPTRT55 
00068      MOVE RESP-TSK-MAIL  TO FLD5514035-VAL.                       RPTRT55 
00069 *                                                                 RPTRT55 
00070 *    OUTPUT DISPLAY LINE                                          RPTRT55 
00071 *                                                                 RPTRT55 
00072  25065-OUTPUT-LN1.                                                RPTRT55 
00073      IF CAT55140-LINE1 EQUAL TO SPACES                            RPTRT55 
00074          GO TO 25070-FMT-FLD15.                                   RPTRT55 
00075      MOVE CAT55140-LINE1 TO STDRPT-70CHR.                         RPTRT55 
00076      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT55 
00077 *                                                                 RPTRT55 
00078 *    FORMAT 2ND DISPLAY LINE                                      RPTRT55 
00079 *                                                                 RPTRT55 
00080  25070-FMT-FLD15.                                                 RPTRT55 
00081      MOVE SPACES TO CAT55140-LINE2.                               RPTRT55 
00082 *    FORMAT DEPARTMENT FIELD                                      RPTRT55 
00083 *                                                                 RPTRT55 
00084      IF RESP-TSK-DEPT  EQUAL TO SPACES                            RPTRT55 
00085          GO TO 25075-FMT-FLD40.                                   RPTRT55 
00086      MOVE FLD5514015-HCON TO FLD5514015-HDG.                      RPTRT55 
00087      MOVE RESP-TSK-DEPT  TO FLD5514015-VAL.                       RPTRT55 
00088 *                                                                 RPTRT55 
00089 *    FORMAT DATE FIELD                                            RPTRT55 
00090 *                                                                 RPTRT55 
00091  25075-FMT-FLD40.                                                 RPTRT55 
00092      IF RESP-TSK-DATE  EQUAL TO SPACES                            RPTRT55 
00093          GO TO 25080-OUTPUT-LN2.                                  RPTRT55 
00094      MOVE  FLD5514040-HCON TO FLD5514040-HDG.                        CL**2
00095      MOVE RESP-TSK-DATE  TO FLD5514040-VAL.                       RPTRT55 
00096  25080-OUTPUT-LN2.                                                RPTRT55 
00097      IF CAT55140-LINE2 EQUAL TO SPACES                            RPTRT55 
00098          GO TO 25085-FMT-FLD20.                                   RPTRT55 
00099      MOVE CAT55140-LINE2 TO STDRPT-70CHR.                         RPTRT55 
00100      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT55 
00101 *                                                                 RPTRT55 
00102 *    FORMAT 3RD DISPLAY LINE                                      RPTRT55 
00103 *                                                                 RPTRT55 
00104  25085-FMT-FLD20.                                                 RPTRT55 
00105      MOVE SPACES TO CAT55140-LINE3.                               RPTRT55 
00106 *                                                                 RPTRT55 
00107 *    FORMAT PERSON FIELD                                          RPTRT55 
00108 *                                                                 RPTRT55 
00109      IF RESP-TSK-PERSON  EQUAL TO SPACES                          RPTRT55 
00110          GO TO 25090-FMT-FLD30.                                   RPTRT55 
00111      MOVE FLD5514020-HCON TO FLD5514020-HDG.                      RPTRT55 
00112      MOVE RESP-TSK-PERSON TO FLD5514020-VAL.                      RPTRT55 
00113 *                                                                 RPTRT55 
00114 *    FORMAT TITLE FIELD                                           RPTRT55 
00115 *                                                                 RPTRT55 
00116  25090-FMT-FLD30.                                                 RPTRT55 
00117      IF RESP-TSK-TITLE EQUAL TO SPACES                            RPTRT55 
00118          GO TO 25095-OUTPUT-LN3.                                  RPTRT55:  
00119      MOVE FLD5514030-HCON TO FLD5514030-HDG.                      RPTRT55 
00120      MOVE RESP-TSK-TITLE TO FLD5514030-VAL.                       RPTRT55 
00121  25095-OUTPUT-LN3.                                                RPTRT55 
00122      IF CAT55140-LINE3 EQUAL TO SPACES                            RPTRT55 
00123          GO TO 25099-FMT-CAT140-XIT.                              RPTRT55 
00124      MOVE CAT55140-LINE3 TO STDRPT-70CHR.                         RPTRT55 
00125      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT55 
00126  25099-FMT-CAT140-XIT.                                            RPTRT55 
00127      EXIT.                                                        RPTRT55 
00128                                                                    RPTRT55
00129 ******************************************************************RPTRT55 
00130 *                                                                 RPTRT55 
00131 *        FORMAT CATEGORY 200 DETAIL LINE                          RPTRT55 
00132 *            CATEGORY 200 = NAME                                  RPTRT55 
00133 *                                                                 RPTRT55 
00134 ******************************************************************RPTRT55 
00135  25200-FMT-CAT-200.                                               RPTRT55 
00136      MOVE SPACES TO CAT55200-LINE1.                               RPTRT55 
00137 *                                                                 RPTRT55 
00138 *    FORMAT NAME FIELD                                            RPTRT55 
00139 *                                                                 RPTRT55 
00140  25205-FMT-FLD05.                                                 RPTRT55 
00141      IF NAME-TSK-NAME EQUAL TO SPACES                             RPTRT55 
00142          GO TO 25210-FMT-FLD10.                                   RPTRT55 
00143      MOVE FLD5520005-HCON TO FLD5520005-HDG.                      RPTRT55 
00144      MOVE NAME-TSK-NAME  TO FLD5520005-VAL.                       RPTRT55 
00145  25210-FMT-FLD10.                                                 RPTRT55 
00146      IF NAME-TSK-ID EQUAL TO SPACES                               RPTRT55 
00147          GO TO 25215-OUTPUT-LN1.                                  RPTRT55 
00148      MOVE FLD5520010-HCON  TO FLD5520010-HDG.                     RPTRT55 
00149      MOVE NAME-TSK-ID      TO FLD5520010-VAL.                     RPTRT55 
00150  25215-OUTPUT-LN1.                                                RPTRT55 
00151      IF CAT55200-LINE1 EQUAL TO SPACES                            RPTRT55 
00152          GO TO 25299-FMT-CAT200-XIT.                              RPTRT55 
00153      MOVE CAT55200-LINE1 TO STDRPT-70CHR.                         RPTRT55 
00154      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT55 
00155  25299-FMT-CAT200-XIT.                                            RPTRT55 
00156      EXIT.                                                        RPTRT55 
00157                                                                    RPTRT55
00158 ******************************************************************RPTRT55 
00159 *                                                                 RPTRT55 
00160 *        FORMAT CATEGORY 280 DETAIL LINE                          RPTRT55 
00161 *            CATEGORY 280 = SCHEDULING                            RPTRT55 
00162 *                                                                 RPTRT55 
00163 ******************************************************************RPTRT55 
00164  25600-FMT-CAT280.                                                RPTRT55 
00165      MOVE SPACES TO CAT55280-LINE1.                               RPTRT55 
00166 *                                                                 RPTRT55 
00167 *    FORMAT NORMAL START FIELD                                    RPTRT55 
00168 *                                                                 RPTRT55 
00169  25605-FMT-FLD05.                                                 RPTRT55 
00170      IF SCHLD-TSK-NORM-START EQUAL TO SPACES                      RPTRT55 
00171          GO TO 25610-FMT-FLD10.                                   RPTRT55 
00172      MOVE FLD5528005-HCON TO FLD5528005-HDG.                      RPTRT55 
00173      MOVE SCHLD-TSK-NORM-START TO FLD5528005-VAL.                    CL**2
00174  25610-FMT-FLD10.                                                 RPTRT55 
00175      IF SCHLD-TSK-NORM-STOP EQUAL TO SPACES                       RPTRT55 
00176          GO TO 25615-FMT-FLD15.                                   RPTRT55 
00177      MOVE FLD5528010-HCON TO FLD5528010-HDG.                         CL**2
00178      MOVE SCHLD-TSK-NORM-STOP TO FLD5528010-VAL.                  RPTRT55 
00179  25615-FMT-FLD15.                                                 RPTRT55 
00180      IF SCHLD-TSK-NORM-DAY EQUAL TO SPACES                        RPTRT55 
00181          GO TO 25620-OUTPUT-LN1.                                  RPTRT55 
00182      MOVE FLD5528015-HCON TO FLD5528015-HDG.                      RPTRT55 
00183      MOVE SCHLD-TSK-NORM-DAY TO FLD5528015-VAL.                   RPTRT55 
00184  25620-OUTPUT-LN1.                                                RPTRT55 
00185      IF CAT55280-LINE1 EQUAL TO SPACES                            RPTRT55 
00186          GO TO 25625-FMT-FLD20.                                   RPTRT55 
00187      MOVE CAT55280-LINE1 TO STDRPT-70CHR.                         RPTRT55 
00188      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT55 
00189 *                                                                 RPTRT55 
00190 *    FORMAT 2ND DISPLAY LINE.                                     RPTRT55 
00191 *                                                                 RPTRT55 
00192  25625-FMT-FLD20.                                                 RPTRT55 
00193      MOVE SPACES TO CAT55280-LINE2.                               RPTRT55 
00194 *    FORMAT DEADLINE START FIELD                                  RPTRT55 
00195      IF SCHLD-TSK-DEAD-START EQUAL TO SPACES                      RPTRT55 
00196          GO TO 25630-FMT-FLD25.                                   RPTRT55 
00197      MOVE FLD5528020-HCON  TO  FLD5528020-HDG.                    RPTRT55 
00198      MOVE SCHLD-TSK-DEAD-START TO FLD5528020-VAL.                 RPTRT55 
00199 *    FORMAT DEADLINE STOP FIELD                                   RPTRT55 
00200  25630-FMT-FLD25.                                                 RPTRT55 
00201      IF SCHLD-TSK-DEAD-STOP EQUAL TO SPACES                       RPTRT55 
00202          GO TO 25635-FMT-FLD30.                                   RPTRT55 
00203      MOVE FLD5528025-HCON TO FLD5528025-HDG.                      RPTRT55:  
00204      MOVE SCHLD-TSK-DEAD-STOP  TO FLD5528025-VAL.                 RPTRT55 
00205 *    FORMAT DEADLINE DAY FIELD                                    RPTRT55 
00206  25635-FMT-FLD30.                                                 RPTRT55 
00207      IF SCHLD-TSK-DEAD-DAY EQUAL TO SPACES                        RPTRT55 
00208          GO TO 25640-OUTPUT-LN2.                                  RPTRT55 
00209      MOVE FLD5528030-HCON  TO FLD5528030-HDG.                     RPTRT55 
00210      MOVE SCHLD-TSK-DEAD-DAY TO FLD5528030-VAL.                   RPTRT55 
00211  25640-OUTPUT-LN2.                                                RPTRT55 
00212      IF CAT55280-LINE2 EQUAL TO SPACES                            RPTRT55 
00213          GO TO 25645-FMT-FLD35.                                   RPTRT55 
00214      MOVE CAT55280-LINE2 TO STDRPT-70CHR.                         RPTRT55 
00215      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT55 
00216 *                                                                 RPTRT55 
00217 *    FORMAT 3RD DETAIL LINE                                       RPTRT55 
00218 *                                                                 RPTRT55 
00219  25645-FMT-FLD35.                                                    CL**2
00220      MOVE SPACES TO CAT55280-LINE3.                               RPTRT55 
00221 *    FORMAT CYCLE FIELD                                           RPTRT55 
00222      IF SCHLD-TSK-CYCLE EQUAL TO SPACES                           RPTRT55 
00223          GO TO 25660-FMT-FLD40.                                      CL**2
00224      MOVE FLD5528035-HCON  TO FLD5528035-HDG.                     RPTRT55 
00225          GO TO 25645-INTERPRET-CODE.                              RPTRT55 
00226  25640-JUST-CODE.                                                 RPTRT55 
00227      MOVE SCHLD-TSK-CYCLE  TO FLD5528035-POS1.                    RPTRT55 
00228          GO TO 25660-FMT-FLD40.                                      CL**2
00229  25645-INTERPRET-CODE.                                            RPTRT55 
00230      MOVE 01 TO SUB3.                                                CL**2
00231  25650-NEXT-CODE-CK.                                              RPTRT55 
00232      IF FLD5528035-CODES (SUB3) EQUAL TO "9"                      RPTRT55 
00233          GO TO 25640-JUST-CODE.                                   RPTRT55 
00234      IF FLD5528035-CODES (SUB3) EQUAL TO SCHLD-TSK-CYCLE          RPTRT55 
00235          GO TO 25655-EXTRACT-MNG.                                 RPTRT55 
00236      ADD 1 TO SUB3.                                                  CL**2
00237      GO TO 25650-NEXT-CODE-CK.                                       CL**2
00238  25655-EXTRACT-MNG.                                               RPTRT55 
00239      MOVE FLD5528035-MNG (SUB3) TO FLD5528035-VAL.                RPTRT55 
00240 *    FORMAT PRECEDING STEP  FIELD                                 RPTRT55 
00241  25660-FMT-FLD40.                                                 RPTRT55 
00242      IF SCHLD-TSK-PROCED-PROG EQUAL TO SPACES                     RPTRT55 
00243          GO TO 25665-OUTPUT-LN3.                                  RPTRT55 
00244      MOVE FLD5528040-HCON  TO  FLD5528040-HDG.                    RPTRT55 
00245      MOVE SCHLD-TSK-PROCED-PROG TO FLD5528040-VAL.                RPTRT55 
00246  25665-OUTPUT-LN3.                                                RPTRT55 
00247      IF CAT55280-LINE3 EQUAL TO SPACES                            RPTRT55 
00248          GO TO 25699-FMT-CAT280-XIT.                              RPTRT55 
00249      MOVE CAT55280-LINE3 TO STDRPT-70CHR.                            CL**2
00250      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT55 
00251  25699-FMT-CAT280-XIT.                                            RPTRT55 
00252      EXIT.                                                        RPTRT55 
00253                                                                    RPTRT55
00254 ******************************************************************RPTRT55 
00255 *                                                                 RPTRT55 
00256 *        FORMAT CATEGORY 800 DETAIL LINE                          RPTRT55 
00257 *            CATEGORY 800 = RELATIONAL                            RPTRT55 
00258 *                                                                 RPTRT55 
00259 ******************************************************************RPTRT55 
00260  25800-FMT-CAT800.                                                RPTRT55 
00261      MOVE SPACES TO CAT55800-LINE1.                               RPTRT55 
00262 *                                                                 RPTRT55 
00263 *    FORMAT 1ST DETAIL LINE                                       RPTRT55 
00264 *                                                                 RPTRT55 
00265      IF FIRST-REC-SW EQUAL TO "N"                                    CL**2
00266          GO TO 25804-CHECK-COMMENT.                                  CL**2
00267      MOVE "N" TO FIRST-REC-SW.                                       CL**2
00268      MOVE FLD5580005-HCON TO FLD5580005-HDG.                      RPTRT55 
00269      MOVE FLD5580010-HCON TO FLD5580010-HDG.                      RPTRT55 
00270      MOVE FLD5580015-HCON TO FLD5580015-HDG.                      RPTRT55 
00271      MOVE FLD5580020-HCON TO FLD5580020-HDG.                      RPTRT55 
00272 *    OUTPUT-1ST DETAIL LINE.                                      RPTRT55 
00273      MOVE CAT55800-LINE1 TO STDRPT-70CHR.                         RPTRT55 
00274      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT55 
00275  25804-CHECK-COMMENT.                                                CL**2
00276      IF CAT-COMMENT NOT EQUAL TO "*"                                 CL**2
00277          GO TO 25805-FMT-FLD05.                                      CL**2
00278      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.               CL**2
00279      GO TO 25899-FMT-CAT800-XIT.                                     CL**2
00280  25805-FMT-FLD05.                                                 RPTRT55 
00281      MOVE SPACES TO CAT55800-LINE2.                                  CL**2
00282      IF REL-TSK-CNAME EQUAL TO SPACES                             RPTRT55 
00283          GO TO 25810-FMT-FLD10.                                      CL**2
00284      MOVE REL-TSK-CNAME TO FLD5580005-VAL.                        RPTRT55 
00285  25810-FMT-FLD10.                                                 RPTRT55 
00286      IF REL-TSK-PUSE  EQUAL TO SPACES                             RPTRT55 
00287          GO TO 25835-FMT-FLD15.                                   RPTRT55 
00288      GO TO 25820-INTERPRET-CODE.                                     CL**2
00289  25815-JUST-CODE.                                                 RPTRT55 
00290      MOVE REL-TSK-PUSE TO FLD5580010-POS1.                        RPTRT55 
00291          GO TO 25835-FMT-FLD15.                                   RPTRT55 
00292  25820-INTERPRET-CODE.                                            RPTRT55 
00293      MOVE 01 TO SUB3.                                             RPTRT55 
00294  25825-NEXT-CODE-CK.                                              RPTRT55 
00295      IF FLD5580010-CODES (SUB3) EQUAL TO "9"                      RPTRT55 
00296          GO TO 25815-JUST-CODE.                                   RPTRT55 
00297      IF FLD5580010-CODES (SUB3) EQUAL TO REL-TSK-PUSE             RPTRT55 
00298          GO TO 25830-EXTRACT-MNG.                                 RPTRT55 
00299      ADD 1 TO SUB3.                                               RPTRT55 
00300      GO TO 25825-NEXT-CODE-CK.                                    RPTRT55 
00301  25830-EXTRACT-MNG.                                               RPTRT55 
00302      MOVE FLD5580010-MNG  (SUB3) TO FLD5580010-VAL.               RPTRT55 
00303  25835-FMT-FLD15.                                                 RPTRT55 
00304      MOVE "N" TO FIRST-REC-SW.                                       CL**2
00305      IF REL-TSK-IO EQUAL TO SPACES                                RPTRT55 
00306          GO TO 25860-FMT-FLD20.                                   RPTRT55 
00307      GO TO 25845-INTERPRET-CODE.                                  RPTRT55 
00308  25840-JUST-CODE.                                                 RPTRT55 
00309      MOVE REL-TSK-IO TO FLD5580015-POS1.                          RPTRT55 
00310          GO TO 25860-FMT-FLD20.                                   RPTRT55 
00311  25845-INTERPRET-CODE.                                            RPTRT55 
00312      MOVE 01 TO SUB3.                                             RPTRT55 
00313  25850-NEXT-CODE-CK.                                              RPTRT55 
00314      IF FLD5580015-CODES (SUB3) EQUAL TO "9"                      RPTRT55 
00315          GO TO 25840-JUST-CODE.                                   RPTRT55 
00316      IF FLD5580015-CODES (SUB3) EQUAL TO REL-TSK-IO               RPTRT55 
00317          GO TO 25855-EXTRACT-MNG.                                 RPTRT55 
00318      ADD 1 TO SUB3.                                                  CL**2
00319      GO TO 25850-NEXT-CODE-CK.                                    RPTRT55 
00320  25855-EXTRACT-MNG.                                               RPTRT55 
00321      MOVE FLD5580015-MNG (SUB3) TO FLD5580015-VAL.                   CL**2
00322  25860-FMT-FLD20.                                                 RPTRT55 
00323      IF REL-TSK-CYCLE EQUAL TO SPACES                             RPTRT55 
00324          GO TO 25890-OUTPUT-LN2.                                  RPTRT55 
00325      GO TO 25870-INTERPRET-CODE.                                  RPTRT55 
00326  25865-JUST-CODE.                                                 RPTRT55 
00327      MOVE REL-TSK-CYCLE TO FLD5580020-POS1.                       RPTRT55 
00328          GO TO 25890-OUTPUT-LN2.                                  RPTRT55 
00329  25870-INTERPRET-CODE.                                            RPTRT55 
00330      MOVE 01 TO SUB3.                                             RPTRT55 
00331  25875-NEXT-CODE-CK.                                              RPTRT55 
00332      IF FLD5580020-CODES (SUB3) EQUAL TO "9"                      RPTRT55 
00333          GO TO 25865-JUST-CODE.                                   RPTRT55 
00334      IF FLD5580020-CODES (SUB3) EQUAL TO REL-TSK-CYCLE            RPTRT55 
00335          GO TO 25880-EXTRACT-MNG.                                 RPTRT55 
00336      ADD 1 TO SUB3.                                               RPTRT55 
00337      GO TO 25875-NEXT-CODE-CK.                                    RPTRT55 
00338  25880-EXTRACT-MNG.                                               RPTRT55 
00339      MOVE FLD5580020-MNG (SUB3) TO FLD5580020-VAL.                   CL**2
00340 *                                                                 RPTRT55 
00341 *   FORMAT OUTPUT LINE2                                           RPTRT55 
00342  25890-OUTPUT-LN2.                                                RPTRT55 
00343      IF CAT55800-LINE2 EQUAL TO SPACES                               CL**2
00344          GO TO 25899-FMT-CAT800-XIT.                              RPTRT55 
00345      MOVE CAT55800-LINE2 TO STDRPT-70CHR.                         RPTRT55 
00346      MOVE CAT-REV TO STDRPT-REVNO.                                   CL**2
00347      MOVE CAT-LINE TO STDRPT-LINE.                                   CL**2
00348      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT55 
00349  25899-FMT-CAT800-XIT.                                            RPTRT55 
00350      EXIT.                                                        RPTRT55 
00351                                                                    RPTRT55
