28 lines
2.1 KiB
COBOL
28 lines
2.1 KiB
COBOL
00001 ***** 10/05/00
|
|
00002 * DTSIR591
|
|
00003 * DTSIR591 FISCAL AGENT BENEFIT CHARGE ERROR RECORDS LV001
|
|
00004 * DTSIR591
|
|
00005 * DTSIR591
|
|
00006 * 09/19/00 CREATED FOR DC ZL1. DTSIR591
|
|
00007 * DTSIR591
|
|
00008 * DTSIR591
|
|
00009 ***** DTSIR591
|
|
00010 SKIP1 DTSIR591
|
|
00011 10 R591-LENGTH PIC S9(04) COMP. DTSIR591
|
|
00012 SKIP1 DTSIR591
|
|
00013 10 R591-SORT-AREA. DTSIR591
|
|
00014 15 R591-REC-TYPE PIC X(03) VALUE '591'. DTSIR591
|
|
00015 15 R591-REPORT-TYPE PIC X(01). DTSIR591
|
|
00016 88 R591-UPDATE-88 VALUE '1'. DTSIR591
|
|
00017 88 R591-ERROR-88 VALUE '2'. DTSIR591
|
|
00018 SKIP1 DTSIR591
|
|
00019 15 R591-SORT-VAR-AREA. DTSIR591
|
|
00020 20 R591-FISCAL-AGENT-CD PIC X(03). DTSIR591
|
|
00021 20 R591-EMP-NO PIC 9(06). DTSIR591
|
|
00022 DTSIR591
|
|
00023 10 R591-DATA-AREA. DTSIR591
|
|
00024 15 R591-EMP-STATUS-CODE PIC X(01). DTSIR591
|
|
00025 15 R591-EMPLOYER-NAME PIC X(40). DTSIR591
|
|
00026 15 R591-MESSAGE PIC X(40). DTSIR591
|
|
00027 SKIP1 DTSIR591
|