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