*COMDECK  RPTRT15 
00001 ******************************************************************06/30/78
00002 *                                                                 RPTRT15 
00003 *    FORMAT CATEGORY 200 DETAIL LINES                                LV001
00004 *        CATEGORY 200 = NAMES.                                       CL**2
00005 *                                                                    CL**2
00006 ******************************************************************   CL**2
00007  11200-FMT-CAT200.                                                   CL**2
00008      MOVE SPACES TO CAT15200-LINE1.                                  CL**2
00009 *                                                                    CL**2
00010 *    FORMAT DATA NAME FIELD                                          CL**2
00011 *                                                                    CL**2
00012  11205-FMT-FLD05.                                                    CL**2
00013      IF NAME-SR-DATA-NAME EQUAL TO SPACES                            CL**2
00014          GO TO 11210-FMT-FLD15.                                      CL**2
00015      MOVE FLD1520005-HCON TO FLD1520005-HDG.                         CL**2
00016      MOVE NAME-SR-DATA-NAME TO FLD1520005-VAL.                       CL**2
00017 *                                                                    CL**2
00018 *    FORMAT SYMBOL FIELD                                             CL**2
00019 *                                                                    CL**2
00020  11210-FMT-FLD15.                                                    CL**2
00021      IF NAME-SR-SYMBOL EQUAL TO SPACES                               CL**2
00022          GO TO 11220-OUTPUT-LN1.                                     CL**2
00023      MOVE FLD1520015-HCON TO FLD1520015-HDG.                         CL**2
00024      MOVE NAME-SR-SYMBOL TO FLD1520015-VAL.                          CL**2
00025 *                                                                    CL**2
00026 *    OUTPUT 1ST DISPLAY LINE                                         CL**2
00027 *                                                                    CL**2
00028  11220-OUTPUT-LN1.                                                   CL**2
00029      IF CAT15200-LINE1 EQUAL TO SPACES                               CL**2
00030          GO TO 11230-FMT-FLD10.                                      CL**2
00031      MOVE CAT15200-LINE1 TO STDRPT-70CHR.                            CL**2
00032      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00033 *                                                                    CL**2
00034 *    FORMAT 2ND LINE                                                 CL**2
00035 *                                                                    CL**2
00036  11230-FMT-FLD10.                                                    CL**2
00037      MOVE SPACES TO CAT15200-LINE2.                                  CL**2
00038 *                                                                    CL**2
00039 *    FORMAT IDENTIFIER FIELD                                         CL**2
00040 *                                                                    CL**2
00041      IF NAME-SR-IDENTIFIER EQUAL TO SPACES                           CL**2
00042          GO TO 11240-FMT-FLD20.                                      CL**2
00043      MOVE FLD1520010-HCON TO FLD1520010-HDG.                         CL**2
00044      MOVE NAME-SR-IDENTIFIER TO FLD1520010-VAL.                      CL**2
00045 *                                                                    CL**2
00046 *    FORMAT DBMS NAME FIELD                                          CL**2
00047 *                                                                    CL**2
00048  11240-FMT-FLD20.                                                    CL**2
00049      IF NAME-SR-DBMS EQUAL TO SPACES                                 CL**2
00050          GO TO 11250-OUTPUT-LN2.                                     CL**2
00051      MOVE FLD1520020-HCON TO FLD1520020-HDG.                         CL**2
00052      MOVE NAME-SR-DBMS TO FLD1520020-VAL.                            CL**2
00053 *                                                                    CL**2
00054 *    OUTPUT 2ND DISPLAY LINE                                         CL**2
00055 *                                                                    CL**2
00056  11250-OUTPUT-LN2.                                                   CL**2
00057      IF CAT15200-LINE2 EQUAL TO SPACES                               CL**2
00058          GO TO 11255-FMT-FLD25.                                      CL**2
00059      MOVE CAT15200-LINE2 TO STDRPT-70CHR.                            CL**2
00060      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00061 *                                                                    CL**2
00062 *    FORMAT USER NAME FIELD                                          CL**2
00063 *                                                                    CL**2
00064  11255-FMT-FLD25.                                                    CL**2
00065      MOVE SPACE TO CAT15200-LINE3.                                   CL**2
00066      IF NAME-SR-USENAME EQUAL SPACE                                  CL**2
00067          GO TO 11260-FMT-CAT200-XIT.                                 CL**2
00068      MOVE FLD1520025-HCON TO FLD1520025-HDG.                         CL**2
00069      MOVE NAME-SR-USENAME TO FLD1520025-VAL.                         CL**2
00070  11257-OUTPUT-LINE3.                                                 CL**2
00071      MOVE CAT15200-LINE3 TO STDRPT-70CHR.                            CL**2
00072      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00073  11260-FMT-CAT200-XIT.                                               CL**2
00074      EXIT.                                                           CL**2
00075                                                                    RPTRT15
00076 ******************************************************************   CL**2
00077 *                                                                    CL**2
00078 *    FORMAT CATEGORY 210 DETAIL LINE                                 CL**2
00079 *        CATEGORY 210 = ATTRIBUTE                                    CL**2
00080 *                                                                    CL**2
00081 ******************************************************************   CL**2
00082  11500-FMT-CAT210.                                                   CL**2
00083      MOVE SPACES TO CAT15210-LINE1.                                  CL**2
00084 *                                                                    CL**2
00085 *    FORMAT MAXIMUM LENGTH FIELD                                     CL**2
00086 *                                                                    CL**2
00087  11505-FMT-FLD05.                                                    CL**2
00088      IF ATTR-SR-MAXLEN EQUAL TO SPACES                               CL**2
00089          GO TO 11510-FMT-FLD10.                                      CL**2
00090      MOVE FLD1521005-HCON TO FLD1521005-HDG.                         CL**2
00091      MOVE ATTR-SR-MAXLEN TO FLD1521005-VAL.                          CL**2
00092 *                                                                    CL**2
00093 *    FORMAT MINIMUM LENGTH FIELD                                     CL**2
00094 *                                                                    CL**2
00095  11510-FMT-FLD10.                                                    CL**2
00096      IF ATTR-SR-MINLEN EQUAL TO SPACES                               CL**2
00097          GO TO 11520-FMT-FLD15.                                      CL**2
00098      MOVE FLD1521010-HCON TO FLD1521010-HDG.                         CL**2
00099      MOVE ATTR-SR-MINLEN TO FLD1521010-VAL.                          CL**2
00100 *                                                                    CL**2
00101 *    FORMAT STORAGE FIELD                                            CL**2
00102 *                                                                    CL**2
00103  11520-FMT-FLD15.                                                    CL**2
00104      IF ATTR-SR-STORAGE EQUAL TO SPACES                              CL**2
00105          GO TO 11570-OUTPUT-LN1.                                     CL**2
00106      MOVE FLD1521015-HCON TO FLD1521015-HDG.                         CL**2
00107          GO TO 11540-INTERPRET-CODE.                                 CL**2
00108  11530-JUST-CODE.                                                    CL**2
00109      MOVE ATTR-SR-STORAGE TO FLD1521015-POS1.                        CL**2
00110      GO TO 11570-OUTPUT-LN1.                                         CL**2
00111  11540-INTERPRET-CODE.                                               CL**2
00112      MOVE 01 TO SUB3.                                                CL**2
00113  11550-NEXT-CODE-CK.                                                 CL**2
00114      IF FLD1521015-CODES (SUB3) EQUAL TO "9"                         CL**2
00115          GO TO 11530-JUST-CODE.                                      CL**2
00116      IF FLD1521015-CODES (SUB3) EQUAL TO ATTR-SR-STORAGE             CL**2
00117          GO TO 11560-EXTRACT-MNG.                                    CL**2
00118      ADD 1 TO SUB3.                                                  CL**2
00119      GO TO 11550-NEXT-CODE-CK.                                       CL**2
00120  11560-EXTRACT-MNG.                                                  CL**2
00121      MOVE FLD1521015-MNG (SUB3) TO FLD1521015-VAL.                   CL**2
00122 *                                                                    CL**2
00123 *    OUTPUT DISPLAY LINE                                             CL**2
00124 *                                                                    CL**2
00125  11570-OUTPUT-LN1.                                                   CL**2
00126      IF CAT15210-LINE1 EQUAL TO SPACES                               CL**2
00127          GO TO 11580-FMT-CAT210-XIT.                                 CL**2
00128      MOVE CAT15210-LINE1 TO STDRPT-70CHR.                            CL**2
00129      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00130  11580-FMT-CAT210-XIT.                                               CL**2
00131      EXIT.                                                           CL**2
00132                                                                    RPTRT15
00133 ******************************************************************   CL**2
00134 *                                                                    CL**2
00135 *    FORMAT CATEGORY 300 DETAIL LINE                                 CL**2
00136 *        CATEGORY 300 = STRUCTURE                                    CL**2
00137 *                                                                    CL**2
00138 ******************************************************************   CL**2
00139  11800-FMT-CAT300.                                                   CL**2
00140      MOVE SPACES TO CAT15300-LINE1.                                  CL**2
00141      IF STC-SR-LINETYPE EQUAL MK4-LINE-TYPE                          CL**2
00142          GO TO 1200-FMT-FLD02.                                       CL**2
00143 *                                                                    CL**2
00144 *    FORMAT LINE HEADINGS 1ST DISPLAY LINE                           CL**2
00145 *                                                                    CL**2
00146  11810-FMT-FLD-HDGS.                                                 CL**2
00147      IF FIRST-REC-SW EQUAL TO "N"                                    CL**2
00148          GO TO 11825-CHECK-COMMENT.                                  CL**2
00149      MOVE "N" TO FIRST-REC-SW.                                       CL**2
00150      MOVE FLD1530005-HCON TO FLD1530005-HDG.                         CL**2
00151      MOVE FLD1530050-HCON TO FLD1530050-HDG.                         CL**2
00152      MOVE FLD1530010-HCON TO FLD1530010-HDG.                         CL**2
00153      MOVE FLD1530040-HCON TO FLD1530040-HDG.                         CL**2
00154      MOVE FLD1530045-HCON TO FLD1530045-HDG.                         CL**2
00155 *                                                                    CL**2
00156 *    OUTPUT HEADING LINES                                            CL**2
00157 *                                                                    CL**2
00158  11820-OUTPUT-LN1.                                                   CL**2
00159      MOVE CAT15300-LINE1 TO STDRPT-70CHR.                            CL**2
00160      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00161      MOVE 1 TO PRT-CTL.                                              CL**2
00162      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00163      MOVE CAT-REV  TO STDRPT-REVNO.                                  CL**2
00164      MOVE CAT-LINE TO STDRPT-LINE.                                   CL**2
00165 *                                                                    CL**2
00166 *    FORMAT 2ND DISPLAY LINE                                         CL**2
00167 *                                                                    CL**2
00168  11825-CHECK-COMMENT.                                                CL**2
00169      IF CAT-COMMENT NOT EQUAL TO "*"                                 CL**2
00170          GO TO 11830-FMT-FLD05.                                      CL**2
00171      PERFORM 5300-FMT-CAT030 THRU 5399-FMT-CAT030-XIT.               CL**2
00172      GO TO 1299-FMT-CAT15300-XIT.                                    CL**2
00173  11830-FMT-FLD05.                                                    CL**2
00174      MOVE SPACES TO CAT15300-LINE2.                                  CL**2
00175 *                                                                    CL**2
00176 *    FORMAT CATALOGUE NAME FIELD                                     CL**2
00177 *                                                                    CL**2
00178      IF STC-SR-CNAME EQUAL TO SPACES                                 CL**2
00179          GO TO 11840-FMT-FLD50.                                      CL**2
00180      MOVE STC-SR-CNAME TO FLD1530005-VAL.                            CL**2
00181 *                                                                    CL**2
00182 *    FORMAT ALIAS FIELD                                              CL**2
00183 *                                                                    CL**2
00184  11840-FMT-FLD50.                                                    CL**2
00185      IF STC-SR-ALY-NO EQUAL TO SPACES                                CL**2
00186          GO TO 11850-FMT-FLD10.                                      CL**2
00187      MOVE STC-SR-ALY-NO TO FLD1530050-VAL.                           CL**2
00188 *                                                                    CL**2
00189 *    FORMAT  FILLER FIELD                                            CL**2
00190 *                                                                    CL**2
00191  11850-FMT-FLD10.                                                    CL**2
00192      IF STC-SR-FILL-LEN EQUAL TO SPACES                              CL**2
00193          GO TO 11860-FMT-FLD40.                                      CL**2
00194      MOVE STC-SR-FILL-LEN TO  FLD1530010-VAL.                        CL**2
00195 *                                                                    CL**2
00196 *    FORMAT KEY FIELD                                                CL**2
00197 *                                                                    CL**2
00198  11860-FMT-FLD40.                                                    CL**2
00199      IF STC-SR-KEY EQUAL TO SPACES                                   CL**2
00200          GO TO 11870-FMT-FLD45.                                      CL**2
00201      GO TO 11863-INTERPRET-CODE.                                     CL**2
00202  11862-JUST-CODE.                                                    CL**2
00203      MOVE STC-SR-KEY TO FLD1530040-POS1.                             CL**2
00204      GO TO 11870-FMT-FLD45.                                          CL**2
00205  11863-INTERPRET-CODE.                                               CL**2
00206      MOVE 01 TO SUB3.                                                CL**2
00207  11864-NEXT-CODE-CK.                                                 CL**2
00208      IF FLD1530040-CODES (SUB3) EQUAL TO "9"                         CL**2
00209          GO TO 11862-JUST-CODE.                                      CL**2
00210      IF FLD1530040-CODES (SUB3) EQUAL TO STC-SR-KEY                  CL**2
00211          GO TO 11865-EXTRACT-MNG.                                    CL**2
00212      ADD 1 TO SUB3.                                                  CL**2
00213      GO TO 11864-NEXT-CODE-CK.                                       CL**2
00214  11865-EXTRACT-MNG.                                                  CL**2
00215      MOVE FLD1530040-MNG (SUB3) TO FLD1530040-VAL.                   CL**2
00216 *                                                                    CL**2
00217 *    FORMAT INCLUSION FIELD                                          CL**2
00218 *                                                                    CL**2
00219  11870-FMT-FLD45.                                                    CL**2
00220      IF STC-SR-DBD-INC EQUAL TO SPACES                               CL**2
00221          GO TO 11880-OUTPUT-LN2.                                     CL**2
00222      GO TO 11873-INTERPRET-CODE.                                     CL**2
00223  11872-JUST-CODE.                                                    CL**2
00224      MOVE STC-SR-DBD-INC TO FLD1530045-POS1.                         CL**2
00225      GO TO 11880-OUTPUT-LN2.                                         CL**2
00226  11873-INTERPRET-CODE.                                               CL**2
00227      MOVE 01 TO SUB3.                                                CL**2
00228  11874-NEXT-CODE-CK.                                                 CL**2
00229      IF FLD1530045-CODES (SUB3) EQUAL TO "9"                         CL**2
00230          GO TO 11872-JUST-CODE.                                      CL**2
00231      IF FLD1530045-CODES (SUB3) EQUAL TO STC-SR-DBD-INC              CL**2
00232          GO TO 11875-EXTRACT-MNG.                                    CL**2
00233      ADD 1 TO SUB3.                                                  CL**2
00234      GO TO 11874-NEXT-CODE-CK.                                       CL**2
00235  11875-EXTRACT-MNG.                                                  CL**2
00236      MOVE FLD1530045-MNG (SUB3) TO FLD1530045-VAL.                   CL**2
00237 *                                                                    CL**2
00238 *    OUTPUT 2ND DISPLAY LINE                                         CL**2
00239 *                                                                    CL**2
00240  11880-OUTPUT-LN2.                                                   CL**2
00241      IF CAT15300-LINE2 EQUAL TO SPACES                               CL**2
00242          GO TO 11890-FMT-FLDOCC.                                     CL**2
00243      MOVE CAT15300-LINE2 TO STDRPT-70CHR.                            CL**2
00244      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00245 *                                                                    CL**2
00246 *    FORMAT 3RD DISPLAY LINE                                         CL**2
00247 *                                                                    CL**2
00248  11890-FMT-FLDOCC.                                                   CL**2
00249      MOVE SPACES TO CAT15300-LINE3.                                  CL**2
00250 *                                                                    CL**2
00251 *    FORMAT OCCURS FIELDS                                            CL**2
00252 *                                                                    CL**2
00253      IF STC-SR-OCC-FROM EQUAL TO SPACES AND                          CL**2
00254      STC-SR-OCC-TO EQUAL TO SPACES                                   CL**2
00255          GO TO 11895-OUTPUT-LN3.                                     CL**2
00256      MOVE FLD15300OCC-HCON TO FLD15300OCC-HDG.                       CL**2
00257      MOVE FLD1530020-HCON TO FLD1530020-HDG.                         CL**2
00258      MOVE STC-SR-OCC-FROM TO FLD1530020-VAL.                         CL**2
00259      MOVE FLD1530025-HCON TO FLD1530025-HDG.                         CL**2
00260      MOVE STC-SR-OCC-TO TO FLD1530025-VAL.                           CL**2
00261 *                                                                    CL**2
00262 *    OUTPUT 3RD DISPLAY-LINE                                         CL**2
00263 *                                                                    CL**2
00264  11895-OUTPUT-LN3.                                                   CL**2
00265      IF CAT15300-LINE3 EQUAL TO SPACES                               CL**2
00266          GO TO 11900-FMT-FLD15.                                      CL**2
00267      MOVE CAT15300-LINE3 TO STDRPT-70CHR.                            CL**2
00268      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00269 *                                                                    CL**2
00270 *    FORMAT 4TH DISPLAY LINE                                         CL**2
00271 *                                                                    CL**2
00272  11900-FMT-FLD15.                                                    CL**2
00273      MOVE SPACES TO CAT15300-LINE4.                                  CL**2
00274 *                                                                    CL**2
00275 *    FORMAT REDEFINES FIELD                                          CL**2
00276 *                                                                    CL**2
00277      IF STC-SR-REDEFINES EQUAL TO SPACES                             CL**2
00278          GO TO 11910-OUTPUT-LN4.                                     CL**2
00279      MOVE FLD1530015-HCON TO FLD1530015-HDG.                         CL**2
00280      MOVE STC-SR-REDEFINES TO FLD1530015-VAL.                        CL**2
00281 *                                                                    CL**2
00282 *    OUTPUT 4TH DISPLAY LINE                                         CL**2
00283 *                                                                    CL**2
00284  11910-OUTPUT-LN4.                                                   CL**2
00285      IF CAT15300-LINE4 EQUAL TO SPACES                               CL**2
00286          GO TO 11920-FMT-FLD30.                                      CL**2
00287      MOVE CAT15300-LINE4 TO STDRPT-70CHR.                            CL**2
00288      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00289 *                                                                    CL**2
00290 *    FORMAT 5TH DISPLAY LINE                                         CL**2
00291 *                                                                    CL**2
00292  11920-FMT-FLD30.                                                    CL**2
00293      MOVE SPACES TO CAT15300-LINE5.                                  CL**2
00294 *                                                                    CL**2
00295 *    FORMAT INDEXED BY FIELD                                         CL**2
00296 *                                                                    CL**2
00297      IF STC-SR-INDEX EQUAL TO SPACES                                 CL**2
00298          GO TO 11930-OUTPUT-LN5.                                     CL**2
00299      MOVE FLD1530030-HCON TO FLD1530030-HDG.                         CL**2
00300      MOVE STC-SR-INDEX TO FLD1530030-VAL.                            CL**2
00301 *                                                                    CL**2
00302 *    OUTPUT 5TH DISPLAY LINE                                         CL**2
00303 *                                                                    CL**2
00304  11930-OUTPUT-LN5.                                                   CL**2
00305      IF CAT15300-LINE5 EQUAL TO SPACES                               CL**2
00306          GO TO 11940-FMT-FLD35.                                      CL**2
00307      MOVE CAT15300-LINE5 TO STDRPT-70CHR.                            CL**2
00308      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00309 *                                                                    CL**2
00310 *    FORMAT 6TH DISPLAY LINE                                         CL**2
00311 *                                                                    CL**2
00312  11940-FMT-FLD35.                                                    CL**2
00313      MOVE SPACES TO CAT15300-LINE6.                                  CL**2
00314 *                                                                    CL**2
00315 *    FORMAT DEPENDING ON FIELD                                       CL**2
00316 *                                                                    CL**2
00317      IF STC-SR-DEPEND EQUAL TO SPACES                                CL**2
00318          GO TO 11950-OUTPUT-LN6.                                     CL**2
00319      MOVE FLD1530035-HCON TO FLD1530035-HDG.                         CL**2
00320      MOVE STC-SR-DEPEND TO FLD1530035-VAL.                           CL**2
00321 *                                                                    CL**2
00322 *    OUTPUT 6TH DISPLAY LINE                                         CL**2
00323 *                                                                    CL**2
00324  11950-OUTPUT-LN6.                                                   CL**2
00325      IF CAT15300-LINE6 EQUAL TO SPACES                               CL**2
00326          GO TO 1200-FMT-FLD02.                                       CL**2
00327      MOVE CAT15300-LINE6 TO STDRPT-70CHR.                            CL**2
00328      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00329                                                                    RPTRT15
00330 *                                                                    CL**2
00331 *    LINE TYPE B STRUCTURE                                           CL**2
00332 *                                                                    CL**2
00333  1200-FMT-FLD02.                                                     CL**2
00334      IF STC-SR2-LINETYPE NOT EQUAL MK4-LINE-TYPE                     CL**2
00335          GO TO 1299-FMT-CAT15300-XIT.                                CL**2
00336      MOVE SPACE TO CAT15300-LINE7.                                   CL**2
00337 *                                                                    CL**2
00338 *    FORMAT FLOATING FIELD                                           CL**2
00339 *                                                                    CL**2
00340      IF STC-SR2-FLOATMK4 EQUAL SPACE                                 CL**2
00341          GO TO 1205-FMT-FLD07.                                       CL**2
00342      MOVE FLD1530002-HCON TO FLD1530002-HDG.                         CL**2
00343      MOVE STC-SR2-FLOATMK4 TO FLD1530002-VAL.                        CL**2
00344 *                                                                    CL**2
00345 *    FORMAT FILLING FIELD                                            CL**2
00346 *                                                                    CL**2
00347  1205-FMT-FLD07.                                                     CL**2
00348      IF STC-SR2-FILLMK4  EQUAL SPACE                                 CL**2
00349          GO TO 1215-FMT-FLD12.                                       CL**2
00350      MOVE FLD1530007-HCON TO FLD1530007-HDG.                         CL**2
00351      MOVE STC-SR2-FILLMK4 TO FLD1530007-VAL.                         CL**2
00352 *                                                                    CL**2
00353 *    FORMAT  TRAILING FIELD                                          CL**2
00354 *                                                                    CL**2
00355  1215-FMT-FLD12.                                                     CL**2
00356      IF STC-SR2-TRAILMK4 EQUAL SPACE                                 CL**2
00357          GO TO 1220-OUTPUT-LINE7.                                    CL**2
00358      MOVE FLD1530012-HCON TO FLD1530012-HDG.                         CL**2
00359      MOVE STC-SR2-TRAILMK4 TO FLD1530012-VAL.                        CL**2
00360 *                                                                    CL**2
00361 *    OUTPUT LINE 7                                                   CL**2
00362 *                                                                    CL**2
00363  1220-OUTPUT-LINE7.                                                  CL**2
00364      IF CAT15300-LINE7 EQUAL SPACE                                   CL**2
00365          GO TO 1225-FMT-FLD17.                                       CL**2
00366      MOVE CAT15300-LINE7 TO STDRPT-70CHR.                            CL**2
00367      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00368      MOVE CAT-REV TO STDRPT-REVNO.                                   CL**2
00369      MOVE CAT-LINE TO STDRPT-LINE.                                   CL**2
00370 *                                                                    CL**2
00371 *    FORMAT EDIT LENGTH FIELD                                        CL**2
00372 *                                                                    CL**2
00373  1225-FMT-FLD17.                                                     CL**2
00374      MOVE SPACES TO CAT15300-LINE8.                                  CL**2
00375      IF STC-SR2-EDLENMK4 EQUAL SPACE                                 CL**2
00376          GO TO 1230-FMT-FLD22.                                       CL**2
00377      MOVE FLD1530017-HCON TO FLD1530017-HDG.                         CL**2
00378      MOVE STC-SR2-EDLENMK4 TO FLD1530017-VAL.                        CL**2
00379 *                                                                    CL**2
00380 *    FORMAT PLACE FIELD                                              CL**2
00381 *                                                                    CL**2
00382  1230-FMT-FLD22.                                                     CL**2
00383      IF STC-SR2-PLACEMK4 EQUAL SPACE                                 CL**2
00384          GO TO 1235-FMT-FLD27.                                       CL**2
00385      MOVE FLD1530022-HCON TO FLD1530022-HDG.                         CL**2
00386      MOVE STC-SR2-PLACEMK4 TO FLD1530022-VAL.                        CL**2
00387 *                                                                    CL**2
00388 *    FORMAT COUNT FIELD                                              CL**2
00389 *                                                                    CL**2
00390  1235-FMT-FLD27.                                                     CL**2
00391      IF STC-SR2-COUNTMK4 EQUAL SPACE                                 CL**2
00392          GO TO 1240-OUTPUT-LINE8.                                    CL**2
00393      MOVE FLD1530027-HCON TO FLD1530027-HDG.                         CL**2
00394      MOVE STC-SR2-COUNTMK4 TO FLD1530027-VAL.                        CL**2
00395 *                                                                    CL**2
00396 *    OUTPUT LINE 8                                                   CL**2
00397 *                                                                    CL**2
00398  1240-OUTPUT-LINE8.                                                  CL**2
00399      IF CAT15300-LINE8 EQUAL SPACE                                   CL**2
00400         GO TO 1245-FMT-FLD32.                                        CL**2
00401      MOVE CAT15300-LINE8 TO STDRPT-70CHR.                            CL**2
00402      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00403 *                                                                    CL**2
00404 *    FORMAT LINE NO FIELD                                            CL**2
00405 *                                                                    CL**2
00406  1245-FMT-FLD32.                                                     CL**2
00407      MOVE SPACE TO CAT15300-LINE9.                                   CL**2
00408      IF STC-SR2-LINECOL EQUAL SPACE                                  CL**2
00409          GO TO 1250-FMT-FLD37.                                       CL**2
00410      MOVE FLD1530032-HCON TO FLD1530032-HDG.                         CL**2
00411      MOVE STC-SR2-LINECOL TO FLD1530032-VAL.                         CL**2
00412 *                                                                    CL**2
00413 *    FORMAT TEXT FIELD                                               CL**2
00414 *                                                                    CL**2
00415  1250-FMT-FLD37.                                                     CL**2
00416      IF STC-SR2-TEXTCOL EQUAL SPACE                                  CL**2
00417          GO TO 1255-OUTPUT-LINE9.                                    CL**2
00418      MOVE FLD1530037-HCON TO FLD1530037-HDG.                         CL**2
00419      MOVE STC-SR2-TEXTCOL TO FLD1530037-VAL.                         CL**2
00420 *                                                                    CL**2
00421 *    OUTPUT LAST LINE                                                CL**2
00422 *                                                                    CL**2
00423  1255-OUTPUT-LINE9.                                                  CL**2
00424      IF CAT15300-LINE9 EQUAL SPACE                                   CL**2
00425          GO TO 1299-FMT-CAT15300-XIT.                                CL**2
00426      MOVE CAT15300-LINE9 TO STDRPT-70CHR.                            CL**2
00427      PERFORM DISPLAY-LINE THRU DISPLAY-LINE-XIT.                     CL**2
00428  1299-FMT-CAT15300-XIT.                                              CL**2
00429      EXIT.                                                           CL**2
00430                                                                    RPTRT15
