20 lines
1.5 KiB
COBOL
20 lines
1.5 KiB
COBOL
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
|