00001 *****                                                             03/01/12
00002 *                                                                 DTSIL430
00003 *    DTSIL430    ETA 581 WAGE COUNT MODULE LINKAGE.                  LV001
00004 *                                                                 DTSIL430
00005 *                                                                 DTSIL430
00006 *                10/01/2010  INITIAL DEVELOPMENT.           GD    DTSIL430
00007 *                                                                 DTSIL430
00008 *****                                                             DTSIL430
00009                                                                   DTSIL430
00010          10  L430-REQUEST-AREA.                                   DTSIL430
00011              15  L430-CMND-CD            PIC  X(01).              DTSIL430
00012                  88  L430-CMND-INITIALIZE-88   VALUE '0'.         DTSIL430
00013                  88  L430-CMND-PROCESS-88      VALUE '1'.         DTSIL430
00014                  88  L430-CMND-TERMINATE-88    VALUE '2'.         DTSIL430
00015                                                                   DTSIL430
00016              15  L430-SUBJECT-YRQ        PIC S9(05)       COMP-3. DTSIL430
00017                                                                   DTSIL430
00018                                                                   DTSIL430
00019          10  L430-RETURN-AREA.                                    DTSIL430
00020              15  L430-RESULT-IND             PIC  X(01).          DTSIL430
00021                  88  L430-RESULT-OK            VALUE '0'.         DTSIL430
00022                  88  L430-REC-NOT-FOUND        VALUE '1'.         DTSIL430
00023                  88  L430-FILE-CLOSED          VALUE '9'.         DTSIL430
00024                  88  L430-RESULT-NOT-OK        VALUE '1' '9'.     DTSIL430
00025                                                                   DTSIL430
00026              15  L430-WAGE-ITEM-CNT      PIC S9(09)       COMP-3. DTSIL430
00027                                                                   DTSIL430
00028          10  L430-MSG-AREA.                                       DTSIL430
00029              15  L430-MSG-ID             PIC  X(04).              DTSIL430
00030              15  L430-MSG-TEXT           PIC  X(60).              DTSIL430
00031                                                                   DTSIL430
00032                                                                   DTSIL430
00033          10  FILLER                      PIC  X(28).              DTSIL430