giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
42a3da46ab1a7bd4c48cb25d4d4073a83ce34294
DUTAS/Copybook/DTSIS32.cpy
Neeraj Kumar ca3572c5df DUTAS re-platformed to Raincode - Initial Source Code
2025-07-21 11:20:11 -04:00

152 lines
12 KiB
COBOL
Raw Blame History

00001 ***** 12/21/98
00002 * DTSIS32
00003 * DTSIS32 ALTERNATE QUARTER INQUIRY SEND/RECEIVE AREA. LV002
00004 * DTSIS32
00005 ***** DTSIS32
00006 10 FILLER PIC X(12). DTSIS32
00007 DTSIS32
00008 10 MAP-SCR-TYPE-AREA. DTSIS32
00009 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS32
00010 15 MAP-SCR-TYPE-A PIC X(01). DTSIS32
00011 15 MAP-SCR-TYPE PIC X(02). DTSIS32
00012 DTSIS32
00013 10 MAP-CICS-REGION-NAME-AREA. DTSIS32
00014 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS32
00015 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS32
00016 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS32
00017 DTSIS32
00018 10 MAP-SYS-DATE-AREA. DTSIS32
00019 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS32
00020 15 MAP-SYS-DATE-A PIC X(01). DTSIS32
00021 15 MAP-SYS-DATE PIC X(08). DTSIS32
00022 DTSIS32
00023 10 MAP-EMP-NO-AREA. DTSIS32
00024 15 F320210. DTSIS32
00025 20 MAP-EMP-NO-1-L PIC S9(04) COMP. DTSIS32
00026 20 MAP-EMP-NO-1-A PIC X(01). DTSIS32
00027 20 MAP-EMP-NO-1 PIC X(03). DTSIS32
00028 15 F320214. DTSIS32
00029 20 MAP-EMP-NO-2-L PIC S9(04) COMP. DTSIS32
00030 20 MAP-EMP-NO-2-A PIC X(01). DTSIS32
00031 20 MAP-EMP-NO-2 PIC X(03). DTSIS32
00032 DTSIS32
00033 10 MAP-YRQ-AREA. DTSIS32
00034 15 MAP-YRQ-YR-L PIC S9(04) COMP. DTSIS32
00035 15 MAP-YRQ-YR-A PIC X(01). DTSIS32
00036 15 MAP-YRQ-YR PIC X(02). DTSIS32
00037 15 MAP-YRQ-Q-L PIC S9(04) COMP. DTSIS32
00038 15 MAP-YRQ-Q-A PIC X(01). DTSIS32
00039 15 MAP-YRQ-Q PIC X(01). DTSIS32
00040 DTSIS32
00041 10 F320236. DTSIS32
00042 15 MAP-COMBINE-IND-L PIC S9(04) COMP. DTSIS32
00043 15 MAP-COMBINE-IND-A PIC X(01). DTSIS32
00044 15 MAP-COMBINE-IND PIC X(01). DTSIS32
00045 88 MAP-COMBINE-YES-88 VALUE 'Y'. DTSIS32
00046 88 MAP-COMBINE-NO-88 VALUE 'N'. DTSIS32
00047 88 MAP-COMBINE-VALID-88 VALUE 'Y' 'N'. DTSIS32
00048 DTSIS32
00049 10 MAP-COMP-DATE-AREA. DTSIS32
00050 15 MAP-COMP-MO-L PIC S9(04) COMP. DTSIS32
00051 15 MAP-COMP-MO-A PIC X(01). DTSIS32
00052 15 MAP-COMP-MO PIC X(02). DTSIS32
00053 DTSIS32
00054 15 MAP-COMP-DA-L PIC S9(04) COMP. DTSIS32
00055 15 MAP-COMP-DA-A PIC X(01). DTSIS32
00056 15 MAP-COMP-DA PIC X(02). DTSIS32
00057 DTSIS32
00058 15 MAP-COMP-YR-L PIC S9(04) COMP. DTSIS32
00059 15 MAP-COMP-YR-A PIC X(01). DTSIS32
00060 15 MAP-COMP-YR PIC X(02). DTSIS32
00061 DTSIS32
00062 10 F320259. DTSIS32
00063 15 MAP-PRIMARY-NAME-L PIC S9(04) COMP. CL**2
00064 15 MAP-PRIMARY-NAME-A PIC X(01). CL**2
00065 15 MAP-PRIMARY-NAME PIC X(10). CL**2
00066 DTSIS32
00067 10 MAP-SYS-TIME-AREA. DTSIS32
00068 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS32
00069 15 MAP-SYS-TIME-A PIC X(01). DTSIS32
00070 15 MAP-SYS-TIME PIC X(08). DTSIS32
00071 DTSIS32
00072 DTSIS32
00073 10 MAP-YYQ-UIR-TABLE OCCURS 5 TIMES. DTSIS32
00074 15 MAP-YYQ-L PIC S9(04) COMP. DTSIS32
00075 15 MAP-YYQ-A PIC X(01). DTSIS32
00076 15 MAP-YYQ PIC X(04). DTSIS32
00077 DTSIS32
00078 15 MAP-UI-RATE-L PIC S9(04) COMP. DTSIS32
00079 15 MAP-UI-RATE-A PIC X(01). DTSIS32
00080 15 MAP-UI-RATE PIC X(05) DTSIS32
00081 JUST RIGHT. DTSIS32
00082 DTSIS32
00083 10 MAP-AMT-TABLE OCCURS 18 TIMES. DTSIS32
00084 15 MAP-AMT-LINE-L PIC S9(04) COMP. DTSIS32
00085 15 MAP-AMT-LINE-A PIC X(01). DTSIS32
00086 15 MAP-AMT-LINE PIC X(70). DTSIS32
00087 DTSIS32
00088 15 FILLER REDEFINES MAP-AMT-LINE. DTSIS32
00089 20 MAP-LINE-AMT-1-Z PIC ZZ,ZZZ,ZZ9.99. DTSIS32
00090 20 FILLER PIC X(01). DTSIS32
00091 20 MAP-LINE-AMT-2-Z PIC ZZ,ZZZ,ZZ9.99. DTSIS32
00092 20 FILLER PIC X(01). DTSIS32
00093 20 MAP-LINE-AMT-3-Z PIC ZZ,ZZZ,ZZ9.99. DTSIS32
00094 20 FILLER PIC X(01). DTSIS32
00095 20 MAP-LINE-AMT-4-Z PIC ZZ,ZZZ,ZZ9.99. DTSIS32
00096 20 FILLER PIC X(01). DTSIS32
00097 20 MAP-LINE-AMT-5-Z PIC ZZZ,ZZZ,ZZ9.99.DTSIS32
00098 DTSIS32
00099 15 FILLER REDEFINES MAP-AMT-LINE. DTSIS32
00100 20 MAP-LINE-AMT-TABLE OCCURS 4 TIMES. DTSIS32
00101 25 MAP-LINE-AMT-Z PIC ZZ,ZZZ,ZZ9.99. DTSIS32
00102 25 FILLER PIC X(01). DTSIS32
00103 DTSIS32
00104 20 MAP-AMT-TTL. DTSIS32
00105 25 MAP-LINE-TOT-Z PIC ZZZ,ZZZ,ZZ9.99.DTSIS32
00106 DTSIS32
00107 DTSIS32
00108 10 MAP-DOC-NO-TABLE OCCURS 5 TIMES. DTSIS32
00109 15 MAP-BATCH-NO-L PIC S9(04) COMP. DTSIS32
00110 15 MAP-BATCH-NO-A PIC X(01). DTSIS32
00111 15 MAP-BATCH-NO-Z PIC 9(05). DTSIS32
00112 DTSIS32
00113 15 MAP-ITEM-NO-L PIC S9(04) COMP. DTSIS32
00114 15 MAP-ITEM-NO-A PIC X(01). DTSIS32
00115 15 MAP-ITEM-NO-Z PIC 9(03). DTSIS32
00116 DTSIS32
00117 10 F322301. DTSIS32
00118 15 MAP-KEY-FIRST-L PIC S9(04) COMP. DTSIS32
00119 15 MAP-KEY-FIRST-A PIC X(01). DTSIS32
00120 15 MAP-KEY-FIRST PIC X(07). DTSIS32
00121 DTSIS32
00122 10 F322309. DTSIS32
00123 15 MAP-KEY-LAST-L PIC S9(04) COMP. DTSIS32
00124 15 MAP-KEY-LAST-A PIC X(01). DTSIS32
00125 15 MAP-KEY-LAST PIC X(07). DTSIS32
00126 DTSIS32
00127 10 F322317. DTSIS32
00128 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS32
00129 15 MAP-KEY-BACK-A PIC X(01). DTSIS32
00130 15 MAP-KEY-BACK PIC X(07). DTSIS32
00131 DTSIS32
00132 10 F322325. DTSIS32
00133 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS32
00134 15 MAP-KEY-FWRD-A PIC X(01). DTSIS32
00135 15 MAP-KEY-FWRD PIC X(07). DTSIS32
00136 DTSIS32
00137 10 MAP-MSG-AREA. DTSIS32
00138 15 MAP-MSG-ID-AREA. DTSIS32
00139 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS32
00140 20 MAP-MSG-ID-A PIC X(01). DTSIS32
00141 20 MAP-MSG-ID PIC X(08). DTSIS32
00142 DTSIS32
00143 15 MAP-MSG-TEXT-AREA. DTSIS32
00144 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS32
00145 20 MAP-MSG-TEXT-A PIC X(01). DTSIS32
00146 20 MAP-MSG-TEXT PIC X(58). DTSIS32
00147 DTSIS32
00148 10 MAP-GOTO-AREA. DTSIS32
00149 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS32
00150 15 MAP-GOTO-A PIC X(01). DTSIS32
00151 15 MAP-GOTO PIC X(02). DTSIS32
Reference in New Issue View Git Blame Copy Permalink