*COMDECK  RPTRT60 
00001 ******************************************************************01/24/78
00002 *                                                                 RPTRT60 
00003 *        FORMAT CATEGORY 140 DETAIL LINE                             LV001
00004 *            CATEGORY 140 = RESPONSIBILITY                        RPTRT60 
00005 *                                                                 RPTRT60 
00006 ******************************************************************RPTRT60 
00007  26000-FMT-CAT-140.                                               RPTRT60 
00008      MOVE SPACES TO CAT60140-LINE1.                               RPTRT60 
00009 *                                                                 RPTRT60 
00010 *    FORMAT STATUS FIELD                                          RPTRT60 
00011 *                                                                 RPTRT60 
00012  26005-FMT-FLD05.                                                    CL**2
00013      IF RESP-SYS-STATUS EQUAL TO SPACES                           RPTRT60 
00014          GO TO 26030-FMT-FLD10.                                   RPTRT60 
00015      MOVE FLD6014005-HCON TO FLD6014005-HDG.                         CL**2
00016          GO TO 26015-INTERPRET-CODE.                              RPTRT60 
00017  26010-JUST-CODE.                                                 RPTRT60 
00018      MOVE RESP-SYS-STATUS    TO FLD6014005-POS1.                  RPTRT60 
00019          GO TO 26030-FMT-FLD10.                                   RPTRT60 
00020  26015-INTERPRET-CODE.                                            RPTRT60 
00021      MOVE 01 TO SUB3.                                             RPTRT60 
00022  26020-NEXT-CODE-CK.                                              RPTRT60 
00023      IF FLD6014005-CODES (SUB3) EQUAL TO "9"                      RPTRT60 
00024          GO TO 26010-JUST-CODE.                                   RPTRT60 
00025      IF FLD6014005-CODES (SUB3) EQUAL TO RESP-SYS-STATUS          RPTRT60 
00026          GO TO 26025-EXTRACT-MNG.                                 RPTRT60 
00027      ADD 1 TO SUB3.                                               RPTRT60 
00028      GO TO 26020-NEXT-CODE-CK.                                    RPTRT60 
00029  26025-EXTRACT-MNG.                                               RPTRT60 
00030      MOVE FLD6014005-MNG (SUB3) TO FLD6014005-VAL.                   CL**2
00031 *                                                                 RPTRT60 
00032 *    FORMAT FUNCTION FIELD                                        RPTRT60 
00033 *                                                                 RPTRT60 
00034  26030-FMT-FLD10.                                                 RPTRT60 
00035      IF RESP-SYS-FUNC EQUAL TO SPACES                                CL**2
00036          GO TO 26055-FMT-FLD25.                                   RPTRT60 
00037      MOVE FLD6014010-HCON TO FLD6014010-HDG.                      RPTRT60 
00038          GO TO 26040-INTERPRET-CODE.                              RPTRT60 
00039  26035-JUST-CODE.                                                 RPTRT60 
00040      MOVE RESP-SYS-FUNC   TO FLD6014010-POS1.                     RPTRT60 
00041          GO TO 26055-FMT-FLD25.                                   RPTRT60 
00042  26040-INTERPRET-CODE.                                            RPTRT60 
00043      MOVE 01 TO SUB3.                                             RPTRT60 
00044  26045-NEXT-CODE-CK.                                              RPTRT60 
00045      IF FLD6014010-CODES (SUB3) EQUAL TO "9"                      RPTRT60 
00046          GO TO 26035-JUST-CODE.                                   RPTRT60 
00047      IF FLD6014010-CODES (SUB3) EQUAL TO RESP-SYS-FUNC            RPTRT60 
00048          GO TO 26050-EXTRACT-MNG.                                    CL**2
00049      ADD 1 TO SUB3.                                               RPTRT60 
00050      GO TO 26045-NEXT-CODE-CK.                                    RPTRT60 
00051  26050-EXTRACT-MNG.                                               RPTRT60 
00052      MOVE FLD6014010-MNG  (SUB3) TO FLD6014010-VAL.                  CL**2
00053 *                                                                 RPTRT60 
00054 *    FORMAT PHONE FIELD.                                          RPTRT60 
00055 *                                                                 RPTRT60 
00056  26055-FMT-FLD25.                                                 RPTRT60 
00057      IF RESP-SYS-PHONE EQUAL TO SPACES                               CL**2
00058          GO TO 26060-FMT-FLD35.                                   RPTRT60 
00059      MOVE FLD6014025-HCON TO FLD6014025-HDG.                         CL**2
00060      MOVE RESP-SYS-PHONE  TO FLD6014025-VAL.                      RPTRT60 
00061 *                                                                 RPTRT60 
00062 *    FORMAT MAIL FIELD                                            RPTRT60 
00063 *                                                                 RPTRT60 
00064  26060-FMT-FLD35.                                                    CL**2
00065      IF RESP-SYS-MAIL  EQUAL TO SPACES                            RPTRT60 
00066          GO TO 26065-OUTPUT-LN1.                                  RPTRT60 
00067      MOVE FLD6014035-HCON TO FLD6014035-HDG.                      RPTRT60 
00068      MOVE RESP-SYS-MAIL   TO FLD6014035-VAL.                      RPTRT60 
00069 *                                                                 RPTRT60 
00070 *    OUTPUT DISPLAY LINE                                          RPTRT60 
00071 *                                                                 RPTRT60 
00072  26065-OUTPUT-LN1.                                                RPTRT60 
00073      IF CAT60140-LINE1 EQUAL TO SPACES                               CL**2
00074          GO TO 26070-FMT-FLD15.                                   RPTRT60 
00075      MOVE CAT60140-LINE1 TO STDRPT-70CHR.                         RPTRT60:  
00076      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT60 
00077 *                                                                 RPTRT60 
00078 *    FORMAT 2ND DISPLAY LINE                                      RPTRT60 
00079 *                                                                 RPTRT60 
00080  26070-FMT-FLD15.                                                 RPTRT60 
00081      MOVE SPACES TO CAT60140-LINE2.                               RPTRT60 
00082 *    FORMAT DEPARTMENT FIELD                                      RPTRT60 
00083 *                                                                 RPTRT60 
00084      IF RESP-SYS-DEPT  EQUAL TO SPACES                            RPTRT60 
00085          GO TO 26075-FMT-FLD40.                                   RPTRT60 
00086      MOVE FLD6014015-HCON TO FLD6014015-HDG.                      RPTRT60 
00087      MOVE RESP-SYS-DEPT   TO FLD6014015-VAL.                      RPTRT60 
00088 *                                                                 RPTRT60 
00089 *    FORMAT DATE FIELD                                            RPTRT60 
00090 *                                                                 RPTRT60 
00091  26075-FMT-FLD40.                                                 RPTRT60 
00092      IF RESP-SYS-DATE  EQUAL TO SPACES                            RPTRT60 
00093          GO TO 26080-OUTPUT-LN2.                                  RPTRT60 
00094      MOVE FLD6014040-HCON TO FLD6014040-HDG.                      RPTRT60 
00095      MOVE RESP-SYS-DATE   TO FLD6014040-VAL.                      RPTRT60 
00096  26080-OUTPUT-LN2.                                                RPTRT60 
00097      IF CAT60140-LINE2 EQUAL TO SPACES                            RPTRT60 
00098          GO TO 26085-FMT-FLD20.                                   RPTRT60 
00099      MOVE CAT60140-LINE2 TO STDRPT-70CHR.                         RPTRT60 
00100      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT60 
00101 *                                                                 RPTRT60 
00102 *    FORMAT 3RD DISPLAY LINE                                      RPTRT60 
00103 *                                                                 RPTRT60 
00104  26085-FMT-FLD20.                                                 RPTRT60 
00105      MOVE SPACES TO CAT60140-LINE3.                               RPTRT60 
00106 *                                                                 RPTRT60 
00107 *    FORMAT PERSON FIELD                                          RPTRT60 
00108 *                                                                 RPTRT60 
00109      IF RESP-SYS-PERSON  EQUAL TO SPACES                          RPTRT60 
00110          GO TO 26090-FMT-FLD30.                                   RPTRT60 
00111      MOVE FLD6014020-HCON TO FLD6014020-HDG.                      RPTRT60 
00112      MOVE RESP-SYS-PERSON TO FLD6014020-VAL.                      RPTRT60 
00113 *                                                                 RPTRT60 
00114 *    FORMAT TITLE FIELD                                           RPTRT60 
00115 *                                                                 RPTRT60 
00116  26090-FMT-FLD30.                                                 RPTRT60 
00117      IF RESP-SYS-TITLE EQUAL TO SPACES                            RPTRT60 
00118          GO TO 26095-OUTPUT-LN3.                                  RPTRT60 
00119      MOVE FLD6014030-HCON TO FLD6014030-HDG.                      RPTRT60 
00120      MOVE RESP-SYS-TITLE   TO FLD6014030-VAL.                     RPTRT60 
00121  26095-OUTPUT-LN3.                                                RPTRT60 
00122      IF CAT60140-LINE3 EQUAL TO SPACES                            RPTRT60 
00123          GO TO 26099-FMT-CAT140-XIT.                              RPTRT60 
00124      MOVE CAT60140-LINE3 TO STDRPT-70CHR.                         RPTRT60 
00125      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT60 
00126  26099-FMT-CAT140-XIT.                                            RPTRT60 
00127      EXIT.                                                        RPTRT60 
00128                                                                    RPTRT60
00129 ******************************************************************RPTRT60 
00130 *                                                                 RPTRT60 
00131 *        FORMAT CATEGORY 200 DETAIL LINE                          RPTRT60 
00132 *            CATEGORY 200 = NAMES                                 RPTRT60 
00133 *                                                                 RPTRT60 
00134 ******************************************************************RPTRT60 
00135  26200-FMT-CAT-200.                                               RPTRT60 
00136      MOVE SPACES TO CAT60200-LINE1.                               RPTRT60 
00137 *                                                                 RPTRT60 
00138 *    FORMAT SYSTEM NAME FIELD                                     RPTRT60 
00139 *                                                                 RPTRT60 
00140  26205-FMT-FLD05.                                                 RPTRT60 
00141      IF NAME-SYS-NAME EQUAL TO SPACES                             RPTRT60 
00142          GO TO 26210-FMT-FLD10.                                   RPTRT60 
00143      MOVE FLD6020005-HCON TO FLD6020005-HDG.                      RPTRT60 
00144      MOVE NAME-SYS-NAME   TO FLD6020005-VAL.                      RPTRT60 
00145 *    FORMAT SYSTEM ID FIELD                                       RPTRT60 
00146  26210-FMT-FLD10.                                                 RPTRT60 
00147      IF NAME-SYS-ID  EQUAL TO SPACES                              RPTRT60 
00148          GO TO 26215-OUTPUT-LN1.                                  RPTRT60 
00149      MOVE FLD6020010-HCON  TO  FLD6020010-HDG.                    RPTRT60 
00150      MOVE NAME-SYS-ID  TO FLD6020010-VAL.                            CL**2
00151  26215-OUTPUT-LN1.                                                RPTRT60 
00152      IF CAT60200-LINE1 EQUAL TO SPACES                            RPTRT60 
00153          GO TO 26299-FMT-CAT200-XIT.                              RPTRT60 
00154      MOVE CAT60200-LINE1 TO STDRPT-70CHR.                         RPTRT60 
00155      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT60 
00156  26299-FMT-CAT200-XIT.                                            RPTRT60 
00157      EXIT.                                                        RPTRT60 
00158                                                                    RPTRT60
00159 ******************************************************************RPTRT60 
00160 *                                                                 RPTRT60 
00161 *        FORMAT CATEGORY 800 DETAIL LINE                          RPTRT60 
00162 *            CATEGORY  800 = RELATIONAL                           RPTRT60 
00163 *                                                                 RPTRT60 
00164 ******************************************************************RPTRT60 
00165  26800-FMT-CAT-800.                                               RPTRT60 
00166      MOVE SPACES TO CAT60800-LINE1.                               RPTRT60 
00167 *                                                                 RPTRT60 
00168 *    FORMAT 1ST DETAIL LINE                                       RPTRT60 
00169 *                                                                 RPTRT60 
00170      IF FIRST-REC-SW EQUAL TO "N"                                    CL**2
00171          GO TO 26804-CHECK-COMMENT.                                  CL**2
00172      MOVE FLD6080005-HCON TO  FLD6080005-HDG.                     RPTRT60 
00173      MOVE FLD6080010-HCON TO  FLD6080010-HDG.                     RPTRT60 
00174 *    OUTPUT 1ST DETAIL LINE.                                      RPTRT60 
00175      MOVE CAT60800-LINE1 TO STDRPT-70CHR.                         RPTRT60 
00176      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00177      MOVE 1 TO PRT-CTL.                                              CL**2
00178      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00179      MOVE CAT-REV TO STDRPT-REVNO.                                   CL**2
00180      MOVE CAT-LINE TO STDRPT-LINE.                                   CL**2
00181      MOVE "N" TO FIRST-REC-SW.                                       CL**2
00182  26804-CHECK-COMMENT.                                                CL**2
00183      IF CAT-COMMENT NOT EQUAL TO "*"                                 CL**2
00184          GO TO 26805-FMT-FLD05.                                      CL**2
00185      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.               CL**2
00186      GO TO 26899-FMT-CAT60800-XIT.                                   CL**2
00187  26805-FMT-FLD05.                                                 RPTRT60 
00188      MOVE SPACES TO CAT60800-LINE2.                                  CL**2
00189      IF REL-SYS-CNAME EQUAL TO SPACES                             RPTRT60 
00190          GO TO 26810-FMT-FLD10.                                      CL**2
00191      MOVE REL-SYS-CNAME TO FLD6080005-VAL.                        RPTRT60 
00192  26810-FMT-FLD10.                                                 RPTRT60 
00193      MOVE "N" TO FIRST-REC-SW.                                       CL**2
00194      IF REL-SYS-PUSE EQUAL TO SPACES                              RPTRT60:  
00195          GO TO 26835-OUTPUT-LN2.                                  RPTRT60 
00196      GO TO 26820-INTERPRET-CODE.                                  RPTRT60 
00197  26815-JUST-CODE.                                                 RPTRT60 
00198      MOVE REL-SYS-PUSE TO FLD6080010-POS1.                        RPTRT60 
00199          GO TO 26835-OUTPUT-LN2.                                  RPTRT60 
00200  26820-INTERPRET-CODE.                                            RPTRT60 
00201      MOVE 01 TO SUB3.                                             RPTRT60 
00202  26825-NEXT-CODE-CK.                                              RPTRT60 
00203      IF FLD6080010-CODES (SUB3) EQUAL TO "9"                      RPTRT60 
00204          GO TO 26815-JUST-CODE.                                   RPTRT60 
00205      IF FLD6080010-CODES (SUB3) EQUAL TO REL-SYS-PUSE             RPTRT60 
00206          GO TO 26830-EXTRACT-MNG.                                 RPTRT60 
00207      ADD 1 TO SUB3.                                               RPTRT60 
00208      GO TO 26825-NEXT-CODE-CK.                                    RPTRT60 
00209  26830-EXTRACT-MNG.                                               RPTRT60 
00210      MOVE FLD6080010-MNG (SUB3) TO FLD6080010-VAL.                RPTRT60 
00211  26835-OUTPUT-LN2.                                                RPTRT60 
00212      IF CAT60800-LINE2 EQUAL TO SPACES                               CL**2
00213          GO TO 26840-FMT-FLDJOB.                                  RPTRT60 
00214      MOVE CAT60800-LINE2 TO STDRPT-70CHR.                         RPTRT60 
00215      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT60 
00216 *                                                                 RPTRT60 
00217 *    FORMAT 3RD DETAIL LINE                                       RPTRT60 
00218 *                                                                 RPTRT60 
00219  26840-FMT-FLDJOB.                                                RPTRT60 
00220      MOVE SPACES TO CAT60800-LINE3.                                  CL**2
00221      IF CAT60800-LINE3 EQUAL TO SPACES                            RPTRT60 
00222          GO TO 26845-FMT-FLD15.                                      CL**2
00223      MOVE FLD60800JOB-HCON TO FLD60800JOB-HDG.                    RPTRT60 
00224  26845-FMT-FLD15.                                                 RPTRT60 
00225      IF REL-SYS-JOB EQUAL TO SPACES                               RPTRT60 
00226          GO TO 26850-FMT-FLD20.                                   RPTRT60 
00227      MOVE FLD6080015-HCON  TO FLD6080015-HDG.                     RPTRT60 
00228      MOVE REL-SYS-JOB      TO FLD6080015-VAL.                     RPTRT60 
00229  26850-FMT-FLD20.                                                 RPTRT60 
00230      IF REL-SYS-NAMEJOB EQUAL TO SPACES                           RPTRT60 
00231          GO TO 26870-OUTPUT-LN3.                                  RPTRT60 
00232      MOVE FLD6080020-HCON  TO FLD6080020-HDG.                     RPTRT60 
00233      MOVE REL-SYS-NAMEJOB  TO FLD6080020-VAL.                     RPTRT60 
00234  26870-OUTPUT-LN3.                                                RPTRT60 
00235      IF CAT60800-LINE3 EQUAL TO SPACES                            RPTRT60 
00236          GO TO 26899-FMT-CAT60800-XIT.                            RPTRT60 
00237      MOVE CAT60800-LINE3 TO STDRPT-70CHR.                            CL**2
00238      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT60 
00239  26899-FMT-CAT60800-XIT.                                          RPTRT60 
00240      EXIT.                                                        RPTRT60 
00241                                                                    RPTRT60
