giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

CICS/DTSCS13.cob

Browse Source
This commit is contained in:
faizana
2025-09-04 08:56:50 -04:00
parent 3d0b3b793e
commit 7ca284b0f7
8 changed files with 8334 additions and 8350 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Copybook/DTSIS13.cpy
View File

@ -1,6 +1,6 @@
00001 ***** 09/13/12
00001 ***** 05/11/17
00002 * DTSIS13
00003 * DTSIS13 TAX ADDRESS INQUIRY/UPDATE SEND/RECEIVE AREA. LV012
00003 * DTSIS13 TAX ADDRESS INQUIRY/UPDATE SEND/RECEIVE AREA. LV003
00004 * DTSIS13
00005 ***** DTSIS13
00006 SKIP1 DTSIS13
@ -126,15 +126,15 @@
00126 25 MAP-PHONE-EXT-A PIC X(01). DTSIS13
00127 25 MAP-PHONE-EXT PIC X(05). DTSIS13
00128 SKIP1 DTSIS13
00129 15 MAP-EMAIL-AREA. DTSIS13
00130 20 MAP-EMAIL-L PIC S9(04) COMP. DTSIS13
00131 20 MAP-EMAIL-A PIC X(01). DTSIS13
00132 20 MAP-EMAIL PIC X(40). DTSIS13
00129 15 MAP-EMAIL-AREA. CL**3
00130 20 MAP-EMAIL-L PIC S9(04) COMP. CL**3
00131 20 MAP-EMAIL-A PIC X(01). CL**3
00132 20 MAP-EMAIL PIC X(40). CL**3
00133 SKIP1 DTSIS13
00134 15 MAP-EMAIL-UC30-AREA. DTSIS13
00135 20 MAP-EMAIL-UC30-L PIC S9(04) COMP. DTSIS13
00136 20 MAP-EMAIL-UC30-A PIC X(01). DTSIS13
00137 20 MAP-EMAIL-UC30 PIC X(01). DTSIS13
00134 * 15 MAP-EMAIL-UC30-AREA. CL**3
00135 * 20 MAP-EMAIL-UC30-L PIC S9(04) COMP. CL**3
00136 * 20 MAP-EMAIL-UC30-A PIC X(01). CL**3
00137 * 20 MAP-EMAIL-UC30 PIC X(01). CL**3
00138 SKIP1 DTSIS13
00139 15 MAP-MEMO-AREA. DTSIS13
00140 20 MAP-MEMO-L PIC S9(04) COMP. DTSIS13