DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
24
Copybook/DTSIR762.cpy
Normal file
24
Copybook/DTSIR762.cpy
Normal file
@ -0,0 +1,24 @@
|
||||
00001 ***** 03/03/99
|
||||
00002 * 03/02/99 MODIFIED FOR DC - D.SHEPPERSON DTSIR762
|
||||
00003 * LV002
|
||||
00004 * DTSIR762 JOB SERVICE LOCAL OFFICE EMPLOYER EXTRACT CL**2
|
||||
00005 * REPORT RECORD. DTSIR762
|
||||
00006 * DTSIR762
|
||||
00007 ***** DTSIR762
|
||||
00008 DTSIR762
|
||||
00009 10 R762-LENGTH PIC S9(04) COMP. DTSIR762
|
||||
00010 DTSIR762
|
||||
00011 10 R762-SORT-AREA. DTSIR762
|
||||
00012 15 R762-REC-TYPE PIC X(03) VALUE '762'. DTSIR762
|
||||
00013 15 R762-ZIP PIC X(10). DTSIR762
|
||||
00014 15 R762-PRIMARY-NAME PIC X(40). CL**2
|
||||
00015 DTSIR762
|
||||
00016 10 R762-DATA-AREA. DTSIR762
|
||||
00017 15 R762-CITY PIC X(25). DTSIR762
|
||||
00018 DTSIR762
|
||||
00019 15 R762-ST PIC X(02). DTSIR762
|
||||
00020 DTSIR762
|
||||
00021 15 R762-FMT-ADDR. DTSIR762
|
||||
00022 20 R762-FMT-LINE OCCURS 5 TIMES DTSIR762
|
||||
00023 INDEXED BY R762-FMT-IDX DTSIR762
|
||||
00024 PIC X(40). DTSIR762
|
||||
Reference in New Issue
Block a user