34 lines
2.6 KiB
COBOL
34 lines
2.6 KiB
COBOL
00001 ***** 03/21/03
|
|
00002 * DTSIR751
|
|
00003 * DTSIR751 WEEKLY EARNINGS REQUEST LV007
|
|
00004 * REPORT RECORD. DTSIR751
|
|
00005 * DTSIR751
|
|
00006 * 11/08/2002 INITIAL DEVELOPMENT GD DTSIR751
|
|
00007 * DTSIR751
|
|
00008 * DTSIR751
|
|
00009 ***** DTSIR751
|
|
00010 SKIP1 DTSIR751
|
|
00011 10 R751-LENGTH PIC S9(04) COMP. DTSIR751
|
|
00012 SKIP1 DTSIR751
|
|
00013 10 R751-SORT-AREA. DTSIR751
|
|
00014 15 R751-REC-TYPE PIC X(03) VALUE '751'. DTSIR751
|
|
00015 15 R751-OP-NAME PIC X(32). DTSIR751
|
|
00016 15 R751-EMP-NO PIC S9(07) COMP-3. DTSIR751
|
|
00017 15 R751-SSN PIC X(09). DTSIR751
|
|
00018 15 R751-YRQ PIC S9(05) COMP-3. DTSIR751
|
|
00019 SKIP1 DTSIR751
|
|
00020 * 10 R751-SELF-MAILER PIC X(01) VALUE 'N'. DTSIR751
|
|
00021 * 88 R751-NOT-MAILER-88 VALUE 'N'. DTSIR751
|
|
00022 * 88 R751-MAILER-88 VALUE 'Y'. DTSIR751
|
|
00023 10 R751-DATA-AREA. DTSIR751
|
|
00024 15 R751-CLAIMANT-NAME PIC X(32). DTSIR751
|
|
00025 15 R751-EMP-PRIMARY-NAME PIC X(40). DTSIR751
|
|
00026 15 R751-EMP-ADDR. DTSIR751
|
|
00027 20 R751-ATTN-LINE PIC X(40). DTSIR751
|
|
00028 20 R751-DELIV-LINE-1 PIC X(40). DTSIR751
|
|
00029 20 R751-DELIV-LINE-2 PIC X(40). DTSIR751
|
|
00030 20 R751-CITY PIC X(25). DTSIR751
|
|
00031 20 R751-ST PIC X(02). DTSIR751
|
|
00032 20 R751-ZIP PIC X(10). DTSIR751
|
|
00033 15 R751-MAIL-DATE PIC S9(09) COMP-3. DTSIR751
|