*COMDECK  RPTRT45 
00001 ******************************************************************09/21/77
00002 *                                                                 RPTRT45 
00003 *        FORMAT CATEGORY 140 DETAIL LINE                             LV001
00004 *            CATEGORY 140 = RESPONSIBILITY                           CL**2
00005 *                                                                    CL**2
00006 ******************************************************************   CL**2
00007  22000-FMT-CAT-140.                                                  CL**2
00008      MOVE SPACES TO CAT45140-LINE1.                                  CL**2
00009 *                                                                    CL**2
00010 *    FORMAT STATUS FIELD                                             CL**2
00011 *                                                                    CL**2
00012  22005-FMT-FLD05.                                                    CL**2
00013      IF RESP-XRES-STATUS EQUAL TO SPACES                             CL**2
00014          GO TO 22030-FMT-FLD10.                                      CL**2
00015      MOVE FLD4514005-HCON TO FLD4514005-HDG.                         CL**2
00016          GO TO 22015-INTERPRET-CODE.                                 CL**2
00017  22010-JUST-CODE.                                                    CL**2
00018      MOVE RESP-XRES-STATUS   TO FLD4514005-POS1.                     CL**2
00019          GO TO 22030-FMT-FLD10.                                      CL**2
00020  22015-INTERPRET-CODE.                                               CL**2
00021      MOVE 01 TO SUB3.                                                CL**2
00022  22020-NEXT-CODE-CK.                                                 CL**2
00023      IF FLD4514005-CODES (SUB3) EQUAL TO "9"                         CL**2
00024          GO TO 22010-JUST-CODE.                                      CL**2
00025      IF FLD4514005-CODES (SUB3) EQUAL TO RESP-XRES-FUNC              CL**2
00026          GO TO 22025-EXTRACT-MNG.                                    CL**2
00027      ADD 1 TO SUB3.                                                  CL**2
00028      GO TO 22020-NEXT-CODE-CK.                                       CL**2
00029  22025-EXTRACT-MNG.                                                  CL**2
00030      MOVE FLD4514005-MNG (SUB3) TO FLD4514005-VAL.                   CL**2
00031 *                                                                    CL**2
00032 *    FORMAT FUNCTION FIELD                                           CL**2
00033 *                                                                    CL**2
00034  22030-FMT-FLD10.                                                    CL**2
00035      IF RESP-XRES-FUNC  EQUAL TO SPACES                              CL**2
00036          GO TO 22055-FMT-FLD25.                                      CL**2
00037      MOVE FLD4514010-HCON TO FLD4514010-HDG.                         CL**2
00038          GO TO 22040-INTERPRET-CODE.                                 CL**2
00039  22035-JUST-CODE.                                                    CL**2
00040      MOVE RESP-XRES-FUNC  TO FLD4514010-POS1.                        CL**2
00041          GO TO 22055-FMT-FLD25.                                      CL**2
00042  22040-INTERPRET-CODE.                                               CL**2
00043      MOVE 01 TO SUB3.                                                CL**2
00044  22045-NEXT-CODE-CK.                                                 CL**2
00045      IF FLD4514010-CODES (SUB3) EQUAL TO "9"                         CL**2
00046          GO TO 22035-JUST-CODE.                                      CL**2
00047      IF FLD4514010-CODES (SUB3) EQUAL TO RESP-XRES-FUNC              CL**2
00048          GO TO 22050-EXTRACT-MNG.                                    CL**2
00049      ADD 1 TO SUB3.                                                  CL**2
00050      GO TO 22045-NEXT-CODE-CK.                                       CL**2
00051  22050-EXTRACT-MNG.                                                  CL**2
00052      MOVE FLD4514010-MNG (SUB3) TO FLD4514010-VAL.                   CL**2
00053 *                                                                    CL**2
00054 *    FORMAT PHONE FIELD                                              CL**2
00055 *                                                                    CL**2
00056  22055-FMT-FLD25.                                                    CL**2
00057      IF RESP-XRES-PHONE  EQUAL TO SPACES                             CL**2
00058          GO TO 22060-FMT-FLD35.                                      CL**2
00059      MOVE FLD4514025-HCON TO FLD4514025-HDG.                         CL**2
00060      MOVE RESP-XRES-PHONE TO FLD4514025-VAL.                         CL**2
00061 *                                                                    CL**2
00062 *    FORMAT MAIL FIELD                                               CL**2
00063 *                                                                    CL**2
00064  22060-FMT-FLD35.                                                    CL**2
00065      IF RESP-XRES-MAIL EQUAL TO SPACES                               CL**2
00066          GO TO 22065-OUTPUT-LN1.                                     CL**2
00067      MOVE FLD4514035-HCON TO FLD4514035-HDG.                         CL**2
00068      MOVE RESP-XRES-MAIL  TO FLD4514035-VAL.                         CL**2
00069 *                                                                    CL**2
00070 *    OUTPUT DISPLAY LINE                                             CL**2
00071 *                                                                    CL**2
00072  22065-OUTPUT-LN1.                                                   CL**2
00073      IF CAT45140-LINE1 EQUAL TO SPACES                               CL**2
00074          GO TO 22070-FMT-FLD15.                                      CL**2
00075      MOVE CAT45140-LINE1 TO STDRPT-70CHR.                            CL**2
00076      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00077 *                                                                    CL**2
00078 *    FORMAT 2ND DISPLAY LINE                                         CL**2
00079 *                                                                    CL**2
00080  22070-FMT-FLD15.                                                    CL**2
00081      MOVE SPACES TO CAT45140-LINE2.                                  CL**2
00082 *    FORMAT DEPARTMENT FIELD                                         CL**2
00083 *                                                                    CL**2
00084      IF RESP-XRES-DEPT EQUAL TO SPACES                               CL**2
00085          GO TO 22075-FMT-FLD40.                                      CL**2
00086      MOVE FLD4514015-HCON TO FLD4514015-HDG.                         CL**2
00087      MOVE RESP-XRES-DEPT  TO FLD4514015-VAL.                         CL**2
00088 *                                                                    CL**2
00089 *    FORMAT DATE FIELD                                               CL**2
00090 *                                                                    CL**2
00091  22075-FMT-FLD40.                                                    CL**2
00092      IF RESP-XRES-DATE EQUAL TO SPACES                               CL**2
00093          GO TO 22080-OUTPUT-LN2.                                     CL**2
00094      MOVE FLD4514040-HCON TO FLD4514040-HDG.                         CL**2
00095      MOVE RESP-XRES-DATE  TO FLD4514040-VAL.                         CL**2
00096  22080-OUTPUT-LN2.                                                   CL**2
00097      IF CAT45140-LINE2 EQUAL TO SPACES                               CL**2
00098          GO TO 22085-FMT-FLD20.                                      CL**2
00099      MOVE CAT45140-LINE2 TO STDRPT-70CHR.                            CL**2
00100      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00101 *                                                                    CL**2
00102 *    FORMAT 3RD DISPLAY LINE                                         CL**2
00103 *                                                                    CL**2
00104  22085-FMT-FLD20.                                                    CL**2
00105      MOVE SPACES TO CAT45140-LINE3.                                  CL**2
00106 *                                                                    CL**2
00107 *    FORMAT PERSON FIELD                                             CL**2
00108 *                                                                    CL**2
00109      IF RESP-XRES-PERSON EQUAL TO SPACES                             CL**2
00110          GO TO 22090-FMT-FLD30.                                      CL**2
00111      MOVE FLD4514020-HCON TO FLD4514020-HDG.                         CL**2
00112      MOVE RESP-XRES-PERSON TO FLD4514020-VAL.                        CL**2
00113 *                                                                    CL**2
00114 *    FORMAT TITLE FIELD                                              CL**2
00115 *                                                                    CL**2
00116  22090-FMT-FLD30.                                                    CL**2
00117      IF RESP-XRES-TITLE EQUAL TO SPACES                              CL**2
00118          GO TO 22095-OUTPUT-LN3.                                     CL**2
00119      MOVE FLD4514030-HCON  TO FLD4514030-HDG.                        CL**2
00120      MOVE RESP-XRES-TITLE  TO FLD4514030-VAL.                        CL**2
00121  22095-OUTPUT-LN3.                                                   CL**2
00122      IF CAT45140-LINE3 EQUAL TO SPACES                               CL**2
00123          GO TO 22099-FMT-CAT140-XIT.                                 CL**2
00124      MOVE CAT45140-LINE3 TO STDRPT-70CHR.                            CL**2
00125      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00126  22099-FMT-CAT140-XIT.                                               CL**2
00127      EXIT.                                                           CL**2
00128                                                                    RPTRT45
00129                                                                    RPTRT45
00130 ******************************************************************   CL**2
00131 *                                                                    CL**2
00132 *        FORMAT CATEGORY 200 DETAIL LINE                             CL**2
00133 *            CATEGORY 200 = NAME                                     CL**2
00134 *                                                                    CL**2
00135 ******************************************************************   CL**2
00136  22200-FMT-CAT-200.                                                  CL**2
00137      MOVE SPACES TO CAT45200-LINE1.                                  CL**2
00138 *                                                                    CL**2
00139 *    FORMAT NAME FIELD                                               CL**2
00140 *                                                                    CL**2
00141  22205-FMT-FLD05.                                                    CL**2
00142      IF NAME-XRES-NAME EQUAL TO SPACES                               CL**2
00143          GO TO 22210-FMT-FLD10.                                      CL**2
00144      MOVE FLD4520005-HCON TO  FLD4520005-HDG.                        CL**2
00145      MOVE NAME-XRES-NAME  TO  FLD4520005-VAL.                        CL**2
00146  22210-FMT-FLD10.                                                    CL**2
00147      IF NAME-XRES-ID EQUAL SPACES                                    CL**2
00148          GO TO 22215-OUTPUT-LN1.                                     CL**2
00149      MOVE FLD4520010-HCON TO  FLD4520010-HDG.                        CL**2
00150      MOVE NAME-XRES-ID    TO  FLD4520010-VAL.                        CL**2
00151  22215-OUTPUT-LN1.                                                   CL**2
00152      IF CAT45200-LINE1 EQUAL TO SPACES                               CL**2
00153          GO TO 22299-FMT-CAT200-XIT.                                 CL**2
00154      MOVE CAT45200-LINE1 TO STDRPT-70CHR.                            CL**2
00155      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00156  22299-FMT-CAT200-XIT.                                               CL**2
00157      EXIT.                                                           CL**2
00158                                                                    RPTRT45
00159 ******************************************************************   CL**2
00160 *                                                                    CL**2
00161 *    FORMAT CATEGORY 250 DETAIL LINE                                 CL**2
00162 *        CATEGORY 250 = LOCATION                                     CL**2
00163 *                                                                    CL**2
00164 ******************************************************************   CL**2
00165  22600-FMT-CAT-250.                                                  CL**2
00166      MOVE SPACES TO CAT45250-LINE1.                                  CL**2
00167 *                                                                    CL**2
00168 *    FORMAT RESOURCE TYPE FIELD                                      CL**2
00169 *                                                                    CL**2
00170  22605-FMT-FLD05.                                                    CL**2
00171      IF LOC-TYPE IS EQUAL TO SPACES                                  CL**2
00172          GO TO 22635-FMT-FLD10.                                      CL**2
00173      MOVE FLD4525005-HCON TO FLD4525005-HDG.                         CL**2
00174          GO TO 22615-INTERPRET-CODE.                                 CL**2
00175  22610-JUST-CODE.                                                    CL**2
00176      MOVE LOC-TYPE TO FLD4525005-POS1                                CL**2
00177          GO TO 22635-FMT-FLD10.                                      CL**2
00178  22615-INTERPRET-CODE.                                               CL**2
00179      MOVE 01 TO SUB3.                                                CL**2
00180  22620-NEXT-CODE-CK.                                                 CL**2
00181      IF FLD4525005-CODES (SUB3) EQUAL TO "9"                         CL**2
00182          GO TO 22610-JUST-CODE.                                      CL**2
00183      IF FLD4525005-CODES (SUB3) EQUAL TO LOC-TYPE                    CL**2
00184          GO TO 22625-EXTRACT-MNG.                                    CL**2
00185      ADD 1 TO SUB3.                                                  CL**2
00186      GO TO 22620-NEXT-CODE-CK.                                       CL**2
00187  22625-EXTRACT-MNG.                                                  CL**2
00188      MOVE FLD4525005-MNG (SUB3) TO FLD4525005-VAL.                   CL**2
00189  22630-OUTPUT-LN1.                                                   CL**2
00190      IF CAT45250-LINE1 EQUAL TO SPACES                               CL**2
00191          GO TO 22635-FMT-FLD10.                                      CL**2
00192      MOVE CAT45250-LINE1 TO STDRPT-70CHR.                            CL**2
00193      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00194 *                                                                    CL**2
00195 *    FORMAT 2ND DISPLAY LINE                                         CL**2
00196 *                                                                    CL**2
00197  22635-FMT-FLD10.                                                    CL**2
00198      MOVE SPACES TO CAT45250-LINE2.                                  CL**2
00199 *                                                                    CL**2
00200 *    FORMAT LOCATION FIELD                                           CL**2
00201 *                                                                    CL**2
00202      IF LOC-NAME IS EQUAL TO SPACES                                  CL**2
00203          GO TO  22695-OUTPUT-LN2.                                    CL**2
00204       MOVE FLD4525010-HCON TO FLD4525010-HDG.                        CL**2
00205      MOVE LOC-NAME        TO FLD4525010-VAL.                         CL**2
00206  22695-OUTPUT-LN2.                                                   CL**2
00207      IF CAT45250-LINE2 EQUAL TO SPACES                               CL**2
00208          GO TO 22699-FMT-CAT250-XIT.                                 CL**2
00209      MOVE CAT45250-LINE2 TO STDRPT-70CHR.                            CL**2
00210      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00211  22699-FMT-CAT250-XIT.                                               CL**2
00212      EXIT.                                                           CL**2
00213                                                                    RPTRT45
00214 ******************************************************************   CL**2
00215 *                                                                    CL**2
00216 *    FORMAT CATEGORY 800 DETAIL LINE                                 CL**2
00217 *        CATEGORY 800 = RELATIONAL                                   CL**2
00218 *                                                                    CL**2
00219 ******************************************************************   CL**2
00220  22800-FMT-CAT800.                                                   CL**2
00221      MOVE SPACES TO CAT45800-LINE1.                                  CL**2
00222 *                                                                    CL**2
00223 *    FORMAT CATALOGUE NAME FIELD                                     CL**2
00224 *                                                                    CL**2
00225      IF FIRST-REC-SW EQUAL TO "N"                                    CL**2
00226          GO TO 22810-CHECK-COMMENT.                                  CL**2
00227      MOVE FLD4580005-HCON TO FLD4580005-HDG.                         CL**2
00228      MOVE FLD4580010-HCON TO FLD4580010-HDG.                         CL**2
00229 *    OUTPUT 1ST DETAIL LINE                                          CL**2
00230      MOVE CAT45800-LINE1 TO STDRPT-70CHR.                            CL**2
00231      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00232      MOVE 1 TO PRT-CTL.                                              CL**2
00233      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00234      MOVE CAT-REV TO STDRPT-REVNO.                                   CL**2
00235      MOVE CAT-LINE TO STDRPT-LINE.                                   CL**2
00236      MOVE "N" TO FIRST-REC-SW.                                       CL**2
00237  22810-CHECK-COMMENT.                                                CL**2
00238      IF CAT-COMMENT NOT EQUAL TO "*"                                 CL**2
00239          GO TO 22825-FMT-FLD05.                                      CL**2
00240      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.               CL**2
00241      GO TO 22899-FMT-CAT800-XIT.                                     CL**2
00242 *                                                                    CL**2
00243 *    FORMAT 2ND DISPLAY-LINE.                                        CL**2
00244 *                                                                    CL**2
00245  22825-FMT-FLD05.                                                    CL**2
00246      MOVE SPACES TO CAT45800-LINE2.                                  CL**2
00247      IF REL-XRES-CNAME EQUAL TO SPACES                               CL**2
00248          GO TO 22830-FMT-FLD10.                                      CL**2
00249      MOVE REL-XRES-CNAME  TO FLD4580005-VAL.                         CL**2
00250  22830-FMT-FLD10.                                                    CL**2
00251      IF REL-XRES-PUSE EQUAL TO SPACES                                CL**2
00252          GO TO 22855-OUTPUT-LN2.                                     CL**2
00253      GO TO 22840-INTERPRET-CODE.                                     CL**2
00254  22835-JUST-CODE.                                                    CL**2
00255      MOVE REL-XRES-PUSE TO FLD4580010-POS1.                          CL**2
00256          GO TO 22855-OUTPUT-LN2.                                     CL**2
00257  22840-INTERPRET-CODE.                                               CL**2
00258      MOVE 01 TO SUB3.                                                CL**2
00259  22845-NEXT-CODE-CK.                                                 CL**2
00260      IF FLD4580010-CODES (SUB3) EQUAL TO "9"                         CL**2
00261          GO TO 22835-JUST-CODE.                                      CL**2
00262      IF FLD4580010-CODES (SUB3) EQUAL TO REL-XRES-PUSE               CL**2
00263          GO TO 22850-EXTRACT-MNG.                                    CL**2
00264      ADD 1 TO SUB3.                                                  CL**2
00265      GO TO 22845-NEXT-CODE-CK.                                       CL**2
00266  22850-EXTRACT-MNG.                                                  CL**2
00267      MOVE FLD4580010-MNG (SUB3) TO FLD4580010-VAL.                   CL**2
00268  22855-OUTPUT-LN2.                                                   CL**2
00269      IF CAT45800-LINE2 EQUAL TO SPACES                               CL**2
00270          GO TO 22899-FMT-CAT800-XIT.                                 CL**2
00271      MOVE CAT45800-LINE2 TO STDRPT-70CHR.                            CL**2
00272      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00273  22899-FMT-CAT800-XIT.                                               CL**2
00274      EXIT.                                                           CL**2
00275                                                                    RPTRT45
