DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
36
Copybook/DTSIR461.cpy
Normal file
36
Copybook/DTSIR461.cpy
Normal file
@ -0,0 +1,36 @@
|
||||
00001 ***** 02/19/10
|
||||
00002 * DTSIR461
|
||||
00003 * DTSIR461 NEW ESTIMATED REPORT CANDIDATES REPORT AND LV001
|
||||
00004 * NOTICE OF INTENT TO ESTIMATED REPORT. DTSIR461
|
||||
00005 * 12/04/2099 COPIED FROM DTSIR412. ZL1 DTSIR461
|
||||
00006 * DTSIR461
|
||||
00007 ***** DTSIR461
|
||||
00008 DTSIR461
|
||||
00009 10 R461-LENGTH PIC S9(04) COMP. DTSIR461
|
||||
00010 DTSIR461
|
||||
00011 10 R461-SORT-AREA. DTSIR461
|
||||
00012 15 R461-REC-TYPE PIC X(03). DTSIR461
|
||||
00013 15 R461-ESTIMATE-GENERATED-IND DTSIR461
|
||||
00014 PIC X(01). DTSIR461
|
||||
00015 88 R461-ESTIMATE-GENERATED-YES-88 VALUE '1'. DTSIR461
|
||||
00016 88 R461-ESTIMATE-GENERATED-NO-88 VALUE '2'. DTSIR461
|
||||
00017 15 R461-FIELD-REP-ID PIC X(02). DTSIR461
|
||||
00018 15 R461-EMP-NO PIC S9(07) COMP-3. DTSIR461
|
||||
00019 15 R461-YRQ PIC S9(05) COMP-3. DTSIR461
|
||||
00020 DTSIR461
|
||||
00021 10 R461-DATA-AREA. DTSIR461
|
||||
00022 15 R461-EMP-CLASS PIC X(01). DTSIR461
|
||||
00023 88 R461-CLASS-RATED-88 VALUE 'R'. DTSIR461
|
||||
00024 88 R461-CLASS-SELF-INS-88 VALUE 'S'. DTSIR461
|
||||
00025 15 R461-MAIL-DATE PIC S9(09) COMP-3. DTSIR461
|
||||
00026 15 R461-RPT-DUE-DATE PIC S9(09) COMP-3. DTSIR461
|
||||
00027 15 R461-EST-TOTAL-WAGES PIC S9(11)V9(02) COMP-3. DTSIR461
|
||||
00028 15 R461-EST-TAXABLE-WAGES PIC S9(11)V9(02) COMP-3. DTSIR461
|
||||
00029 15 R461-UI-RATE PIC S9(01)V9(04) COMP-3. DTSIR461
|
||||
00030 15 R461-PRIMARY-NAME PIC X(40). DTSIR461
|
||||
00031 15 R461-FMT-ADDR. DTSIR461
|
||||
00032 20 R461-FMT-LINE OCCURS 5 TIMES DTSIR461
|
||||
00033 INDEXED BY R316-FMT-IDX DTSIR461
|
||||
00034 PIC X(40). DTSIR461
|
||||
00035 15 R461-ZIP PIC X(10). DTSIR461
|
||||
00036 15 R461-ADVANCED-BARCODE PIC X(14). DTSIR461
|
||||
Reference in New Issue
Block a user