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

150 lines
12 KiB
COBOL
Raw Blame History

00001 ***** 07/17/03
00002 * DTSIS37
00003 * DTSIS37 ELECTRONIC PAYMENT INQUIRY SEND/RECEIVE AREA LV001
00004 * DTSIS37
00005 ***** DTSIS37
00006 DTSIS37
00007 10 FILLER PIC X(12). DTSIS37
00008 DTSIS37
00009 10 MAP-SCR-TYPE-AREA. DTSIS37
00010 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS37
00011 15 MAP-SCR-TYPE-A PIC X(01). DTSIS37
00012 15 MAP-SCR-TYPE PIC X(02). DTSIS37
00013 DTSIS37
00014 10 MAP-CICS-REGION-NAME-AREA. DTSIS37
00015 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS37
00016 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS37
00017 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS37
00018 DTSIS37
00019 10 MAP-SYS-DATE-AREA. DTSIS37
00020 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS37
00021 15 MAP-SYS-DATE-A PIC X(01). DTSIS37
00022 15 MAP-SYS-DATE PIC X(08). DTSIS37
00023 DTSIS37
00024 10 MAP-SYS-TIME-AREA. DTSIS37
00025 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS37
00026 15 MAP-SYS-TIME-A PIC X(01). DTSIS37
00027 15 MAP-SYS-TIME PIC X(08). DTSIS37
00028 DTSIS37
00029 10 MAP-SEARCH-TRACE-NO-AREA. DTSIS37
00030 15 MAP-SRCH-TRACE-NO-L PIC S9(04) COMP. DTSIS37
00031 15 MAP-SRCH-TRACE-NO-A PIC X(01). DTSIS37
00032 15 MAP-SRCH-TRACE-NO PIC X(13). DTSIS37
00033 DTSIS37
00034 10 F370372. DTSIS37
00035 15 MAP-CURR-PAGE-L PIC S9(04) COMP. DTSIS37
00036 15 MAP-CURR-PAGE-A PIC X(01). DTSIS37
00037 15 MAP-CURR-PAGE PIC Z9. DTSIS37
00038 DTSIS37
00039 10 F370378. DTSIS37
00040 15 MAP-LAST-PAGE-L PIC S9(04) COMP. DTSIS37
00041 15 MAP-LAST-PAGE-A PIC X(01). DTSIS37
00042 15 MAP-LAST-PAGE PIC Z9. DTSIS37
00043 DTSIS37
00044 10 MAP-SEARCH-EMP-NO-AREA. DTSIS37
00045 15 F370211. DTSIS37
00046 20 MAP-SRCH-EMP-NO-1-L PIC S9(04) COMP. DTSIS37
00047 20 MAP-SRCH-EMP-NO-1-A PIC X(01). DTSIS37
00048 20 MAP-SRCH-EMP-NO-1 PIC X(03). DTSIS37
00049 15 F370215. DTSIS37
00050 20 MAP-SRCH-EMP-NO-2-L PIC S9(04) COMP. DTSIS37
00051 20 MAP-SRCH-EMP-NO-2-A PIC X(01). DTSIS37
00052 20 MAP-SRCH-EMP-NO-2 PIC X(03). DTSIS37
00053 DTSIS37
00054 10 MAP-SEARCH-DATE1-AREA. DTSIS37
00055 15 MAP-SRCH-DATE1-MO-AREA. DTSIS37
00056 20 MAP-SRCH-DATE1-MO-L PIC S9(04) COMP. DTSIS37
00057 20 MAP-SRCH-DATE1-MO-A PIC X(01). DTSIS37
00058 20 MAP-SRCH-DATE1-MO PIC X(02). DTSIS37
00059 15 MAP-SRCH-DATE1-DA-AREA. DTSIS37
00060 20 MAP-SRCH-DATE1-DA-L PIC S9(04) COMP. DTSIS37
00061 20 MAP-SRCH-DATE1-DA-A PIC X(01). DTSIS37
00062 20 MAP-SRCH-DATE1-DA PIC X(02). DTSIS37
00063 15 MAP-SRCH-DATE1-YR-AREA. DTSIS37
00064 20 MAP-SRCH-DATE1-YR-L PIC S9(04) COMP. DTSIS37
00065 20 MAP-SRCH-DATE1-YR-A PIC X(01). DTSIS37
00066 20 MAP-SRCH-DATE1-YR PIC X(02). DTSIS37
00067 DTSIS37
00068 10 MAP-SEARCH-DATE2-AREA. DTSIS37
00069 15 MAP-SRCH-DATE2-MO-AREA. DTSIS37
00070 20 MAP-SRCH-DATE2-MO-L PIC S9(04) COMP. DTSIS37
00071 20 MAP-SRCH-DATE2-MO-A PIC X(01). DTSIS37
00072 20 MAP-SRCH-DATE2-MO PIC X(02). DTSIS37
00073 15 MAP-SRCH-DATE2-DA-AREA. DTSIS37
00074 20 MAP-SRCH-DATE2-DA-L PIC S9(04) COMP. DTSIS37
00075 20 MAP-SRCH-DATE2-DA-A PIC X(01). DTSIS37
00076 20 MAP-SRCH-DATE2-DA PIC X(02). DTSIS37
00077 15 MAP-SRCH-DATE2-YR-AREA. DTSIS37
00078 20 MAP-SRCH-DATE2-YR-L PIC S9(04) COMP. DTSIS37
00079 20 MAP-SRCH-DATE2-YR-A PIC X(01). DTSIS37
00080 20 MAP-SRCH-DATE2-YR PIC X(02). DTSIS37
00081 DTSIS37
00082 10 MAP-LINE-AREA OCCURS 15 TIMES. DTSIS37
00083 15 MAP-LINE-L PIC S9(04) COMP. DTSIS37
00084 15 MAP-LINE-A PIC X(01). DTSIS37
00085 15 MAP-LINE PIC X(79). DTSIS37
00086 15 FILLER REDEFINES MAP-LINE. DTSIS37
00087 20 MAP-EMP-NO PIC X(07). DTSIS37
00088 20 FILLER REDEFINES MAP-EMP-NO. DTSIS37
00089 25 MAP-EMP-NO-1 PIC 9(03). DTSIS37
00090 25 FILLER PIC X(01). DTSIS37
00091 25 MAP-EMP-NO-2 PIC 9(03). DTSIS37
00092 20 FILLER PIC X(02). DTSIS37
00093 20 MAP-PAY-TYPE PIC X(02). DTSIS37
00094 20 FILLER PIC X(03). DTSIS37
00095 20 MAP-DOC-NO. DTSIS37
00096 25 MAP-BATCH-NO PIC 9(05). DTSIS37
00097 25 FILLER PIC X(01). DTSIS37
00098 25 MAP-ITEM-NO PIC 9(03). DTSIS37
00099 20 FILLER PIC X(03). DTSIS37
00100 20 MAP-RECEIVED-DATE PIC X(10). DTSIS37
00101 20 FILLER PIC X(02). DTSIS37
00102 20 MAP-PROCESSED-DATE PIC X(10). DTSIS37
00103 20 FILLER PIC X(02). DTSIS37
00104 20 MAP-TRACE-NO PIC X(13). DTSIS37
00105 20 FILLER PIC X(02). DTSIS37
00106 20 MAP-AMT PIC X(14). DTSIS37
00107 20 FILLER REDEFINES MAP-AMT. DTSIS37
00108 25 MAP-AMT-Z PIC ------,--9.99. DTSIS37
00109 25 FILLER PIC X(01). DTSIS37
00110 DTSIS37
00111 10 F372308. DTSIS37
00112 15 MAP-KEY-FIRST-L PIC S9(04) COMP. DTSIS37
00113 15 MAP-KEY-FIRST-A PIC X(01). DTSIS37
00114 15 MAP-KEY-FIRST PIC X(08). DTSIS37
00115 DTSIS37
00116 10 F372318. DTSIS37
00117 15 MAP-KEY-LAST-L PIC S9(04) COMP. DTSIS37
00118 15 MAP-KEY-LAST-A PIC X(01). DTSIS37
00119 15 MAP-KEY-LAST PIC X(07). DTSIS37
00120 DTSIS37
00121 10 F372327. DTSIS37
00122 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS37
00123 15 MAP-KEY-BACK-A PIC X(01). DTSIS37
00124 15 MAP-KEY-BACK PIC X(07). DTSIS37
00125 DTSIS37
00126 10 F372336. DTSIS37
00127 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS37
00128 15 MAP-KEY-FWRD-A PIC X(01). DTSIS37
00129 15 MAP-KEY-FWRD PIC X(07). DTSIS37
00130 DTSIS37
00131 10 F372344. DTSIS37
00132 15 MAP-KEY-RESET-L PIC S9(04) COMP. DTSIS37
00133 15 MAP-KEY-RESET-A PIC X(01). DTSIS37
00134 15 MAP-KEY-RESET PIC X(20). DTSIS37
00135 DTSIS37
00136 10 MAP-MSG-AREA. DTSIS37
00137 15 MAP-MSG-ID-AREA. DTSIS37
00138 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS37
00139 20 MAP-MSG-ID-A PIC X(01). DTSIS37
00140 20 MAP-MSG-ID PIC X(08). DTSIS37
00141 15 MAP-MSG-TEXT-AREA. DTSIS37
00142 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS37
00143 20 MAP-MSG-TEXT-A PIC X(01). DTSIS37
00144 20 MAP-MSG-TEXT PIC X(58). DTSIS37
00145 DTSIS37
00146 10 MAP-GOTO-AREA. DTSIS37
00147 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS37
00148 15 MAP-GOTO-A PIC X(01). DTSIS37
00149 15 MAP-GOTO PIC X(02). DTSIS37
Reference in New Issue View Git Blame Copy Permalink