136 lines
11 KiB
COBOL
136 lines
11 KiB
COBOL
00001 IDENTIFICATION DIVISION. 08/13/98
|
|
00002 PROGRAM-ID. DTSBD997. DTSBD997
|
|
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV003
|
|
00004 DATE-WRITTEN. NOVEMBER 1994. DTSBD997
|
|
00005 DATE-COMPILED. DTSBD997
|
|
00006 SKIP3 DTSBD997
|
|
00007 ***** DTSBD997
|
|
00008 * DTSBD997
|
|
00009 * MODIFICATION LOG: DTSBD997
|
|
00010 * DTSBD997
|
|
00011 * 06/21/94 MODULE WRITTEN. DTSBD997
|
|
00012 * RFP: PROGRAMMER: EHHDTSBD997
|
|
00013 * DTSBD997
|
|
00014 * 08/13/1998 REVIEWED AND MODIFIED FOR DC. CL**3
|
|
00015 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH CL**3
|
|
00016 * CL**3
|
|
00017 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**3
|
|
00018 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX CL**3
|
|
00019 * DTSBD997
|
|
00020 * DTSBD997
|
|
00021 * FUNCTION: DTSBD997
|
|
00022 * DTSBD997
|
|
00023 * MOVE SPACES TO UNUSED AREAS OF 80 CHARACTER RECORDS. DTSBD997
|
|
00024 * DTSBD997
|
|
00025 * IMPROVES EFFICIENCY OF DOWNLOAD TO PC AND COMPRESSION DTSBD997
|
|
00026 * ON THE PC. DTSBD997
|
|
00027 * DTSBD997
|
|
00028 ***** DTSBD997
|
|
00029 SKIP3 DTSBD997
|
|
00030 ENVIRONMENT DIVISION. DTSBD997
|
|
00031 SKIP2 DTSBD997
|
|
00032 INPUT-OUTPUT SECTION. DTSBD997
|
|
00033 SKIP1 DTSBD997
|
|
00034 FILE-CONTROL. DTSBD997
|
|
00035 SELECT IN-FILE ASSIGN TO INFILE. DTSBD997
|
|
00036 SELECT OUT-FILE ASSIGN TO OUTFILE. DTSBD997
|
|
00037 EJECT DTSBD997
|
|
00038 DATA DIVISION. DTSBD997
|
|
00039 SKIP3 DTSBD997
|
|
00040 FILE SECTION. DTSBD997
|
|
00041 SKIP3 DTSBD997
|
|
00042 FD IN-FILE DTSBD997
|
|
00043 BLOCK CONTAINS 0 RECORDS DTSBD997
|
|
00044 RECORDING MODE IS F. DTSBD997
|
|
00045 SKIP1 DTSBD997
|
|
00046 01 IN-REC PIC X(80). DTSBD997
|
|
00047 SKIP3 DTSBD997
|
|
00048 FD OUT-FILE DTSBD997
|
|
00049 BLOCK CONTAINS 0 RECORDS DTSBD997
|
|
00050 RECORDING MODE IS F. DTSBD997
|
|
00051 SKIP1 DTSBD997
|
|
00052 01 OUT-REC PIC X(80). DTSBD997
|
|
00053 EJECT DTSBD997
|
|
00054 WORKING-STORAGE SECTION. DTSBD997
|
|
000545 77 PAN-VALET PICTURE X(24) VALUE '003DTSBD997 08/13/98'. DTSBD997
|
|
00055 SKIP3 DTSBD997
|
|
00056 01 WRK-AREA. DTSBD997
|
|
00057 05 IN-EOF-IND PIC X(01). DTSBD997
|
|
00058 DTSBD997
|
|
00059 05 ABEND-CD PIC S9(07) COMP VALUE +997. DTSBD997
|
|
00060 DTSBD997
|
|
00061 05 ABEND-MSG PIC X(60). DTSBD997
|
|
00062 SKIP1 DTSBD997
|
|
00063 05 REC-COUNT PIC S9(07) COMP-3. DTSBD997
|
|
00064 EJECT DTSBD997
|
|
00065 LINKAGE SECTION. DTSBD997
|
|
00066 SKIP3 DTSBD997
|
|
00067 01 PARM-AREA. DTSBD997
|
|
00068 05 PARM-LENGTH PIC S9(04) COMP. DTSBD997
|
|
00069 05 PARM-REC-TYPE PIC X(03). DTSBD997
|
|
00070 EJECT DTSBD997
|
|
00071 PROCEDURE DIVISION USING PARM-AREA. DTSBD997
|
|
00072 SKIP3 DTSBD997
|
|
00073 OPEN INPUT IN-FILE. DTSBD997
|
|
00074 OPEN OUTPUT OUT-FILE. DTSBD997
|
|
00075 DTSBD997
|
|
00076 IF PARM-LENGTH = +3 DTSBD997
|
|
00077 NEXT SENTENCE DTSBD997
|
|
00078 ELSE DTSBD997
|
|
00079 MOVE 'PARM-LENGTH NOT EQUAL TO 3' DTSBD997
|
|
00080 TO ABEND-MSG DTSBD997
|
|
00081 PERFORM S999-ABEND THRU S999-EXIT. DTSBD997
|
|
00082 DTSBD997
|
|
00083 IF PARM-REC-TYPE = 'COB' OR 'ASM' OR 'OTH' DTSBD997
|
|
00084 NEXT SENTENCE DTSBD997
|
|
00085 ELSE DTSBD997
|
|
00086 MOVE 'PARM-REC-TYPE NOT EQUAL TO COB, ASM, OR OTH' DTSBD997
|
|
00087 TO ABEND-MSG DTSBD997
|
|
00088 PERFORM S999-ABEND THRU S999-EXIT. DTSBD997
|
|
00089 DTSBD997
|
|
00090 MOVE +0 TO REC-COUNT. DTSBD997
|
|
00091 DTSBD997
|
|
00092 MOVE 'N' TO IN-EOF-IND. DTSBD997
|
|
00093 DTSBD997
|
|
00094 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBD997
|
|
00095 UNTIL IN-EOF-IND = 'Y'. DTSBD997
|
|
00096 DTSBD997
|
|
00097 DISPLAY PARM-REC-TYPE ' RECORD TYPE PROCESSED'. DTSBD997
|
|
00098 DTSBD997
|
|
00099 DISPLAY REC-COUNT ' RECORDS PROCESSED'. DTSBD997
|
|
00100 DTSBD997
|
|
00101 CLOSE IN-FILE DTSBD997
|
|
00102 OUT-FILE. DTSBD997
|
|
00103 SKIP2 DTSBD997
|
|
00104 GOBACK. DTSBD997
|
|
00105 EJECT DTSBD997
|
|
00106 P0000-PROCESS. DTSBD997
|
|
00107 READ IN-FILE DTSBD997
|
|
00108 AT END DTSBD997
|
|
00109 MOVE 'Y' TO IN-EOF-IND DTSBD997
|
|
00110 GO TO P0000-EXIT. DTSBD997
|
|
00111 DTSBD997
|
|
00112 ADD +1 TO REC-COUNT. DTSBD997
|
|
00113 DTSBD997
|
|
00114 IF IN-REC (1:13) = 'MEMBER NAME ' DTSBD997
|
|
00115 NEXT SENTENCE DTSBD997
|
|
00116 ELSE DTSBD997
|
|
00117 IF PARM-REC-TYPE = 'COB' DTSBD997
|
|
00118 MOVE SPACES TO IN-REC (1:6) DTSBD997
|
|
00119 MOVE SPACES TO IN-REC (73:8) DTSBD997
|
|
00120 ELSE DTSBD997
|
|
00121 IF PARM-REC-TYPE = 'ASM' DTSBD997
|
|
00122 MOVE SPACES TO IN-REC (73:8). DTSBD997
|
|
00123 DTSBD997
|
|
00124 MOVE IN-REC TO OUT-REC. DTSBD997
|
|
00125 DTSBD997
|
|
00126 WRITE OUT-REC. DTSBD997
|
|
00127 P0000-EXIT. DTSBD997
|
|
00128 EXIT. DTSBD997
|
|
00129 EJECT DTSBD997
|
|
00130 S999-ABEND. DTSBD997
|
|
00131 DISPLAY ABEND-MSG. DTSBD997
|
|
00132 CALL 'DTSBU999' USING ABEND-CD. CL**2
|
|
00133 S999-EXIT. DTSBD997
|
|
00134 EXIT. DTSBD997
|