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

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Copybook/DTSIR608.cpy Normal file
View File

@ -0,0 +1,23 @@
00001 ***** 04/13/00
00002 * DTSIR608
00003 * DTSIR608 AUDIT SURVEY CARDS REPORT RECORDS. LV003
00004 * DTSIR608
00005 * 10/16/1999 MODIFIED FOR DC. EHH CL**2
00006 * CL**2
00007 ***** DTSIR608
00008 CL**2
00009 10 R608-LENGTH PIC S9(04) COMP. CL**2
00010 CL**2
00011 10 R608-SORT-AREA. DTSIR608
00012 15 R608-REC-TYPE PIC X(03) VALUE '608'. DTSIR608
00013 15 R608-OP-ID PIC X(08). DTSIR608
00014 15 R608-EMP-NO PIC S9(07) COMP-3. DTSIR608
00015 CL**2
00016 10 R608-DATA-AREA. DTSIR608
00017 15 R608-FIELD-REP-ID PIC X(02). DTSIR608
00018 15 R608-FMT-ADDR. DTSIR608
00019 20 R608-FMT-LINE OCCURS 5 TIMES DTSIR608
00020 INDEXED BY R608-FMT-IDX DTSIR608
00021 PIC X(40). DTSIR608
00022 15 R608-ZIP PIC X(10). DTSIR608
00023 15 R608-ADVANCED-BARCODE PIC X(14). CL**2