00001 IDENTIFICATION DIVISION. 09/25/98 00002 PROGRAM-ID. DTSBD971. DTSBD971 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV002 00004 DATE-WRITTEN. NOVEMBER 1997. DTSBD971 00005 DATE-COMPILED. DTSBD971 00006 SKIP3 DTSBD971 00007 ***** DTSBD971 00008 * DTSBD971 00009 * FUNCTION: FORMAT MAINFRAME PRINT LINES FOR DISPLAY DTSBD971 00010 * WITHIN WP 6.1 FOR WINDOWS - STRIP CARRIAGE DTSBD971 00011 * CONTROL CHARACTER AND INSERT BLANK LINES. DTSBD971 00012 * DTSBD971 00013 * DTSBD971 00014 * MODIFICATION LOG: DTSBD971 00015 * DTSBD971 00016 * 11/10/97 INITIAL DEVELOPMENT. DTSBD971 00017 * WORK ORDER: PROGRAMMER: TCL DTSBD971 00018 * DTSBD971 00019 * 08/13/1998 REVIEWED AND MODIFIED FOR DC. DTSBD971 00020 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD971 00021 * DTSBD971 00022 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD971 00023 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD971 00024 * DTSBD971 00025 * DTSBD971 00026 * DESCRIPTION: DTSBD971 00027 * DTSBD971 00028 ***** DTSBD971 00029 SKIP3 DTSBD971 00030 ENVIRONMENT DIVISION. DTSBD971 00031 SKIP2 DTSBD971 00032 INPUT-OUTPUT SECTION. DTSBD971 00033 SKIP1 DTSBD971 00034 FILE-CONTROL. DTSBD971 00035 SELECT IN-FILE ASSIGN TO INFILE. DTSBD971 00036 SELECT OUT-FILE ASSIGN TO OUTFILE. DTSBD971 00037 EJECT DTSBD971 00038 DATA DIVISION. DTSBD971 00039 SKIP3 DTSBD971 00040 FILE SECTION. DTSBD971 00041 SKIP2 DTSBD971 00042 FD IN-FILE DTSBD971 00043 RECORDING MODE IS F DTSBD971 00044 BLOCK CONTAINS 0 RECORDS DTSBD971 00045 LABEL RECORDS ARE STANDARD. DTSBD971 00046 SKIP1 DTSBD971 00047 01 IN-REC. DTSBD971 00048 05 IN-CC PIC X(01). DTSBD971 00049 88 IN-TOP-OF-PAGE-88 VALUE '1'. DTSBD971 00050 88 IN-ADVANCE-0-88 VALUE '+'. DTSBD971 00051 88 IN-ADVANCE-1-88 VALUE ' '. DTSBD971 00052 88 IN-ADVANCE-2-88 VALUE '0'. DTSBD971 00053 88 IN-ADVANCE-3-88 VALUE '-'. DTSBD971 00054 05 IN-LINE PIC X(132). DTSBD971 00055 EJECT DTSBD971 00056 FD OUT-FILE DTSBD971 00057 RECORDING MODE IS F DTSBD971 00058 BLOCK CONTAINS 0 RECORDS DTSBD971 00059 LABEL RECORDS ARE STANDARD. DTSBD971 00060 SKIP1 DTSBD971 00061 01 OUT-REC. DTSBD971 00062 05 OUT-LINE PIC X(132). DTSBD971 00063 EJECT DTSBD971 00064 WORKING-STORAGE SECTION. DTSBD971 000645 77 PAN-VALET PICTURE X(24) VALUE '002DTSBD971 09/25/98'. DTSBD971 00065 SKIP3 DTSBD971 00066 01 WRK-AREA. DTSBD971 00067 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +971.DTSBD971 00068 DTSBD971 00069 05 ABEND-MSG PIC X(60). DTSBD971 00070 SKIP3 DTSBD971 00071 05 IN-EOF-IND PIC X(01). DTSBD971 00072 88 IN-EOF-NO-88 VALUE 'N'. DTSBD971 00073 88 IN-EOF-YES-88 VALUE 'Y'. DTSBD971 00074 SKIP3 DTSBD971 00075 05 WRK-LINE-CNT PIC S9(03) COMP-3. DTSBD971 00076 DTSBD971 00077 05 WRK-BLANK-LINE-CNT PIC S9(03) COMP-3. DTSBD971 00078 EJECT DTSBD971 00079 PROCEDURE DIVISION. DTSBD971 00080 SKIP2 DTSBD971 00081 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBD971 00082 DTSBD971 00083 DTSBD971 00084 DTSBD971 00085 SET IN-EOF-NO-88 TO TRUE. DTSBD971 00086 DTSBD971 00087 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBD971 00088 UNTIL IN-EOF-YES-88. DTSBD971 00089 DTSBD971 00090 DTSBD971 00091 DTSBD971 00092 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBD971 00093 SKIP2 DTSBD971 00094 GOBACK. DTSBD971 00095 EJECT DTSBD971 00096 I0000-INITIATE. DTSBD971 00097 OPEN INPUT IN-FILE. DTSBD971 00098 DTSBD971 00099 OPEN OUTPUT OUT-FILE. DTSBD971 00100 DTSBD971 00101 MOVE +62 TO WRK-LINE-CNT. CL**2 00102 I0000-EXIT. DTSBD971 00103 EXIT. DTSBD971 00104 EJECT DTSBD971 00105 P0000-PROCESS. DTSBD971 00106 READ IN-FILE DTSBD971 00107 AT END DTSBD971 00108 SET IN-EOF-YES-88 TO TRUE DTSBD971 00109 GO TO P0000-EXIT. DTSBD971 00110 DTSBD971 00111 IF IN-ADVANCE-0-88 DTSBD971 00112 GO TO P0000-EXIT. DTSBD971 00113 DTSBD971 00114 IF IN-TOP-OF-PAGE-88 DTSBD971 00115 PERFORM P1000-COMPLETE-PAGE THRU P1000-EXIT DTSBD971 00116 MOVE IN-LINE TO OUT-LINE DTSBD971 00117 PERFORM P9000-WRITE-LINE THRU P9000-EXIT DTSBD971 00118 ELSE DTSBD971 00119 IF IN-ADVANCE-1-88 DTSBD971 00120 IF WRK-LINE-CNT + 1 > 62 CL**2 00121 PERFORM P1000-COMPLETE-PAGE THRU P1000-EXIT DTSBD971 00122 END-IF DTSBD971 00123 MOVE IN-LINE TO OUT-LINE DTSBD971 00124 PERFORM P9000-WRITE-LINE THRU P9000-EXIT DTSBD971 00125 ELSE DTSBD971 00126 IF IN-ADVANCE-2-88 DTSBD971 00127 IF WRK-LINE-CNT + 2 > 62 CL**2 00128 PERFORM P1000-COMPLETE-PAGE THRU P1000-EXIT DTSBD971 00129 END-IF DTSBD971 00130 MOVE SPACES TO OUT-LINE DTSBD971 00131 PERFORM P9000-WRITE-LINE THRU P9000-EXIT DTSBD971 00132 MOVE IN-LINE TO OUT-LINE DTSBD971 00133 PERFORM P9000-WRITE-LINE THRU P9000-EXIT DTSBD971 00134 ELSE DTSBD971 00135 IF IN-ADVANCE-3-88 DTSBD971 00136 IF WRK-LINE-CNT + 3 > 62 CL**2 00137 PERFORM P1000-COMPLETE-PAGE THRU P1000-EXIT DTSBD971 00138 END-IF DTSBD971 00139 MOVE SPACES TO OUT-LINE DTSBD971 00140 PERFORM P9000-WRITE-LINE THRU P9000-EXIT DTSBD971 00141 MOVE SPACES TO OUT-LINE DTSBD971 00142 PERFORM P9000-WRITE-LINE THRU P9000-EXIT DTSBD971 00143 MOVE IN-LINE TO OUT-LINE DTSBD971 00144 PERFORM P9000-WRITE-LINE THRU P9000-EXIT DTSBD971 00145 ELSE DTSBD971 00146 IF WRK-LINE-CNT + 1 > 62 CL**2 00147 PERFORM P1000-COMPLETE-PAGE THRU P1000-EXIT DTSBD971 00148 END-IF DTSBD971 00149 MOVE IN-LINE TO OUT-LINE DTSBD971 00150 PERFORM P9000-WRITE-LINE THRU P9000-EXIT. DTSBD971 00151 P0000-EXIT. DTSBD971 00152 EXIT. DTSBD971 00153 SKIP3 DTSBD971 00154 P1000-COMPLETE-PAGE. DTSBD971 00155 COMPUTE WRK-BLANK-LINE-CNT = 62 - WRK-LINE-CNT. CL**2 00156 DTSBD971 00157 IF WRK-BLANK-LINE-CNT > +0 DTSBD971 00158 PERFORM P1100-BLANK-LINE THRU P1100-EXIT DTSBD971 00159 WRK-BLANK-LINE-CNT TIMES. DTSBD971 00160 DTSBD971 00161 MOVE +0 TO WRK-LINE-CNT. DTSBD971 00162 P1000-EXIT. DTSBD971 00163 EXIT. DTSBD971 00164 SKIP3 DTSBD971 00165 P1100-BLANK-LINE. DTSBD971 00166 MOVE SPACES TO OUT-LINE. DTSBD971 00167 DTSBD971 00168 PERFORM P9000-WRITE-LINE THRU P9000-EXIT. DTSBD971 00169 P1100-EXIT. DTSBD971 00170 EXIT. DTSBD971 00171 SKIP3 DTSBD971 00172 P9000-WRITE-LINE. DTSBD971 00173 WRITE OUT-REC. DTSBD971 00174 DTSBD971 00175 ADD +1 TO WRK-LINE-CNT. DTSBD971 00176 P9000-EXIT. DTSBD971 00177 EXIT. DTSBD971 00178 EJECT DTSBD971 00179 T0000-TERMINATE. DTSBD971 00180 CLOSE IN-FILE DTSBD971 00181 OUT-FILE. DTSBD971 00182 T0000-EXIT. DTSBD971 00183 EXIT. DTSBD971 00184 EJECT DTSBD971 00185 S999-ABEND. DTSBD971 00186 DISPLAY '*** DTSBD971 ABENDING. ABEND REASON: ' DTSBD971 00187 ABEND-MSG. DTSBD971 00188 DTSBD971 00189 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD971 00190 S999-EXIT. DTSBD971 00191 EXIT. DTSBD971