DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
135
Batch/DTSBD997.cob
Normal file
135
Batch/DTSBD997.cob
Normal file
@ -0,0 +1,135 @@
|
||||
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
|
||||
Reference in New Issue
Block a user