DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
19
Copybook/DTSIR711.cpy
Normal file
19
Copybook/DTSIR711.cpy
Normal file
@ -0,0 +1,19 @@
|
||||
00001 ***** 09/14/05
|
||||
00002 * MODIFIED FOR DC 09/09/05 - ZL1. DTSIR711
|
||||
00003 * LV001
|
||||
00004 * DTSIR711 PRINT FUTA CERTFICATION OVERNIGHT. DTSIR711
|
||||
00005 * DTSIR711
|
||||
00006 ***** DTSIR711
|
||||
00007 SKIP1 DTSIR711
|
||||
00008 10 R711-LENGTH PIC S9(04) COMP. DTSIR711
|
||||
00009 SKIP1 DTSIR711
|
||||
00010 10 R711-SORT-AREA. DTSIR711
|
||||
00011 15 R711-REC-TYPE PIC X(03). DTSIR711
|
||||
00012 15 R711-EMP-NO PIC S9(07) COMP-3. DTSIR711
|
||||
00013 SKIP1 DTSIR711
|
||||
00014 10 R711-DATA-AREA. DTSIR711
|
||||
00015 15 R711-PRINT-LINE OCCURS 30 TIMES DTSIR711
|
||||
00016 PIC X(132). DTSIR711
|
||||
00017 DTSIR711
|
||||
00018 SKIP1 DTSIR711
|
||||
00019 DTSIR711
|
||||
Reference in New Issue
Block a user