66 lines
5.1 KiB
COBOL
66 lines
5.1 KiB
COBOL
00001 ***** 10/01/12
|
|
00002 * DTSIL420
|
|
00003 * DTSIL420 FORMAT AND RELEASE WAGE TRANSACTIONS LV002
|
|
00004 * MODULE LINKAGE. DTSIL420
|
|
00005 * DTSIL420
|
|
00006 * DTSIL420
|
|
00007 * 02/07/2002 INITIAL DEVELOPMENT. GD DTSIL420
|
|
00008 * 09/02/2003 MODIFIED FOR WAGE UPDATES. DTSIL420
|
|
00009 * ADDED EMPLOYER ACCOUNT NUMBER DTSIL420
|
|
00010 * CODE TO INDICATE TYPE OF NAME DTSIL420
|
|
00011 * (I.E., 3 CHARACTER, FULL) AND DTSIL420
|
|
00012 * ABSTIME FIELD. GD DTSIL420
|
|
00013 * 11/14/2011 MODIFIED TO INCLUDE BOTH THE DTSIL420
|
|
00014 * PSEUDO BATCH AND ITEM NUMBERS DTSIL420
|
|
00015 * AND THE ACCOUNTING BATCH AND DTSIL420
|
|
00016 * AND ITME NUMBERS. DTSIL420
|
|
00017 * ALSO ADDED SYSTEM DATE. GD DTSIL420
|
|
00018 * DTSIL420
|
|
00019 * 03/02/2012 MODIFIED TO INCLUDE THE QUARTER. DTSIL420
|
|
00020 * GD DTSIL420
|
|
00021 * 10/01/2012 REMOVED TAXABLE WAGE ADJUSTMENT CL**2
|
|
00022 * 10/01/2012 AND ADDED CLAIMANT WAGE TO CL**2
|
|
00023 * L420-RPT-TYPE GD CL**2
|
|
00024 * CL**2
|
|
00025 ***** DTSIL420
|
|
00026 DTSIL420
|
|
00027 10 L420-REQUEST-AREA. DTSIL420
|
|
00028 15 L420-CMND-CD PIC X(01). DTSIL420
|
|
00029 88 L420-CMND-OPEN-88 VALUE '0'. DTSIL420
|
|
00030 88 L420-CMND-UPDATE-88 VALUE '1'. DTSIL420
|
|
00031 88 L420-CMND-DELETE-88 VALUE '2'. DTSIL420
|
|
00032 88 L420-CMND-CLOSE-88 VALUE '3'. DTSIL420
|
|
00033 DTSIL420
|
|
00034 15 L420-PSEUDO-BATCH-NO PIC S9(05) COMP-3. DTSIL420
|
|
00035 15 L420-PSEUDO-ITEM-NO PIC S9(03) COMP-3. DTSIL420
|
|
00036 15 L420-BATCH-NO PIC S9(05) COMP-3. DTSIL420
|
|
00037 15 L420-ITEM-NO PIC S9(03) COMP-3. DTSIL420
|
|
00038 15 L420-YRQ PIC S9(05) COMP-3. DTSIL420
|
|
00039 15 L420-RECEIVED-DATE PIC S9(09) COMP-3. DTSIL420
|
|
00040 15 L420-EMP-NO PIC S9(07) COMP-3. DTSIL420
|
|
00041 15 L420-EMP-NAME PIC X(04). DTSIL420
|
|
00042 15 L420-RPT-TYPE PIC X(02). DTSIL420
|
|
00043 88 L420-RPT-TYPE-ORIG-88 VALUE 'OR'. DTSIL420
|
|
00044 88 L420-RPT-TYPE-WITHDRW-88 VALUE 'WD'. DTSIL420
|
|
00045 88 L420-RPT-TYPE-CLMT-WG-88 VALUE 'CW'. CL**2
|
|
00046 15 L420-NAME-TYPE PIC X(02). DTSIL420
|
|
00047 88 L420-NAME-TYPE-3CHAR-88 VALUE '00'. DTSIL420
|
|
00048 88 L420-NAME-TYPE-FULL-88 VALUE '01'. DTSIL420
|
|
00049 15 L420-ABSTIME PIC S9(15) COMP-3. DTSIL420
|
|
00050 15 L420-SYS-DATE PIC X(10). DTSIL420
|
|
00051 DTSIL420
|
|
00052 DTSIL420
|
|
00053 10 L420-RESULT-IND PIC X(01). DTSIL420
|
|
00054 88 L420-RESULT-OK VALUE '0'. DTSIL420
|
|
00055 88 L420-REC-NOT-FOUND VALUE '1'. DTSIL420
|
|
00056 88 L420-FILE-CLOSED VALUE '9'. DTSIL420
|
|
00057 88 L420-RESULT-NOT-OK VALUE '1' '9'. DTSIL420
|
|
00058 DTSIL420
|
|
00059 DTSIL420
|
|
00060 10 L420-MSG-AREA. DTSIL420
|
|
00061 15 L420-MSG-ID PIC X(04). DTSIL420
|
|
00062 15 L420-MSG-TEXT PIC X(60). DTSIL420
|
|
00063 DTSIL420
|
|
00064 DTSIL420
|
|
00065 10 FILLER PIC X(28). DTSIL420
|