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

151 lines
12 KiB
COBOL
Raw Blame History

00001 ***** 02/27/04
00002 * DTSSIS68 DELINQUENT EMPLOYER BY ZIP CODE SEARCH DTSIS68
00003 * SEND/RECEIVE AREA LV007
00004 * DTSIS68
00005 * THIS IS WAS RECONSTRUCTED FROM DTSM68, ANY ERRORS DTSIS68
00006 * PLEASE VERIFY COPYBOOK WITH SCREEN. 2/28/04 ZL1 DTSIS68
00007 ***** DTSIS68
00008 10 FILLER PIC X(12). DTSIS68
00009 DTSIS68
00010 10 MAP-SCR-TYPE-AREA. DTSIS68
00011 15 MAP-SCR-TYPE-L PIC S9(04) COMP. DTSIS68
00012 15 MAP-SCR-TYPE-A PIC X(01). DTSIS68
00013 15 MAP-SCR-TYPE PIC X(02). DTSIS68
00014 DTSIS68
00015 10 MAP-CICS-REGION-NAME-AREA. DTSIS68
00016 15 MAP-CICS-REGION-NAME-L PIC S9(04) COMP. DTSIS68
00017 15 MAP-CICS-REGION-NAME-A PIC X(01). DTSIS68
00018 15 MAP-CICS-REGION-NAME PIC X(08). DTSIS68
00019 DTSIS68
00020 10 MAP-SYS-DATE-AREA. DTSIS68
00021 15 MAP-SYS-DATE-L PIC S9(04) COMP. DTSIS68
00022 15 MAP-SYS-DATE-A PIC X(01). DTSIS68
00023 15 MAP-SYS-DATE PIC X(08). DTSIS68
00024 DTSIS68
00025 10 MAP-SYS-TIME-AREA. DTSIS68
00026 15 MAP-SYS-TIME-L PIC S9(04) COMP. DTSIS68
00027 15 MAP-SYS-TIME-A PIC X(01). DTSIS68
00028 15 MAP-SYS-TIME PIC X(08). DTSIS68
00029 DTSIS68
00030 10 F680322. DTSIS68
00031 15 MAP-FLD-ZIP-L PIC S9(04) COMP. DTSIS68
00032 15 MAP-FLD-ZIP-A PIC X(01). DTSIS68
00033 15 MAP-FLD-ZIP PIC X(05). DTSIS68
00034 DTSIS68
00035 10 F680350. DTSIS68
00036 15 MAP-FLD-REP-ID-L PIC S9(04) COMP. DTSIS68
00037 15 MAP-FLD-REP-ID-A PIC X(01). DTSIS68
00038 15 MAP-FLD-REP-ID PIC X(02). DTSIS68
00039 DTSIS68
00040 10 F680353. DTSIS68
00041 15 MAP-FLD-REP-ID-DSCR-L PIC S9(04) COMP. DTSIS68
00042 15 MAP-FLD-REP-ID-DSCR-A PIC X(01). DTSIS68
00043 15 MAP-FLD-REP-ID-DSCR PIC X(10). DTSIS68
00044 DTSIS68
00045 10 F680422. DTSIS68
00046 15 MAP-ACTIVE-IND-L PIC S9(04) COMP. DTSIS68
00047 15 MAP-ACTIVE-IND-A PIC X(01). DTSIS68
00048 15 MAP-ACTIVE-IND PIC X(01). DTSIS68
00049 88 MAP-ACTIVE-IND-YES VALUE 'Y'. DTSIS68
00050 88 MAP-ACTIVE-IND-NO VALUE 'N'. DTSIS68
00051 88 MAP-ACTIVE-IND-VALID VALUE 'Y' 'N'. DTSIS68
00052 DTSIS68
00053 10 F680435. DTSIS68
00054 15 MAP-SUSPEND-IND-L PIC S9(04) COMP. DTSIS68
00055 15 MAP-SUSPEND-IND-A PIC X(01). DTSIS68
00056 15 MAP-SUSPEND-IND PIC X(01). DTSIS68
00057 88 MAP-SUSPEND-IND-YES VALUE 'Y'. DTSIS68
00058 88 MAP-SUSPEND-IND-NO VALUE 'N'. DTSIS68
00059 88 MAP-SUSPEND-IND-VALID VALUE 'Y' 'N'. DTSIS68
00060 DTSIS68
00061 10 F680450. DTSIS68
00062 15 MAP-BANKRUPT-IND-L PIC S9(04) COMP. DTSIS68
00063 15 MAP-BANKRUPT-IND-A PIC X(01). DTSIS68
00064 15 MAP-BANKRUPT-IND PIC X(01). DTSIS68
00065 88 MAP-BANKRUPT-IND-YES VALUE 'Y'. DTSIS68
00066 88 MAP-BANKRUPT-IND-NO VALUE 'N'. DTSIS68
00067 88 MAP-BANKRUPT-IND-VALID VALUE 'Y' 'N'. DTSIS68
00068 DTSIS68
00069 10 MAP-COMP-DATE-AREA. DTSIS68
00070 15 MAP-COMP-DATE-MO-L PIC S9(04) COMP. DTSIS68
00071 15 MAP-COMP-DATE-MO-A PIC X(01). DTSIS68
00072 15 MAP-COMP-DATE-MO PIC X(02). DTSIS68
00073 DTSIS68
00074 15 MAP-COMP-DATE-DA-L PIC S9(04) COMP. DTSIS68
00075 15 MAP-COMP-DATE-DA-A PIC X(01). DTSIS68
00076 15 MAP-COMP-DATE-DA PIC X(02). DTSIS68
00077 DTSIS68
00078 15 MAP-COMP-DATE-YR-L PIC S9(04) COMP. DTSIS68
00079 15 MAP-COMP-DATE-YR-A PIC X(01). DTSIS68
00080 15 MAP-COMP-DATE-YR PIC X(02). DTSIS68
00081 DTSIS68
00082 DTSIS68
00083 10 MAP-TABLE. DTSIS68
00084 DTSIS68
00085 13 MAP-LINE-AREA OCCURS 12 TIMES. DTSIS68
00086 15 MAP-LINE-L PIC S9(04) COMP. DTSIS68
00087 15 MAP-LINE-A PIC X(01). DTSIS68
00088 15 MAP-LINE-DATA PIC X(79). DTSIS68
00089 DTSIS68
00090 15 FILLER REDEFINES MAP-LINE-DATA. DTSIS68
00091 20 MAP-LINE-NO PIC Z9. DTSIS68
00092 20 FILLER PIC X(02). DTSIS68
00093 20 MAP-PRIMARY-NAME PIC X(26). DTSIS68
00094 20 FILLER PIC X(02). DTSIS68
00095 20 MAP-CITY PIC X(10). DTSIS68
00096 20 FILLER PIC X(01). DTSIS68
00097 20 MAP-STATE PIC X(02). DTSIS68
00098 20 FILLER PIC X(01). DTSIS68
00099 20 MAP-ZIP PIC X(05). DTSIS68
00100 20 FILLER PIC X(02). DTSIS68
00101 20 MAP-RPT-DUE-CNT PIC Z9. DTSIS68
00102 20 FILLER PIC X(01). DTSIS68
00103 20 MAP-TOT-BALANCE-AMT PIC ZZZZ,ZZ9.99. DTSIS68
00104 20 FILLER PIC X(02). DTSIS68
00105 20 MAP-FLD-ASSI PIC X(01). DTSIS68
00106 20 FILLER PIC X(02). DTSIS68
00107 20 MAP-EMP-NO PIC 999B999. DTSIS68
00108 DTSIS68
00109 10 MAP-SELECT-LINE-NO-AREA. DTSIS68
00110 15 MAP-SELECT-LINE-NO-L PIC S9(04) COMP. DTSIS68
00111 15 MAP-SELECT-LINE-NO-A PIC X(01). DTSIS68
00112 15 MAP-SELECT-LINE-NO PIC X(02). DTSIS68
00113 88 MAP-SELECT-LINE-NO-VALID VALUE '01' THRU '12'. DTSIS68
00114 15 MAP-SELECT-LINE-NO-N REDEFINES DTSIS68
00115 MAP-SELECT-LINE-NO PIC 9(02). DTSIS68
00116 DTSIS68
00117 10 F682136. DTSIS68
00118 15 MAP-SELECT-SCREEN-ID-L PIC S9(04) COMP. DTSIS68
00119 15 MAP-SELECT-SCREEN-ID-A PIC X(01). DTSIS68
00120 15 MAP-SELECT-SCREEN-ID PIC X(02). DTSIS68
00121 DTSIS68
00122 10 F682320. DTSIS68
00123 15 MAP-KEY-BACK-L PIC S9(04) COMP. DTSIS68
00124 15 MAP-KEY-BACK-A PIC X(01). DTSIS68
00125 15 MAP-KEY-BACK PIC X(07). DTSIS68
00126 DTSIS68
00127 10 F682329. DTSIS68
00128 15 MAP-KEY-FWRD-L PIC S9(04) COMP. DTSIS68
00129 15 MAP-KEY-FWRD-A PIC X(01). DTSIS68
00130 15 MAP-KEY-FWRD PIC X(07). DTSIS68
00131 DTSIS68
00132 10 F682356. DTSIS68
00133 15 MAP-KEY-NEW-SEARCH-L PIC S9(04) COMP. DTSIS68
00134 15 MAP-KEY-NEW-SEARCH-A PIC X(01). DTSIS68
00135 15 MAP-KEY-NEW-SEARCH PIC X(20). DTSIS68
00136 DTSIS68
00137 10 MAP-MSG-AREA. DTSIS68
00138 15 MAP-MSG-ID-AREA. DTSIS68
00139 20 MAP-MSG-ID-L PIC S9(04) COMP. DTSIS68
00140 20 MAP-MSG-ID-A PIC X(01). DTSIS68
00141 20 MAP-MSG-ID PIC X(08). DTSIS68
00142 15 MAP-MSG-TEXT-AREA. DTSIS68
00143 20 MAP-MSG-TEXT-L PIC S9(04) COMP. DTSIS68
00144 20 MAP-MSG-TEXT-A PIC X(01). DTSIS68
00145 20 MAP-MSG-TEXT PIC X(58). DTSIS68
00146 DTSIS68
00147 10 MAP-GOTO-AREA. DTSIS68
00148 15 MAP-GOTO-L PIC S9(04) COMP. DTSIS68
00149 15 MAP-GOTO-A PIC X(01). DTSIS68
00150 15 MAP-GOTO PIC X(02). DTSIS68
Reference in New Issue View Git Blame Copy Permalink