*COMDECK  RPTRT35 
00001 ******************************************************************12/05/77
00002 *                                                                 RPTRT35 
00003 *    FORMAT CATEGORY 140 DETAIL LINES                                LV001
00004 *        CATEGORY 140 = RESPONSIBILITY                            RPTRT35 
00005 *                                                                 RPTRT35 
00006 ******************************************************************RPTRT35 
00007  20000-FMT-CAT140.                                                RPTRT35 
00008      MOVE SPACES TO CAT35140-LINE1.                               RPTRT35 
00009 *                                                                 RPTRT35 
00010 *    FORMAT STATUS FIELD                                          RPTRT35 
00011 *                                                                 RPTRT35 
00012  20005-FMT-FLD05.                                                 RPTRT35 
00013      IF RESP-F-STATUS EQUAL TO SPACES                             RPTRT35 
00014          GO TO 20050-FMT-FLD10.                                   RPTRT35 
00015      MOVE FLD3514005-HCON TO FLD3514005-HDG.                      RPTRT35 
00016          GO TO 20020-INTERPRET-CODE.                              RPTRT35 
00017  20010-JUST-CODE.                                                 RPTRT35 
00018      MOVE RESP-F-STATUS TO FLD3514005-POS1.                       RPTRT35 
00019          GO TO 20050-FMT-FLD10.                                   RPTRT35 
00020  20020-INTERPRET-CODE.                                            RPTRT35 
00021      MOVE 01 TO SUB3.                                             RPTRT35 
00022  20030-NEXT-CODE-CK.                                              RPTRT35 
00023      IF FLD3514005-CODES (SUB3) EQUAL TO "9"                      RPTRT35 
00024          GO TO 20010-JUST-CODE.                                   RPTRT35 
00025      IF FLD3514005-CODES (SUB3) EQUAL TO RESP-F-STATUS            RPTRT35 
00026          GO TO 20040-EXTRACT-MNG.                                 RPTRT35 
00027      ADD 1 TO SUB3.                                               RPTRT35 
00028      GO TO 20030-NEXT-CODE-CK.                                    RPTRT35 
00029  20040-EXTRACT-MNG.                                               RPTRT35 
00030      MOVE FLD3514005-MNG (SUB3) TO FLD3514005-VAL.                RPTRT35 
00031 *                                                                 RPTRT35 
00032 *    FORMAT FUNCTION FIELD                                        RPTRT35 
00033 *                                                                 RPTRT35 
00034  20050-FMT-FLD10.                                                 RPTRT35 
00035      IF RESP-F-FUNC EQUAL TO SPACES                               RPTRT35 
00036          GO TO 20100-FMT-FLD25.                                   RPTRT35 
00037      MOVE FLD3514010-HCON TO FLD3514010-HDG.                      RPTRT35 
00038          GO TO 20070-INTERPRET-CODE.                              RPTRT35 
00039  20060-JUST-CODE.                                                 RPTRT35 
00040      MOVE RESP-F-FUNC TO FLD3514010-POS1.                         RPTRT35 
00041          GO TO 20100-FMT-FLD25.                                   RPTRT35 
00042  20070-INTERPRET-CODE.                                            RPTRT35 
00043      MOVE 01 TO SUB3.                                             RPTRT35 
00044  20080-NEXT-CODE-CK.                                              RPTRT35 
00045      IF FLD3514010-CODES (SUB3) EQUAL TO "9"                      RPTRT35 
00046          GO TO 20060-JUST-CODE.                                   RPTRT35 
00047      IF FLD3514010-CODES (SUB3) EQUAL TO RESP-F-FUNC              RPTRT35 
00048          GO TO 20090-EXTRACT-MNG.                                 RPTRT35 
00049      ADD 1 TO SUB3.                                               RPTRT35 
00050      GO TO 20080-NEXT-CODE-CK.                                    RPTRT35 
00051  20090-EXTRACT-MNG.                                               RPTRT35 
00052      MOVE FLD3514010-MNG (SUB3) TO FLD3514010-VAL.                RPTRT35 
00053 *                                                                 RPTRT35 
00054 *    FORMAT PHONE FIELD                                           RPTRT35 
00055 *                                                                 RPTRT35 
00056  20100-FMT-FLD25.                                                 RPTRT35 
00057      IF RESP-F-PHONE EQUAL TO SPACES                              RPTRT35 
00058          GO TO 20110-FMT-FLD35.                                   RPTRT35 
00059      MOVE FLD3514025-HCON TO FLD3514025-HDG.                      RPTRT35 
00060      MOVE RESP-F-PHONE TO FLD3514025-VAL.                         RPTRT35 
00061 *                                                                 RPTRT35 
00062 *    FORMAT MAIL FIELD                                            RPTRT35 
00063 *                                                                 RPTRT35 
00064  20110-FMT-FLD35.                                                 RPTRT35 
00065      IF RESP-F-MAIL EQUAL TO SPACES                               RPTRT35 
00066          GO TO 20120-OUTPUT-LN1.                                  RPTRT35 
00067      MOVE FLD3514035-HCON TO FLD3514035-HDG.                      RPTRT35 
00068      MOVE RESP-F-MAIL TO FLD3514035-VAL.                          RPTRT35 
00069 *                                                                 RPTRT35 
00070 *    OUTPUT DISPLAY LINE 1                                        RPTRT35 
00071 *                                                                 RPTRT35 
00072  20120-OUTPUT-LN1.                                                RPTRT35 
00073      IF CAT35140-LINE1 EQUAL TO SPACES                            RPTRT35 
00074          GO TO 20130-FMT-FLD15.                                   RPTRT35 
00075      MOVE CAT35140-LINE1 TO STDRPT-70CHR.                         RPTRT35 
00076      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT35 
00077 *                                                                 RPTRT35 
00078 *    FORMAT 2ND DISPLAY LINE.                                     RPTRT35 
00079 *                                                                 RPTRT35 
00080  20130-FMT-FLD15.                                                 RPTRT35 
00081      MOVE SPACES TO CAT35140-LINE2.                               RPTRT35 
00082 *                                                                 RPTRT35 
00083 *    FORMAT DEPARTMENT FIELD                                      RPTRT35 
00084 *                                                                 RPTRT35 
00085      IF RESP-F-DEPT EQUAL TO SPACES                               RPTRT35 
00086          GO TO 20140-FMT-FLD40.                                   RPTRT35 
00087      MOVE FLD3514015-HCON TO FLD3514015-HDG.                      RPTRT35 
00088      MOVE RESP-F-DEPT TO FLD3514015-VAL.                          RPTRT35 
00089 *                                                                 RPTRT35 
00090 *    FORMAT DATE FIELD                                            RPTRT35 
00091 *                                                                 RPTRT35 
00092  20140-FMT-FLD40.                                                 RPTRT35 
00093      IF RESP-F-DATE EQUAL TO SPACES                               RPTRT35 
00094          GO TO 20150-OUTPUT-LN2.                                  RPTRT35 
00095      MOVE FLD3514040-HCON TO FLD3514040-HDG.                      RPTRT35 
00096      MOVE RESP-F-DATE TO FLD3514040-VAL.                          RPTRT35 
00097 *                                                                 RPTRT35 
00098 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT35 
00099 *                                                                 RPTRT35 
00100  20150-OUTPUT-LN2.                                                RPTRT35 
00101      IF CAT35140-LINE2 EQUAL TO SPACES                            RPTRT35 
00102          GO TO 20160-FMT-FLD20.                                   RPTRT35 
00103      MOVE CAT35140-LINE2 TO STDRPT-70CHR.                         RPTRT35 
00104      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT35 
00105 *                                                                 RPTRT35 
00106 *    FORMAT 3RD DISPLAY LINE                                      RPTRT35 
00107 *                                                                 RPTRT35 
00108  20160-FMT-FLD20.                                                 RPTRT35 
00109      MOVE SPACES TO CAT35140-LINE3.                               RPTRT35 
00110 *                                                                 RPTRT35 
00111 *    FORMAT PERSON FIELD                                          RPTRT35 
00112 *                                                                 RPTRT35 
00113      IF RESP-F-PERSON EQUAL TO SPACES                             RPTRT35 
00114          GO TO 20170-FMT-FLD30.                                   RPTRT35 
00115      MOVE FLD3514020-HCON TO FLD3514020-HDG.                      RPTRT35 
00116      MOVE RESP-F-PERSON TO FLD3514020-VAL.                        RPTRT35 
00117 *                                                                 RPTRT35 
00118 *    FORMAT TITLE FIELD                                           RPTRT35 
00119 *                                                                 RPTRT35 
00120  20170-FMT-FLD30.                                                 RPTRT35 
00121      IF RESP-F-TITLE EQUAL TO SPACES                              RPTRT35 
00122          GO TO 20180-OUTPUT-LN3.                                  RPTRT35 
00123      MOVE FLD3514030-HCON TO FLD3514030-HDG.                      RPTRT35 
00124      MOVE RESP-F-TITLE TO FLD3514030-VAL.                         RPTRT35 
00125 *                                                                 RPTRT35 
00126 *    OUTPUT 3RD DISPLAY LINE                                      RPTRT35 
00127 *                                                                 RPTRT35 
00128  20180-OUTPUT-LN3.                                                RPTRT35 
00129      IF CAT35140-LINE3 EQUAL TO SPACES                            RPTRT35 
00130          GO TO 20190-FMT-CAT140-XIT.                              RPTRT35 
00131      MOVE CAT35140-LINE3 TO STDRPT-70CHR.                         RPTRT35 
00132      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT35 
00133  20190-FMT-CAT140-XIT.                                            RPTRT35 
00134      EXIT.                                                        RPTRT35 
00135                                                                    RPTRT35
00136 ******************************************************************RPTRT35 
00137 *                                                                 RPTRT35 
00138 *    FORMAT CATEGORY 200 DETAIL LINES                             RPTRT35 
00139 *        CATEGORY 200 = NAMES                                     RPTRT35 
00140 *                                                                 RPTRT35 
00141 ******************************************************************RPTRT35 
00142  20200-FMT-CAT-200.                                               RPTRT35 
00143      MOVE SPACES TO CAT35200-LINE1.                               RPTRT35 
00144 *                                                                 RPTRT35 
00145 *    FORMAT FORM NAME FIELD                                       RPTRT35 
00146 *                                                                 RPTRT35 
00147  20205-FMT-FLD05.                                                 RPTRT35 
00148      IF NAME-F-FORM-NAME EQUAL TO SPACES                          RPTRT35 
00149          GO TO 20210-FMT-FLD10.                                   RPTRT35 
00150      MOVE FLD3520005-HCON TO FLD3520005-HDG.                      RPTRT35 
00151      MOVE NAME-F-FORM-NAME TO FLD3520005-VAL.                     RPTRT35 
00152 *                                                                    CL**2
00153 *    FORMAT FORM NUMBER FIELD                                        CL**2
00154 *                                                                    CL**2
00155  20210-FMT-FLD10.                                                 RPTRT35 
00156      IF NAME-F-FORMNO EQUAL TO SPACES                             RPTRT35 
00157          GO TO 20220-OUTPUT-LN1.                                  RPTRT35 
00158      MOVE FLD3520010-HCON TO FLD3520010-HDG.                      RPTRT35 
00159      MOVE NAME-F-FORMNO TO FLD3520010-VAL.                        RPTRT35 
00160 *                                                                    CL**2
00161 *    OUTPUT 1ST DISPLAY LINE                                         CL**2
00162 *                                                                    CL**2
00163  20220-OUTPUT-LN1.                                                RPTRT35 
00164      IF CAT35200-LINE1 EQUAL TO SPACES                            RPTRT35 
00165          GO TO 20230-FMT-CAT200-XIT.                              RPTRT35 
00166      MOVE CAT35200-LINE1 TO STDRPT-70CHR.                         RPTRT35 
00167      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT35 
00168  20230-FMT-CAT200-XIT.                                            RPTRT35 
00169      EXIT.                                                        RPTRT35 
00170                                                                    RPTRT35
00171 ******************************************************************RPTRT35 
00172 *                                                                 RPTRT35 
00173 *    FORMAT CATEGORY 210 DETAIL LINES                             RPTRT35 
00174 *        CATEGORY 210 = ATTRIBUTE                                 RPTRT35 
00175 *                                                                 RPTRT35 
00176 ******************************************************************RPTRT35 
00177  20400-FMT-CAT210.                                                RPTRT35 
00178      MOVE SPACES TO CAT35210-LINE1.                               RPTRT35 
00179 *                                                                 RPTRT35 
00180 *    FORMAT PARTS FIELD                                           RPTRT35 
00181 *                                                                 RPTRT35 
00182  20405-FMT-FLD05.                                                 RPTRT35 
00183      IF ATTR-F-PARTS EQUAL TO SPACES                              RPTRT35 
00184          GO TO 20410-FMT-FLD10.                                   RPTRT35 
00185      MOVE FLD3521005-HCON TO FLD3521005-HDG.                      RPTRT35 
00186      MOVE ATTR-F-PARTS TO FLD3521005-VAL.                         RPTRT35 
00187 *                                                                 RPTRT35 
00188 *    FORMAT COLOR FIELD                                           RPTRT35 
00189 *                                                                 RPTRT35 
00190  20410-FMT-FLD10.                                                 RPTRT35 
00191      IF ATTR-F-COLOR EQUAL TO SPACES                              RPTRT35 
00192          GO TO 20420-OUTPUT-LN1.                                  RPTRT35 
00193      MOVE FLD3521010-HCON TO FLD3521010-HDG.                      RPTRT35 
00194      MOVE ATTR-F-COLOR TO FLD3521010-VAL.                         RPTRT35 
00195 *                                                                 RPTRT35 
00196 *    OUTPUT DETAIL LINE                                           RPTRT35 
00197 *                                                                 RPTRT35 
00198  20420-OUTPUT-LN1.                                                RPTRT35 
00199      IF CAT35210-LINE1 EQUAL TO SPACES                            RPTRT35 
00200          GO TO 20430-FMT-CAT210-XIT.                              RPTRT35 
00201      MOVE CAT35210-LINE1 TO STDRPT-70CHR.                         RPTRT35 
00202      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT35 
00203  20430-FMT-CAT210-XIT.                                            RPTRT35 
00204      EXIT.                                                        RPTRT35 
00205                                                                    RPTRT35
00206 ******************************************************************RPTRT35 
00207 *                                                                 RPTRT35 
00208 *    FORMAT CATEGORY 230 DETAIL LINES                             RPTRT35 
00209 *        CATEGORY 230 = SUPPLIER                                  RPTRT35 
00210 *                                                                 RPTRT35 
00211 ******************************************************************RPTRT35 
00212  20500-FMT-CAT230.                                                RPTRT35 
00213      MOVE SPACES TO CAT35230-LINE1.                               RPTRT35 
00214 *                                                                 RPTRT35 
00215 *    FORMAT SUPPLIER NAME FIELD                                   RPTRT35 
00216 *                                                                 RPTRT35 
00217  20505-FMT-FLD05.                                                 RPTRT35 
00218      IF SUPLY-NAME EQUAL TO SPACES                                RPTRT35 
00219          GO TO 20510-FMT-FLD10.                                   RPTRT35 
00220      MOVE FLD35230SP-HCON TO FLD35230SP-HDG.                      RPTRT35 
00221      MOVE FLD3523005-HCON TO FLD3523005-HDG.                      RPTRT35 
00222      MOVE SUPLY-NAME TO FLD3523005-VAL.                           RPTRT35 
00223 *                                                                 RPTRT35 
00224 *    FORMAT SUPPLIER NUMBER FIELD                                 RPTRT35 
00225 *                                                                 RPTRT35 
00226  20510-FMT-FLD10.                                                 RPTRT35 
00227      IF SUPLY-NO EQUAL TO SPACES                                  RPTRT35 
00228          GO TO 20515-OUTPUT-LN1.                                  RPTRT35 
00229      MOVE FLD35230SP-HCON TO FLD35230SP-HDG.                      RPTRT35 
00230      MOVE FLD3523010-HCON TO FLD3523010-HDG.                      RPTRT35 
00231      MOVE SUPLY-NO TO FLD3523010-VAL.                             RPTRT35 
00232 *                                                                 RPTRT35 
00233 *    OUTPUT 1ST DISPLAY LINE                                      RPTRT35 
00234 *                                                                 RPTRT35 
00235  20515-OUTPUT-LN1.                                                RPTRT35 
00236      IF CAT35230-LINE1 EQUAL TO SPACES                            RPTRT35 
00237          GO TO 20520-FMT-FLD45.                                   RPTRT35 
00238      MOVE CAT35230-LINE1 TO STDRPT-70CHR.                         RPTRT35 
00239      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00240 *                                                                 RPTRT35 
00241 *    FORMAT 2ND DISPLAY LINE                                      RPTRT35 
00242 *                                                                 RPTRT35 
00243  20520-FMT-FLD45.                                                 RPTRT35 
00244      MOVE SPACES TO CAT35230-LINE2.                               RPTRT35 
00245 *                                                                 RPTRT35 
00246 *    FORMAT MINIMUM ORDER FIELD                                   RPTRT35 
00247 *                                                                 RPTRT35 
00248      IF SUPLY-MIN-ORDER-QTY EQUAL TO SPACES                       RPTRT35 
00249          GO TO 20525-FMT-FLD50.                                   RPTRT35 
00250      MOVE FLD3523045-HCON TO FLD3523045-HDG.                      RPTRT35 
00251      MOVE SUPLY-MIN-ORDER-QTY TO FLD3523045-VAL.                  RPTRT35 
00252 *                                                                 RPTRT35 
00253 *    FORMAT MINIMUM ORDER UNIT FIELD                              RPTRT35 
00254 *                                                                 RPTRT35 
00255  20525-FMT-FLD50.                                                 RPTRT35 
00256      IF SUPLY-MIN-ORDER-UNIT EQUAL TO SPACES                      RPTRT35 
00257          GO TO 20550-FMT-FLD55.                                   RPTRT35 
00258      GO TO 20535-INTERPRET-CODE.                                  RPTRT35 
00259  20530-JUST-CODE.                                                 RPTRT35 
00260      MOVE SUPLY-MIN-ORDER-UNIT TO FLD3523050-POS1.                RPTRT35 
00261          GO TO 20550-FMT-FLD55.                                   RPTRT35 
00262  20535-INTERPRET-CODE.                                            RPTRT35 
00263      MOVE 01 TO SUB3.                                             RPTRT35 
00264  20540-NEXT-CODE-CK.                                              RPTRT35 
00265      IF FLD3523050-CODES (SUB3) EQUAL TO "9"                      RPTRT35 
00266          GO TO 20530-JUST-CODE.                                   RPTRT35 
00267      IF FLD3523050-CODES (SUB3) EQUAL TO SUPLY-MIN-ORDER-UNIT     RPTRT35 
00268          GO TO 20545-EXTRACT-MNG.                                 RPTRT35 
00269      ADD 1 TO SUB3.                                               RPTRT35 
00270      GO TO 20540-NEXT-CODE-CK.                                    RPTRT35 
00271  20545-EXTRACT-MNG.                                               RPTRT35 
00272      MOVE FLD3523050-MNG (SUB3) TO FLD3523050-VAL.                RPTRT35 
00273 *                                                                 RPTRT35 
00274 *    FORMAT LEAD TIME FIELD                                       RPTRT35 
00275 *                                                                 RPTRT35 
00276  20550-FMT-FLD55.                                                 RPTRT35 
00277      IF SUPLY-LEAD-TIME EQUAL TO SPACES                           RPTRT35 
00278          GO TO 20555-FMT-FLD60.                                   RPTRT35 
00279      MOVE FLD3523055-HCON TO FLD3523055-HDG.                      RPTRT35 
00280      MOVE SUPLY-LEAD-TIME TO FLD3523055-VAL.                      RPTRT35 
00281 *                                                                 RPTRT35 
00282 *    FORMAT LEAD UNIT FIELD                                       RPTRT35 
00283 *                                                                 RPTRT35 
00284  20555-FMT-FLD60.                                                 RPTRT35 
00285      IF SUPLY-LEAD-UNIT EQUAL TO SPACES                           RPTRT35 
00286          GO TO 20580-OUTPUT-LN2.                                  RPTRT35 
00287      GO TO 20565-INTERPRET-CODE.                                  RPTRT35 
00288  20560-JUST-CODE.                                                 RPTRT35 
00289      MOVE SUPLY-LEAD-UNIT TO FLD3523060-POS1.                     RPTRT35 
00290          GO TO 20580-OUTPUT-LN2.                                  RPTRT35 
00291  20565-INTERPRET-CODE.                                            RPTRT35 
00292      MOVE 01 TO SUB3.                                             RPTRT35 
00293  20570-NEXT-CODE-CK.                                              RPTRT35 
00294      IF FLD3523060-CODES (SUB3) EQUAL TO "9"                      RPTRT35 
00295          GO TO 20560-JUST-CODE.                                   RPTRT35 
00296      IF FLD3523060-CODES (SUB3) EQUAL TO SUPLY-LEAD-UNIT          RPTRT35 
00297          GO TO 20575-EXTRACT-MNG.                                 RPTRT35 
00298      ADD 1 TO SUB3.                                               RPTRT35 
00299      GO TO 20570-NEXT-CODE-CK.                                    RPTRT35 
00300  20575-EXTRACT-MNG.                                               RPTRT35 
00301      MOVE FLD3523060-MNG (SUB3) TO FLD3523060-VAL.                RPTRT35 
00302 *                                                                 RPTRT35 
00303 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT35 
00304 *                                                                 RPTRT35 
00305  20580-OUTPUT-LN2.                                                RPTRT35 
00306      IF CAT35230-LINE2 EQUAL TO SPACES                            RPTRT35 
00307          GO TO 20585-FMT-FLD15.                                   RPTRT35 
00308      MOVE CAT35230-LINE2 TO STDRPT-70CHR.                         RPTRT35 
00309      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT35 
00310 *                                                                 RPTRT35 
00311 *    FORMAT 3RD DISPLAY LINE                                      RPTRT35 
00312 *                                                                 RPTRT35 
00313  20585-FMT-FLD15.                                                 RPTRT35 
00314      MOVE SPACES TO CAT35230-LINE3.                               RPTRT35 
00315 *                                                                 RPTRT35 
00316 *    FORMAT REORDER QUANTITY FIELD                                RPTRT35 
00317 *                                                                 RPTRT35 
00318      IF SUPLY-REORDER-QTY EQUAL TO SPACES                         RPTRT35 
00319          GO TO 20590-FMT-FLD20.                                   RPTRT35 
00320      MOVE FLD3523015-HCON TO FLD3523015-HDG.                      RPTRT35 
00321      MOVE SUPLY-REORDER-QTY  TO FLD3523015-VAL.                   RPTRT35 
00322 *                                                                 RPTRT35 
00323 *    FORMAT REORDER UNIT FIELD                                    RPTRT35 
00324 *                                                                 RPTRT35 
00325  20590-FMT-FLD20.                                                 RPTRT35 
00326      IF SUPLY-REORDER-UNIT EQUAL TO SPACES                        RPTRT35 
00327          GO TO 20615-FMT-FLD35.                                   RPTRT35:  
00328      GO TO 20600-INTERPRET-CODE.                                  RPTRT35 
00329  20595-JUST-CODE.                                                 RPTRT35 
00330      MOVE SUPLY-REORDER-UNIT TO FLD3523020-POS1.                  RPTRT35 
00331          GO TO 20615-FMT-FLD35.                                   RPTRT35 
00332  20600-INTERPRET-CODE.                                            RPTRT35 
00333      MOVE 01 TO SUB3.                                             RPTRT35 
00334  20605-NEXT-CODE-CK.                                              RPTRT35 
00335      IF FLD3523020-CODES (SUB3) EQUAL TO "9"                      RPTRT35 
00336          GO TO 20595-JUST-CODE.                                   RPTRT35 
00337      IF FLD3523020-CODES (SUB3) EQUAL TO SUPLY-REORDER-UNIT       RPTRT35 
00338          GO TO 20610-EXTRACT-MNG.                                 RPTRT35 
00339      ADD 1 TO SUB3.                                               RPTRT35 
00340      GO TO 20605-NEXT-CODE-CK.                                    RPTRT35 
00341  20610-EXTRACT-MNG.                                               RPTRT35 
00342      MOVE FLD3523020-MNG (SUB3) TO FLD3523020-VAL.                RPTRT35 
00343 *                                                                 RPTRT35 
00344 *    FORMAT EOQ QUANTITY.                                         RPTRT35 
00345 *                                                                 RPTRT35 
00346  20615-FMT-FLD35.                                                 RPTRT35 
00347      IF SUPLY-EOQ-QTY EQUAL TO SPACES                             RPTRT35 
00348          GO TO 20620-FMT-FLD40.                                   RPTRT35 
00349      MOVE FLD3523035-HCON TO FLD3523035-HDG.                      RPTRT35 
00350      MOVE SUPLY-EOQ-QTY TO FLD3523035-VAL.                        RPTRT35 
00351 *                                                                 RPTRT35 
00352 *    FORMAT EOQ UNIT FIELD                                        RPTRT35 
00353 *                                                                 RPTRT35 
00354  20620-FMT-FLD40.                                                 RPTRT35 
00355      IF SUPLY-EOQ-UNIT EQUAL TO SPACES                            RPTRT35 
00356          GO TO 20645-OUTPUT-LN3.                                  RPTRT35 
00357      GO TO 20630-INTERPRET-CODE.                                  RPTRT35 
00358  20625-JUST-CODE.                                                 RPTRT35 
00359      MOVE SUPLY-EOQ-UNIT TO FLD3523040-POS1.                      RPTRT35 
00360          GO TO 20645-OUTPUT-LN3.                                  RPTRT35 
00361  20630-INTERPRET-CODE.                                            RPTRT35 
00362      MOVE 01 TO SUB3.                                             RPTRT35 
00363  20635-NEXT-CODE-CK.                                              RPTRT35 
00364      IF FLD3523040-CODES (SUB3) EQUAL TO "9"                      RPTRT35 
00365          GO TO 20625-JUST-CODE.                                   RPTRT35 
00366      IF FLD3523040-CODES (SUB3) EQUAL TO SUPLY-EOQ-UNIT           RPTRT35 
00367          GO TO 20640-EXTRACT-MNG.                                 RPTRT35 
00368      ADD 1 TO SUB3.                                               RPTRT35 
00369      GO TO 20635-NEXT-CODE-CK.                                    RPTRT35 
00370  20640-EXTRACT-MNG.                                               RPTRT35 
00371      MOVE FLD3523040-MNG (SUB3) TO FLD3523040-VAL.                RPTRT35 
00372 *                                                                 RPTRT35 
00373 *    OUTPUT 3RD DISPLAY LINE                                      RPTRT35 
00374 *                                                                 RPTRT35 
00375  20645-OUTPUT-LN3.                                                RPTRT35 
00376      IF CAT35230-LINE3 EQUAL TO SPACES                            RPTRT35 
00377          GO TO 20650-FMT-FLD25.                                   RPTRT35 
00378      MOVE CAT35230-LINE3 TO STDRPT-70CHR.                         RPTRT35 
00379      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT35 
00380 *                                                                 RPTRT35 
00381 *    FORMAT 4TH DISPLAY LINE                                      RPTRT35 
00382 *                                                                 RPTRT35 
00383  20650-FMT-FLD25.                                                 RPTRT35 
00384      MOVE SPACES TO CAT35230-LINE4.                               RPTRT35 
00385 *                                                                 RPTRT35 
00386 *    FORMAT ON HAND QUANTITY                                      RPTRT35 
00387 *                                                                 RPTRT35 
00388      IF SUPLY-ONHAND-QTY EQUAL TO SPACES                          RPTRT35 
00389          GO TO 20655-FMT-FLD30.                                   RPTRT35 
00390      MOVE FLD3523025-HCON TO FLD3523025-HDG.                      RPTRT35 
00391      MOVE SUPLY-ONHAND-QTY TO FLD3523025-VAL.                     RPTRT35 
00392 *                                                                 RPTRT35 
00393 *    FORMAT ON HAND UNIT FIELD                                    RPTRT35 
00394 *                                                                 RPTRT35 
00395  20655-FMT-FLD30.                                                 RPTRT35 
00396      IF SUPLY-ONHAND-UNIT EQUAL TO SPACES                         RPTRT35 
00397          GO TO 20680-OUTPUT-LN4.                                  RPTRT35 
00398      GO TO 20665-INTERPRET-CODE.                                  RPTRT35 
00399  20660-JUST-CODE.                                                 RPTRT35 
00400      MOVE SUPLY-ONHAND-UNIT TO FLD3523030-POS1.                   RPTRT35 
00401          GO TO 20680-OUTPUT-LN4.                                  RPTRT35 
00402  20665-INTERPRET-CODE.                                            RPTRT35 
00403      MOVE 01 TO SUB3.                                             RPTRT35 
00404  20670-NEXT-CODE-CK.                                              RPTRT35 
00405      IF FLD3523030-CODES (SUB3) EQUAL TO "9"                      RPTRT35 
00406          GO TO 20660-JUST-CODE.                                   RPTRT35 
00407      IF FLD3523030-CODES (SUB3) EQUAL TO SUPLY-ONHAND-UNIT        RPTRT35 
00408          GO TO 20675-EXTRACT-MNG.                                 RPTRT35 
00409      ADD 1 TO SUB3.                                               RPTRT35 
00410      GO TO 20670-NEXT-CODE-CK.                                    RPTRT35 
00411  20675-EXTRACT-MNG.                                               RPTRT35 
00412      MOVE FLD3523030-MNG (SUB3) TO FLD3523030-VAL.                RPTRT35 
00413 *                                                                 RPTRT35 
00414 *    OUTPUT 4TH DISPLAY LINE                                      RPTRT35 
00415 *                                                                 RPTRT35 
00416  20680-OUTPUT-LN4.                                                RPTRT35 
00417      IF CAT35230-LINE4 EQUAL TO SPACES                            RPTRT35 
00418          GO TO 20685-FMT-CAT230-XIT.                              RPTRT35 
00419      MOVE CAT35230-LINE4 TO STDRPT-70CHR.                         RPTRT35 
00420      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT35 
00421  20685-FMT-CAT230-XIT.                                            RPTRT35 
00422      EXIT.                                                        RPTRT35 
00423                                                                    RPTRT35
00424 ******************************************************************RPTRT35 
00425 *                                                                 RPTRT35 
00426 *    FORMAT CATEGORY 240 DETAIL LINES                             RPTRT35 
00427 *        CATEGORY 240 = FLOW                                      RPTRT35 
00428 *                                                                 RPTRT35 
00429 ******************************************************************RPTRT35 
00430  20700-FMT-CAT240.                                                RPTRT35 
00431      MOVE SPACES TO CAT35240-LINE1.                               RPTRT35 
00432 *                                                                 RPTRT35 
00433 *    FORMAT FLOW CATEGORY                                         RPTRT35 
00434 *                                                                 RPTRT35 
00435  20705-FMT-FLD05.                                                 RPTRT35 
00436      IF FLOW-CODE EQUAL TO SPACES                                 RPTRT35 
00437          GO TO 20730-FMT-FLD10.                                   RPTRT35 
00438      MOVE FLD3524005-HCON TO FLD3524005-HDG.                      RPTRT35 
00439          GO TO 20715-INTERPRET-CODE.                              RPTRT35 
00440  20710-JUST-CODE.                                                 RPTRT35 
00441      MOVE FLOW-CODE TO FLD3524005-POS1.                           RPTRT35 
00442          GO TO 20730-FMT-FLD10.                                   RPTRT35 
00443  20715-INTERPRET-CODE.                                            RPTRT35 
00444      MOVE 01 TO SUB3.                                             RPTRT35 
00445  20720-NEXT-CODE-CK.                                              RPTRT35 
00446      IF FLD3524005-CODES (SUB3) EQUAL TO "9"                      RPTRT35 
00447          GO TO 20710-JUST-CODE.                                   RPTRT35 
00448      IF FLD3524005-CODES (SUB3) EQUAL TO FLOW-CODE                RPTRT35 
00449          GO TO 20725-EXTRACT-MNG.                                 RPTRT35 
00450      ADD 1 TO SUB3.                                               RPTRT35 
00451      GO TO 20720-NEXT-CODE-CK.                                    RPTRT35 
00452  20725-EXTRACT-MNG.                                               RPTRT35 
00453      MOVE FLD3524005-MNG (SUB3) TO FLD3524005-VAL.                RPTRT35 
00454 *                                                                 RPTRT35 
00455 *    FORMAT DEPARTMENT FIELD                                      RPTRT35 
00456 *                                                                 RPTRT35 
00457  20730-FMT-FLD10.                                                 RPTRT35 
00458      IF FLOW-DEPT EQUAL TO SPACES                                 RPTRT35 
00459          GO TO 20735-FMT-FLD25.                                   RPTRT35 
00460      MOVE FLD3524010-HCON TO FLD3524010-HDG.                      RPTRT35 
00461      MOVE FLOW-DEPT TO FLD3524010-VAL.                            RPTRT35 
00462 *                                                                 RPTRT35 
00463 *    FORMAT PARTS FIELD                                           RPTRT35 
00464 *                                                                 RPTRT35 
00465  20735-FMT-FLD25.                                                 RPTRT35 
00466      IF FLOW-PARTS EQUAL TO SPACES                                RPTRT35 
00467          GO TO 20740-OUTPUT-LN1.                                  RPTRT35 
00468      MOVE FLD3524025-HCON TO FLD3524025-HDG.                      RPTRT35 
00469      MOVE FLOW-PARTS TO FLD3524025-VAL.                           RPTRT35 
00470 *                                                                 RPTRT35 
00471 *    OUTPUT 1ST DISPLAY LINE                                      RPTRT35 
00472 *                                                                 RPTRT35 
00473  20740-OUTPUT-LN1.                                                RPTRT35 
00474      IF CAT35240-LINE1 EQUAL TO SPACES                            RPTRT35 
00475          GO TO 20745-FMT-FLD30.                                   RPTRT35 
00476      MOVE CAT35240-LINE1 TO STDRPT-70CHR.                         RPTRT35 
00477      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT35 
00478 *                                                                 RPTRT35 
00479 *    FORMAT 2ND DISPLAY LINE                                      RPTRT35 
00480 *                                                                 RPTRT35 
00481  20745-FMT-FLD30.                                                 RPTRT35 
00482      MOVE SPACES TO CAT35240-LINE2.                               RPTRT35 
00483 *                                                                 RPTRT35 
00484 *    FORMAT DAY FIELD                                             RPTRT35 
00485 *                                                                 RPTRT35 
00486      IF FLOW-SUBMIT-DAY EQUAL TO SPACES                           RPTRT35 
00487          GO TO 20750-FMT-FLD15.                                   RPTRT35 
00488      MOVE FLD3524030-HCON TO FLD3524030-HDG.                      RPTRT35 
00489      MOVE FLOW-SUBMIT-DAY TO FLD3524030-VAL.                      RPTRT35 
00490 *                                                                 RPTRT35 
00491 *    FORMAT PERSON FIELD                                          RPTRT35 
00492 *                                                                 RPTRT35 
00493  20750-FMT-FLD15.                                                 RPTRT35 
00494      IF FLOW-PERSON EQUAL TO SPACES                               RPTRT35 
00495          GO TO 20755-OUTPUT-LN2.                                  RPTRT35 
00496      MOVE FLD3524015-HCON TO FLD3524015-HDG.                      RPTRT35 
00497      MOVE FLOW-PERSON TO FLD3524015-VAL.                          RPTRT35 
00498 *                                                                 RPTRT35 
00499 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT35 
00500 *                                                                 RPTRT35 
00501  20755-OUTPUT-LN2.                                                RPTRT35 
00502      IF CAT35240-LINE2 EQUAL TO SPACES                            RPTRT35 
00503          GO TO 20760-FMT-FLD20.                                   RPTRT35 
00504      MOVE CAT35240-LINE2 TO STDRPT-70CHR.                         RPTRT35 
00505      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT35 
00506 *                                                                 RPTRT35 
00507 *    FORMAT 3RD DISPLAY LINE                                      RPTRT35 
00508 *                                                                 RPTRT35 
00509  20760-FMT-FLD20.                                                 RPTRT35 
00510      MOVE SPACES TO CAT35240-LINE3.                               RPTRT35 
00511 *                                                                 RPTRT35 
00512 *    FORMAT PHONE FIELD                                           RPTRT35 
00513 *                                                                 RPTRT35 
00514      IF FLOW-PHONE EQUAL TO SPACES                                RPTRT35 
00515          GO TO 20765-OUTPUT-LN3.                                  RPTRT35 
00516      MOVE FLD3524020-HCON TO FLD3524020-HDG.                      RPTRT35 
00517      MOVE FLOW-PHONE TO FLD3524020-VAL.                           RPTRT35 
00518 *                                                                 RPTRT35 
00519 *    OUTPUT 3RD DISPLAY LINE                                      RPTRT35 
00520 *                                                                 RPTRT35 
00521  20765-OUTPUT-LN3.                                                RPTRT35 
00522      IF CAT35240-LINE3 EQUAL TO SPACES                            RPTRT35 
00523          GO TO 20770-FMT-CAT240-XIT.                              RPTRT35 
00524      MOVE CAT35240-LINE3 TO STDRPT-70CHR.                         RPTRT35 
00525      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT35 
00526  20770-FMT-CAT240-XIT.                                            RPTRT35 
00527      EXIT.                                                        RPTRT35 
00528                                                                    RPTRT35
00529 ******************************************************************RPTRT35 
00530 *                                                                 RPTRT35 
00531 *    FORMAT CATEGORY 800 DETAIL LINE                              RPTRT35 
00532 *        CATEGORY 800 = RELATIONAL                                RPTRT35 
00533 *                                                                 RPTRT35 
00534 ******************************************************************RPTRT35 
00535  20800-FMT-CAT800.                                                RPTRT35 
00536      MOVE SPACES TO CAT35800-LINE1.                               RPTRT35 
00537 *                                                                 RPTRT35 
00538 *    FORMAT HEADING LINE                                          RPTRT35 
00539 *                                                                 RPTRT35 
00540      IF FIRST-REC-SW EQUAL TO "N"                                 RPTRT35 
00541          GO TO 20815-CHECK-COMMENT.                                  CL**2
00542      MOVE "N" TO FIRST-REC-SW.                                    RPTRT35 
00543      MOVE FLD3580005-HCON TO FLD3580005-HDG.                      RPTRT35 
00544      MOVE FLD35800US-HCON TO FLD35800US-HDG.                         CL**2
00545 *                                                                 RPTRT35 
00546 *    OUTPUT HEADING LINE                                          RPTRT35 
00547 *                                                                 RPTRT35 
00548  20810-OUTPUT-LN1.                                                RPTRT35 
00549      MOVE 1 TO PRT-CTL.                                              CL**2
00550      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00551      MOVE CAT35800-LINE1 TO STDRPT-70CHR.                         RPTRT35 
00552      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT35 
00553      MOVE CAT-REV  TO STDRPT-REVNO.                                  CL**2
00554      MOVE CAT-LINE  TO STDRPT-LINE.                                  CL**2
00555 *                                                                 RPTRT35 
00556 *    FORMAT 2ND DISPLAY LINE                                      RPTRT35 
00557 *                                                                 RPTRT35 
00558  20815-CHECK-COMMENT.                                                CL**2
00559      IF CAT-COMMENT NOT EQUAL TO "*"                                 CL**2
00560          GO TO 20820-FMT-FLD05.                                      CL**2
00561      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.               CL**2
00562      GO TO 20870-FMT-CAT800-XIT.                                     CL**2
00563  20820-FMT-FLD05.                                                 RPTRT35 
00564      MOVE SPACES TO CAT35800-LINE2.                                  CL**2
00565      IF REL-F-CNAME EQUAL TO SPACES                               RPTRT35 
00566          GO TO 20830-FMT-FLD10.                                   RPTRT35 
00567      MOVE REL-F-CNAME TO FLD3580005-VAL.                          RPTRT35 
00568 *                                                                 RPTRT35 
00569 *    FORMAT PARTIAL FIELD                                         RPTRT35 
00570 *                                                                 RPTRT35 
00571  20830-FMT-FLD10.                                                 RPTRT35 
00572      IF REL-F-PUSE EQUAL TO SPACES                                   CL**2
00573          GO TO 20860-OUTPUT-LN2.                                  RPTRT35 
00574      GO TO 20840-INTERPRET-CODE.                                  RPTRT35 
00575  20835-JUST-CODE.                                                 RPTRT35 
00576      MOVE REL-F-PUSE TO FLD3580010-POS1.                          RPTRT35 
00577          GO TO 20860-OUTPUT-LN2.                                  RPTRT35 
00578  20840-INTERPRET-CODE.                                            RPTRT35 
00579      MOVE 01 TO SUB3.                                             RPTRT35 
00580  20845-NEXT-CODE-CK.                                              RPTRT35 
00581      IF FLD3580010-CODES (SUB3) EQUAL TO "9"                      RPTRT35 
00582          GO TO 20835-JUST-CODE.                                   RPTRT35 
00583      IF FLD3580010-CODES (SUB3) EQUAL TO REL-F-PUSE               RPTRT35 
00584          GO TO 20850-EXTRACT-MNG.                                 RPTRT35 
00585      ADD 1 TO SUB3.                                               RPTRT35 
00586      GO TO 20845-NEXT-CODE-CK.                                    RPTRT35 
00587  20850-EXTRACT-MNG.                                               RPTRT35 
00588      MOVE FLD3580010-MNG (SUB3) TO FLD3580010-VAL.                RPTRT35 
00589 *                                                                 RPTRT35 
00590 *    OUTPUT 2ND DISPLAY LINE                                      RPTRT35 
00591 *                                                                 RPTRT35 
00592  20860-OUTPUT-LN2.                                                RPTRT35 
00593      IF CAT35800-LINE2 EQUAL TO SPACES                            RPTRT35 
00594          GO TO 20870-FMT-CAT800-XIT.                              RPTRT35 
00595      MOVE CAT-REV TO STDRPT-REVNO.                                   CL**2
00596      MOVE CAT-LINE TO STDRPT-LINE.                                   CL**2
00597      MOVE CAT35800-LINE2 TO STDRPT-70CHR.                         RPTRT35 
00598      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                  RPTRT35 
00599  20870-FMT-CAT800-XIT.                                            RPTRT35 
00600      EXIT.                                                        RPTRT35 
00601                                                                    RPTRT35
