00001 *****                                                             11/15/12
00002 *                                                                 DTSIL424
00003 *    DTSIL424    DETERMINE TOTAL AND TAXABLE WAGES FOR               LV013
00004 *                AMENDED REPORTS: LINKAGE.                           CL**3
00005 *                                                                 DTSIL424
00006 *                                                                 DTSIL424
00007 *                11/07/2012  INITIAL DEVELOPMENT.           GD       CL**3
00008 *                                                                    CL**2
00009 *****                                                             DTSIL424
00010                                                                   DTSIL424
00011          10  L424-REQUEST-AREA.                                      CL**3
00012              15  L424-CMND                  PIC  X(01).              CL*11
00013                  88  L424-CMND-CHK-WG-88       VALUE '0'.            CL*12
00014                  88  L424-CMND-PROCESS-88      VALUE '1'.            CL*12
00015              15  L424-EMP-NO                PIC S9(07)    COMP-3.    CL*10
00016              15  L424-BATCH-NO              PIC S9(05)    COMP-3.    CL**7
00017              15  L424-ITEM-NO               PIC S9(03)    COMP-3.    CL**5
00018              15  L424-YRQ                   PIC S9(05)    COMP-3.    CL**5
00019                                                                   DTSIL424
00020          10  L424-RETURN-AREA.                                       CL**4
00021              15  L424-TOTAL-WAGES           PIC S9(11)V99  COMP-3.   CL**5
00022              15  L424-TAX-WAGES             PIC S9(11)V99  COMP-3.   CL**8
00023                                                                   DTSIL424
00024          10  L424-RESULT-AREA.                                       CL*11
00025              15  L424-WGH-WAGES-IND         PIC  X(01).              CL*11
00026                  88  L424-WGH-WAGES-YES-88    VALUE 'Y'.             CL*13
00027                  88  L424-WGH-WAGES-NO-88     VALUE 'N'.             CL*13
00028              15  L424-WTC-WAGES-IND         PIC  X(01).              CL*11
00029                  88  L424-WTC-WAGES-YES-88    VALUE 'Y'.             CL*13
00030                  88  L424-WTC-WAGES-NO-88     VALUE 'N'.             CL*13
00031              15  L424-PROCESS-IND           PIC  X(01).              CL*11
00032                  88  L424-PROCESS-OK-88       VALUE '0'.             CL*13
00033                  88  L424-WGH-NOT-FOUND-88    VALUE '1'.             CL*13
00034                  88  L424-WTC-NOT-FOUND-88    VALUE '2'.             CL*13
00035                  88  L424-FILE-CLOSED-88      VALUE '9'.             CL*13
00036                  88  L424-RESULT-NOT-OK-88    VALUE '1' THRU '9'.    CL*13
00037                                                                   DTSIL424
00038                                                                   DTSIL424
00039          10  L424-MSG-AREA.                                          CL**3
00040              15  L424-MSG-ID                PIC  X(04).              CL**5
00041              15  L424-MSG-TEXT              PIC  X(60).              CL**5
00042                                                                   DTSIL424
00043                                                                   DTSIL424
00044          10  FILLER                         PIC  X(28).              CL**5