DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
24
Copybook/DTSIR909.cpy
Normal file
24
Copybook/DTSIR909.cpy
Normal file
@ -0,0 +1,24 @@
|
||||
00001 ***** 03/14/01
|
||||
00002 * DTSIR909
|
||||
00003 * DTSIR909 LETTER TO EMPLOYERS LV002
|
||||
00004 * DTSIR909
|
||||
00005 * 11/07/2000 CREATED FOR DC. ZL1 DTSIR909
|
||||
00006 * DTSIR909
|
||||
00007 ***** DTSIR909
|
||||
00008 DTSIR909
|
||||
00009 10 R909-LENGTH PIC S9(04) COMP. DTSIR909
|
||||
00010 DTSIR909
|
||||
00011 10 R909-SORT-AREA. DTSIR909
|
||||
00012 15 R909-REC-TYPE PIC X(03) VALUE '909'. CL**2
|
||||
00013 15 R909-OP-ID PIC X(08). DTSIR909
|
||||
00014 15 R909-EMP-NO PIC S9(07) COMP-3. DTSIR909
|
||||
00015 DTSIR909
|
||||
00016 10 R909-DATA-AREA. DTSIR909
|
||||
00017 15 R909-FIELD-REP-ID PIC X(02). DTSIR909
|
||||
00018 15 R909-FEIN PIC X(09). DTSIR909
|
||||
00019 15 R909-FMT-ADDR. DTSIR909
|
||||
00020 20 R909-FMT-LINE OCCURS 5 TIMES DTSIR909
|
||||
00021 INDEXED BY R909-FMT-IDX DTSIR909
|
||||
00022 PIC X(40). DTSIR909
|
||||
00023 15 R909-ZIP PIC X(10). DTSIR909
|
||||
00024 15 R909-ADVANCED-BARCODE PIC X(14). DTSIR909
|
||||
Reference in New Issue
Block a user