42 lines
3.2 KiB
COBOL
42 lines
3.2 KiB
COBOL
00001 ***** 11/15/05
|
|
00002 * DTSIR551
|
|
00003 * DTSIR551 ICESA CONTRIBUTION AND WAGE REPORT EDIT - LV001
|
|
00004 * ERROR LIST REPORT RECORD. DTSIR551
|
|
00005 * DTSIR551
|
|
00006 * DTSIR551
|
|
00007 * 08/14/2004 INITIAL DEVELOPMENT. GD DTSIR551
|
|
00008 * 02/14/2005 ADDED R551-RPT-TYPE-FAIL-EDITS-88 DTSIR551
|
|
00009 * FOR NON-FATAL ERRORS THAT RESULT IN DTSIR551
|
|
00010 * THE TRANSACTION FAILING THE DTSIR551
|
|
00011 * ACCOUNTING EDITS. GD DTSIR551
|
|
00012 * DTSIR551
|
|
00013 ***** DTSIR551
|
|
00014 DTSIR551
|
|
00015 10 R551-LENGTH PIC S9(04) COMP. DTSIR551
|
|
00016 DTSIR551
|
|
00017 10 R551-SORT-AREA. DTSIR551
|
|
00018 15 R551-REC-TYPE PIC X(03). DTSIR551
|
|
00019 88 R551-REC-TYPE-551-88 VALUE '551'. DTSIR551
|
|
00020 15 R551-RPT-TYPE PIC X(01). DTSIR551
|
|
00021 88 R551-RPT-TYPE-FATAL-88 VALUE '0'. DTSIR551
|
|
00022 88 R551-RPT-TYPE-FAIL-EDITS-88 VALUE '1'. DTSIR551
|
|
00023 88 R551-RPT-TYPE-NON-FATAL-88 VALUE '2'. DTSIR551
|
|
00024 15 R551-REC-NO PIC S9(07) COMP-3. DTSIR551
|
|
00025 DTSIR551
|
|
00026 10 R551-DATA-AREA. DTSIR551
|
|
00027 15 R551-SUBMITTER-NAME PIC X(50). DTSIR551
|
|
00028 15 R551-SUBMITTER-FEIN PIC X(09). DTSIR551
|
|
00029 15 R551-CONTACT-NAME PIC X(30). DTSIR551
|
|
00030 15 R551-CONTACT-PHONE PIC X(10). DTSIR551
|
|
00031 15 R551-CONTACT-PHONE-EXT PIC X(10). DTSIR551
|
|
00032 15 R551-ICESA-REC-TYPE PIC X(01). DTSIR551
|
|
00033 15 R551-MSG-TEXT PIC X(50). DTSIR551
|
|
00034 15 R551-EMP-FEIN PIC X(09). DTSIR551
|
|
00035 15 R551-EMP-NAME PIC X(50). DTSIR551
|
|
00036 15 R551-EMP-STREET PIC X(40). DTSIR551
|
|
00037 15 R551-EMP-CITY PIC X(25). DTSIR551
|
|
00038 15 R551-EMP-STATE PIC X(02). DTSIR551
|
|
00039 15 R551-EMP-ZIP. DTSIR551
|
|
00040 20 R551-EMP-ZIP-5 PIC X(05). DTSIR551
|
|
00041 20 R551-EMP-ZIP-EXT PIC X(05). DTSIR551
|