41 lines
3.2 KiB
COBOL
41 lines
3.2 KiB
COBOL
00001 ***** 06/06/03
|
|
00002 * DTSIR590
|
|
00003 * DTSIR590 FISCAL AGENT WAGE RATE RECORD. LV003
|
|
00004 * DTSIR590
|
|
00005 * DTSIR590
|
|
00006 * 09/15/00 CREATED FOR DC ZL1. DTSIR590
|
|
00007 * DTSIR590
|
|
00008 * DTSIR590
|
|
00009 ***** DTSIR590
|
|
00010 SKIP1 DTSIR590
|
|
00011 10 R590-LENGTH PIC S9(04) COMP. DTSIR590
|
|
00012 SKIP1 DTSIR590
|
|
00013 10 R590-SORT-AREA. DTSIR590
|
|
00014 15 R590-REC-TYPE PIC X(03) VALUE '590'. DTSIR590
|
|
00015 15 R590-REPORT-TYPE PIC X(01). DTSIR590
|
|
00016 88 R590-UPDATE-88 VALUE '1'. DTSIR590
|
|
00017 88 R590-ERROR-88 VALUE '2'. DTSIR590
|
|
00018 88 R590-FEIN-ACCT-88 VALUE '3'. DTSIR590
|
|
00019 SKIP1 DTSIR590
|
|
00020 15 R590-SORT-VAR-AREA. DTSIR590
|
|
00021 20 R590-FISCAL-AGENT-CD PIC X(03). DTSIR590
|
|
00022 20 R590-EMP-NO PIC 9(06). DTSIR590
|
|
00023 20 R590-EMP-FEIN PIC 9(09). DTSIR590
|
|
00024 DTSIR590
|
|
00025 10 R590-DATA-AREA. DTSIR590
|
|
00026 SKIP1 DTSIR590
|
|
00027 15 R590-FIL1 PIC X(02). DTSIR590
|
|
00028 15 R590-EMP-CONTR-RATE PIC 9(03)V9999. DTSIR590
|
|
00029 15 R590-EMP-CONTR-RATE-X REDEFINES DTSIR590
|
|
00030 R590-EMP-CONTR-RATE PIC X(07). DTSIR590
|
|
00031 15 R590-SIC-CODE PIC 9(04). DTSIR590
|
|
00032 15 R590-SIC-CODE-X REDEFINES DTSIR590
|
|
00033 R590-SIC-CODE PIC X(04). DTSIR590
|
|
00034 * 15 R590-EMP-NAME PIC X(24). DTSIR590
|
|
00035 * 15 R590-EMP-NAME-A PIC X(24). DTSIR590
|
|
00036 15 R590-EMP-NAME PIC X(40). DTSIR590
|
|
00037 15 R590-EMP-NAME-A PIC X(40). DTSIR590
|
|
00038 15 R590-EMP-STATUS-CODE PIC X(01). DTSIR590
|
|
00039 * 15 R590-MESSAGE PIC X(20). DTSIR590
|
|
00040 15 R590-MESSAGE PIC X(40). DTSIR590
|