34 lines
2.6 KiB
COBOL
34 lines
2.6 KiB
COBOL
00001 ***** 02/26/08
|
|
00002 * DTSIR128
|
|
00003 * DTSIR128 AUTOMATED EMPLOYER REGISTRATION REPORT RECORD. LV001
|
|
00004 * DTSIR128
|
|
00005 * NOTE: ON THIS REPORT THERE WILL OFTEN BE MULTIPLE REPORT DTSIR128
|
|
00006 * TYPES (EACH IN A DIFFERENT CATEGORY) FOR THE SAME DTSIR128
|
|
00007 * EMPLOYER. DTSIR128
|
|
00008 * DTSIR128
|
|
00009 * 06/21/2005 INITIAL DEVELOPMENT GD DTSIR128
|
|
00010 * DTSIR128
|
|
00011 ***** DTSIR128
|
|
00012 SKIP1 DTSIR128
|
|
00013 10 R128-LENGTH PIC S9(04) COMP. DTSIR128
|
|
00014 SKIP1 DTSIR128
|
|
00015 10 R128-SORT-AREA. DTSIR128
|
|
00016 15 R128-REC-TYPE PIC X(03). DTSIR128
|
|
00017 15 R128-CATEGORY PIC X(01). DTSIR128
|
|
00018 88 R128-PENDING-DETERM-88 VALUE '1'. DTSIR128
|
|
00019 88 R128-LIAB-UPDATE-88 VALUE '2'. DTSIR128
|
|
00020 88 R128-EMP-UPDATE-88 VALUE '3'. DTSIR128
|
|
00021 88 R128-LIAB-ENTERED-NEW-88 VALUE '4'. DTSIR128
|
|
00022 SKIP1 DTSIR128
|
|
00023 15 R128-EMP-NO PIC S9(07) COMP-3. DTSIR128
|
|
00024 SKIP1 DTSIR128
|
|
00025 10 R128-DATA-AREA. DTSIR128
|
|
00026 15 R128-SOURCE PIC X(02). DTSIR128
|
|
00027 88 R128-SOURCE-UC30-SYS-88 VALUE '15'. DTSIR128
|
|
00028 88 R128-SOURCE-FISC-AGNT-88 VALUE '16'. DTSIR128
|
|
00029 88 R128-SOURCE-WEB-88 VALUE DTSIR128
|
|
00030 '17' THRU '19'. DTSIR128
|
|
00031 15 R128-LIAB-PRIMARY-NAME PIC X(40). DTSIR128
|
|
00032 15 R128-ESTB-DATE PIC S9(09) COMP-3. DTSIR128
|
|
00033 15 FILLER PIC X(32). DTSIR128
|