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