*COMDECK  RPTRT32 
00001 ******************************************************************08/09/78
00002 *                                                                 RPTRT32 
00003 *    FORMAT CATEGORY 140 DETAIL LINE                                 LV002
00004 *        CATEGORY 140 = RESPONSIBILITY                               CL**2
00005 *                                                                    CL**2
00006 ******************************************************************   CL**2
00007  1000-FMT-CAT32140.                                                  CL**2
00008      MOVE SPACES TO CAT32140-LINE1.                                  CL**2
00009  1005-FMT-FLD05.                                                     CL**2
00010      IF RESP-TOT-STATUS EQUAL TO SPACES                              CL**2
00011          GO TO 1030-FMT-FLD10.                                       CL**2
00012      MOVE FLD3214005-HCON TO FLD3214005-HDG.                         CL**2
00013          GO TO 1015-INTERPRET-CODE.                                  CL**2
00014  1010-JUST-CODE.                                                     CL**2
00015      MOVE RESP-TOT-STATUS TO FLD3214005-POS1.                        CL**2
00016          GO TO 1030-FMT-FLD10.                                       CL**2
00017  1015-INTERPRET-CODE.                                                CL**2
00018      MOVE 01 TO SUB3.                                                CL**2
00019  1020-NEXT-CODE-CK.                                                  CL**2
00020      IF FLD3214005-CODES (SUB3) EQUAL TO "9"                         CL**2
00021          GO TO 1010-JUST-CODE.                                       CL**2
00022      IF FLD3214005-CODES (SUB3) EQUAL TO RESP-TOT-STATUS             CL**2
00023          GO TO 1025-EXTRACT-MNG.                                     CL**2
00024      ADD 1 TO SUB3.                                                  CL**2
00025      GO TO 1020-NEXT-CODE-CK.                                        CL**2
00026  1025-EXTRACT-MNG.                                                   CL**2
00027      MOVE FLD3214005-MNG (SUB3) TO FLD3214005-VAL.                   CL**2
00028 *                                                                    CL**2
00029 *    FORMAT FUNCTION FIELD                                           CL**2
00030 *                                                                    CL**2
00031  1030-FMT-FLD10.                                                     CL**2
00032      IF RESP-TOT-FUNC EQUAL TO SPACES                                CL**2
00033          GO TO 1055-FMT-FLD25.                                       CL**2
00034      MOVE FLD3214010-HCON TO FLD3214010-HDG.                         CL**2
00035          GO TO 1040-INTERPRET-CODE.                                  CL**2
00036  1035-JUST-CODE.                                                     CL**2
00037      MOVE RESP-TOT-FUNC TO FLD3214010-POS1.                          CL**2
00038          GO TO 1055-FMT-FLD25.                                       CL**2
00039  1040-INTERPRET-CODE.                                                CL**2
00040      MOVE 01 TO SUB3.                                                CL**2
00041  1045-NEXT-CODE-CK.                                                  CL**2
00042      IF FLD3214010-CODES (SUB3) EQUAL TO "9"                         CL**2
00043          GO TO 1035-JUST-CODE.                                       CL**2
00044      IF FLD3214010-CODES (SUB3) EQUAL TO RESP-TOT-FUNC               CL**2
00045          GO TO 1050-EXTRACT-MNG.                                     CL**2
00046      ADD 1 TO SUB3.                                                  CL**2
00047      GO TO 1045-NEXT-CODE-CK.                                        CL**2
00048  1050-EXTRACT-MNG.                                                   CL**2
00049      MOVE FLD3214010-MNG (SUB3) TO FLD3214010-VAL.                   CL**2
00050 *                                                                    CL**2
00051 *    FORMAT PHONE FIELD                                              CL**2
00052 *                                                                    CL**2
00053  1055-FMT-FLD25.                                                     CL**2
00054      IF RESP-TOT-PHONE EQUAL TO SPACES                               CL**2
00055          GO TO 1060-FMT-FLD35.                                       CL**2
00056      MOVE FLD3214025-HCON TO FLD3214025-HDG.                         CL**2
00057      MOVE RESP-TOT-PHONE  TO FLD3214025-VAL.                         CL**2
00058 *                                                                    CL**2
00059 *    FORMAT MAIL FIELD                                               CL**2
00060 *                                                                    CL**2
00061  1060-FMT-FLD35.                                                     CL**2
00062      IF RESP-TOT-MAIL EQUAL TO SPACES                                CL**2
00063          GO TO 1065-OUTPUT-LINE1.                                    CL**2
00064      MOVE FLD3214035-HCON TO FLD3214035-HDG.                         CL**2
00065      MOVE RESP-TOT-MAIL TO   FLD3214035-VAL.                         CL**2
00066 *                                                                    CL**2
00067 *    OUTPUT LINE 1                                                   CL**2
00068 *                                                                    CL**2
00069  1065-OUTPUT-LINE1.                                                  CL**2
00070      IF CAT32140-LINE1 EQUAL TO SPACES                               CL**2
00071          GO TO 1070-FMT-FLD15.                                       CL**2
00072      MOVE CAT32140-LINE1 TO STDRPT-70CHR.                            CL**2
00073      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00074 *                                                                    CL**2
00075 *    FORMAT DEPTARTMENT FIELD                                        CL**2
00076 *                                                                    CL**2
00077  1070-FMT-FLD15.                                                     CL**2
00078      MOVE SPACES TO CAT32140-LINE2.                                  CL**2
00079      IF RESP-TOT-DEPT EQUAL TO SPACES                                CL**2
00080          GO TO 1075-FMT-FLD40.                                       CL**2
00081      MOVE FLD3214015-HCON TO FLD3214015-HDG.                         CL**2
00082      MOVE RESP-TOT-DEPT   TO FLD3214015-VAL.                         CL**2
00083 *                                                                    CL**2
00084 *    FORMAT DATE FIELD                                               CL**2
00085 *                                                                    CL**2
00086  1075-FMT-FLD40.                                                     CL**2
00087      IF RESP-TOT-DATE EQUAL TO SPACES                                CL**2
00088          GO TO 1080-OUTPUT-LINE2.                                    CL**2
00089      MOVE FLD3214040-HCON TO FLD3214040-HDG.                         CL**2
00090      MOVE RESP-TOT-DATE   TO FLD3214040-VAL.                         CL**2
00091 *                                                                    CL**2
00092 *    OUTPUT 2ND DISPLAY LINE                                         CL**2
00093 *                                                                    CL**2
00094  1080-OUTPUT-LINE2.                                                  CL**2
00095      IF CAT32140-LINE2 EQUAL TO SPACES                               CL**2
00096          GO TO 1090-FMT-FLD20.                                       CL**2
00097      MOVE CAT32140-LINE2 TO STDRPT-70CHR.                            CL**2
00098      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00099 *                                                                    CL**2
00100 *    FORMAT PERSON FIELD                                             CL**2
00101 *                                                                    CL**2
00102  1090-FMT-FLD20.                                                     CL**2
00103      MOVE SPACES TO CAT32140-LINE3.                                  CL**2
00104      IF RESP-TOT-PERSON EQUAL TO SPACES                              CL**2
00105          GO TO 1095-FMT-FLD30.                                       CL**2
00106      MOVE FLD3214020-HCON TO FLD3214020-HDG.                         CL**2
00107      MOVE RESP-TOT-PERSON TO FLD3214020-VAL.                         CL**2
00108 *                                                                    CL**2
00109 *    FORMAT TITLE FIELD                                              CL**2
00110 *                                                                    CL**2
00111  1095-FMT-FLD30.                                                     CL**2
00112      IF RESP-TOT-TITLE  EQUAL TO SPACES                              CL**2
00113          GO  TO 1097-OUTPUT-LINE3.                                   CL**2
00114      MOVE FLD3214030-HCON TO FLD3214030-HDG.                         CL**2
00115      MOVE RESP-TOT-TITLE  TO FLD3214030-VAL.                         CL**2
00116 *                                                                    CL**2
00117 *    OUTPUT 3RD LINE                                                 CL**2
00118 *                                                                    CL**2
00119  1097-OUTPUT-LINE3.                                                  CL**2
00120      IF CAT32140-LINE3  EQUAL TO SPACES                              CL**2
00121          GO TO 1099-FMT-CAT32140-XIT.                                CL**2
00122      MOVE CAT32140-LINE3 TO STDRPT-70CHR.                            CL**2
00123      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00124  1099-FMT-CAT32140-XIT.                                              CL**2
00125      EXIT.                                                           CL**2
00126                                                                    RPTRT32
00127 ******************************************************************   CL**2
00128 *                                                                    CL**2
00129 *    FORMAT CATEGORY 200 DETAIL LINE                                 CL**2
00130 *        CATEGORY 200 = NAMES                                        CL**2
00131 *                                                                    CL**2
00132 ******************************************************************   CL**2
00133  1500-FMT-CAT32200.                                                  CL**2
00134      MOVE SPACES TO CAT32200-LINE1.                                  CL**2
00135 *                                                                    CL**2
00136 *    FORMAT  DB NAME FIELD                                           CL**2
00137 *                                                                    CL**2
00138  1505-FMT-FLD05.                                                     CL**2
00139      IF NAME-TOT-DBNAME EQUAL TO SPACES                              CL**2
00140          GO TO 1510-FMT-FLD10.                                       CL**2
00141      MOVE FLD3220005-HCON TO FLD3220005-HDG.                         CL**2
00142      MOVE NAME-TOT-DBNAME TO FLD3220005-VAL.                         CL**2
00143 *                                                                    CL**2
00144 *    FORMAT  NAME FIELD                                              CL**2
00145 *                                                                    CL**2
00146  1510-FMT-FLD10.                                                     CL**2
00147      IF NAME-TOT-NAME EQUAL TO SPACES                                CL**2
00148          GO TO 1515-OUTPUT-LINE1.                                    CL**2
00149      MOVE FLD3220010-HCON TO FLD3220010-HDG.                         CL**2
00150      MOVE NAME-TOT-NAME     TO FLD3220010-VAL.                       CL**2
00151 *                                                                    CL**2
00152 *    OUTPUT 1ST LINE.                                                CL**2
00153 *                                                                    CL**2
00154  1515-OUTPUT-LINE1.                                                  CL**2
00155      IF CAT32200-LINE1 EQUAL TO SPACES                               CL**2
00156          GO TO 1599-FMT-CAT32200-XIT.                                CL**2
00157      MOVE CAT32200-LINE1 TO STDRPT-70CHR.                            CL**2
00158      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00159  1599-FMT-CAT32200-XIT.                                              CL**2
00160      EXIT.                                                           CL**2
00161                                                                    RPTRT32
00162 ******************************************************************   CL**2
00163 *                                                                    CL**2
00164 *    FORMAT CATEGORY 215 DETAIL LINE                                 CL**2
00165 *        CATEGORY 215 = IOAREA.                                      CL**2
00166 *                                                                    CL**2
00167 ******************************************************************   CL**2
00168  3200-FMT-CAT215.                                                    CL**2
00169      MOVE SPACES TO CAT215-LINE1.                                    CL**2
00170 *                                                                    CL**2
00171 *    FORMAT TRACK FIELD                                              CL**2
00172 *                                                                    CL**2
00173  3210-FMT-FLD05.                                                     CL**2
00174      IF IOA-TOT-TRACK EQUAL TO SPACES                                CL**2
00175          GO TO 3240-FMT-FLD15.                                       CL**2
00176      MOVE FLD3221505-HCON TO FLD3221505-HDG.                         CL**2
00177      GO TO 3220-INTERPRET-CODE.                                      CL**2
00178  3215-JUST-CODE.                                                     CL**2
00179      MOVE IOA-TOT-TRACK TO FLD3221505-POS1.                          CL**2
00180      GO TO 3240-FMT-FLD15.                                           CL**2
00181  3220-INTERPRET-CODE.                                                CL**2
00182      MOVE 01 TO SUB3.                                                CL**2
00183  3225-NEXT-CODE-CK.                                                  CL**2
00184      IF FLD3221505-CODES (SUB3) EQUAL TO "9"                         CL**2
00185          GO TO 3215-JUST-CODE.                                       CL**2
00186      IF FLD3221505-CODES (SUB3) EQUAL TO IOA-TOT-TRACK               CL**2
00187          GO TO 3230-EXTRACT-MNG.                                     CL**2
00188      ADD 1 TO SUB3.                                                  CL**2
00189      GO TO 3225-NEXT-CODE-CK.                                        CL**2
00190  3230-EXTRACT-MNG.                                                   CL**2
00191      MOVE FLD3221505-MNG (SUB3) TO FLD3221505-VAL.                   CL**2
00192 *                                                                    CL**2
00193 *    FORMAT IOAREA FIELD                                             CL**2
00194 *                                                                    CL**2
00195  3240-FMT-FLD15.                                                     CL**2
00196      IF IOA-TOT-IOAREA EQUAL TO SPACES                               CL**2
00197          GO TO 3245-FMT-FLD20.                                       CL**2
00198      MOVE FLD3221515-HCON TO FLD3221515-HDG.                         CL**2
00199      MOVE IOA-TOT-IOAREA TO FLD3221515-VAL.                          CL**2
00200 *                                                                    CL**2
00201 *    FORMAT OCCURS FIELD                                             CL**2
00202 *                                                                    CL**2
00203  3245-FMT-FLD20.                                                     CL**2
00204      IF IOA-TOT-OCCURS EQUAL TO SPACES                               CL**2
00205          GO TO 3250-OUTPUT-LINE1.                                    CL**2
00206      MOVE FLD3221520-HCON TO FLD3221520-HDG.                         CL**2
00207      MOVE IOA-TOT-OCCURS TO FLD3221520-VAL.                          CL**2
00208 *                                                                    CL**2
00209 *    FORMAT OUTPUT 1ST LINE                                          CL**2
00210 *                                                                    CL**2
00211  3250-OUTPUT-LINE1.                                                  CL**2
00212      IF CAT215-LINE1 EQUAL TO SPACES                                 CL**2
00213          GO TO 3299-FMT-CAT215-XIT.                                  CL**2
00214      MOVE CAT215-LINE1 TO STDRPT-70CHR.                              CL**2
00215      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00216  3299-FMT-CAT215-XIT.                                                CL**2
00217      EXIT.                                                           CL**2
00218                                                                    RPTRT32
00219 ******************************************************************   CL**2
00220 *                                                                    CL**2
00221 *    FORMAT CATEGORY 300 DETAIL LINE                                 CL**2
00222 *        CATEGORY 300 = STRUCTURE                                    CL**2
00223 *                                                                    CL**2
00224 ******************************************************************   CL**2
00225  1300-FMT-CAT300.                                                    CL**2
00226      MOVE SPACES TO CAT300-LINE1.                                    CL**2
00227 *                                                                    CL**2
00228 *    FORMAT DSNAME FIELD                                             CL**2
00229 *                                                                    CL**2
00230      IF FIRST-REC-SW EQUAL "N"                                       CL**2
00231          GO TO 1304-CHECK-COMMENT.                                   CL**2
00232      MOVE "N" TO FIRST-REC-SW.                                       CL**2
00233  1304-CHECK-COMMENT.                                                 CL**2
00234      IF CAT-COMMENT EQUAL TO "*"                                     CL**2
00235          PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT            CL**2
00236          GO TO 1399-FMT-CAT300-XIT.                                  CL**2
00237      GO TO 1305-FMT-FLD05.                                           CL**2
00238  1305-FMT-FLD05.                                                     CL**2
00239      IF DS-TOT-DSNAME EQUAL TO SPACES                                CL**2
00240          GO TO 1307-OUTPUT-LINE1.                                    CL**2
00241      MOVE FLD3230005-HCON TO FLD3230005-HDG.                         CL**2
00242      MOVE DS-TOT-DSNAME  TO FLD3230005-VAL.                          CL**2
00243  1307-OUTPUT-LINE1.                                                  CL**2
00244      IF CAT300-LINE1 EQUAL TO SPACES                                 CL**2
00245          GO TO 1310-FMT-FLD10.                                       CL**2
00246      MOVE CAT300-LINE1 TO STDRPT-70CHR.                              CL**2
00247      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00248 *                                                                    CL**2
00249 *    FORMAT TYPE FIELD                                               CL**2
00250 *                                                                    CL**2
00251  1310-FMT-FLD10.                                                     CL**2
00252      MOVE SPACES TO CAT300-LINE2.                                    CL**2
00253      IF DS-TOT-TYPE EQUAL TO SPACES                                  CL**2
00254          GO TO 1335-FMT-FLD15.                                       CL**2
00255      MOVE FLD3230010-HCON TO FLD3230010-HDG.                         CL**2
00256          GO TO 1320-INTERPRET-CODE.                                  CL**2
00257  1315-JUST-CODE.                                                     CL**2
00258      MOVE DS-TOT-TYPE TO FLD3230010-POS1.                            CL**2
00259          GO TO 1335-FMT-FLD15.                                       CL**2
00260  1320-INTERPRET-CODE.                                                CL**2
00261      MOVE 01 TO SUB3.                                                CL**2
00262  1325-NEXT-CODE-CK.                                                  CL**2
00263      IF FLD3230010-CODES (SUB3) EQUAL TO "9"                         CL**2
00264          GO TO 1315-JUST-CODE.                                       CL**2
00265      IF FLD3230010-CODES (SUB3) EQUAL TO DS-TOT-TYPE                 CL**2
00266          GO TO 1330-EXTRACT-MNG.                                     CL**2
00267      ADD 1 TO SUB3.                                                  CL**2
00268      GO TO 1325-NEXT-CODE-CK.                                        CL**2
00269  1330-EXTRACT-MNG.                                                   CL**2
00270      MOVE FLD3230010-MNG (SUB3) TO FLD3230010-VAL.                   CL**2
00271 *                                                                    CL**2
00272 *    FORMAT EXCLUDE FIELD                                            CL**2
00273 *                                                                    CL**2
00274  1335-FMT-FLD15.                                                     CL**2
00275      IF DS-TOT-EXCLUDE EQUAL TO SPACES                               CL**2
00276          GO TO 1360-OUTPUT-LINE2.                                    CL**2
00277      MOVE FLD3230015-HCON TO FLD3230015-HDG.                         CL**2
00278          GO TO 1345-INTERPRET-CODE.                                  CL**2
00279  1340-JUST-CODE.                                                     CL**2
00280      MOVE DS-TOT-EXCLUDE TO FLD3230015-POS1.                         CL**2
00281          GO TO 1360-OUTPUT-LINE2.                                    CL**2
00282  1345-INTERPRET-CODE.                                                CL**2
00283      MOVE 01 TO SUB3.                                                CL**2
00284  1350-NEXT-CODE-CK.                                                  CL**2
00285      IF FLD3230015-CODES (SUB3) EQUAL TO "9"                         CL**2
00286          GO TO 1340-JUST-CODE.                                       CL**2
00287      IF FLD3230015-CODES (SUB3) EQUAL TO DS-TOT-EXCLUDE              CL**2
00288          GO TO 1355-EXTRACT-MNG.                                     CL**2
00289      ADD 1 TO SUB3.                                                  CL**2
00290      GO TO 1350-NEXT-CODE-CK.                                        CL**2
00291  1355-EXTRACT-MNG.                                                   CL**2
00292      MOVE FLD3230015-MNG (SUB3) TO FLD3230015-VAL.                   CL**2
00293  1360-OUTPUT-LINE2.                                                  CL**2
00294      IF CAT300-LINE2 EQUAL TO SPACES                                 CL**2
00295          GO TO 1399-FMT-CAT300-XIT.                                  CL**2
00296      MOVE CAT300-LINE2 TO STDRPT-70CHR.                              CL**2
00297      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00298  1399-FMT-CAT300-XIT.                                                CL**2
00299      EXIT.                                                           CL**2
00300                                                                    RPTRT32
