00001 *****                                                             02/26/04
00002 *                                                                 DTSIL422
00003 *    DTSIL422    FIND CURRENT EMPLOYEES AND WAGES                    LV003
00004 *                FOR A GIVEN EMPLOYER                             DTSIL422
00005 *                                                                 DTSIL422
00006 *                ***  ANNUAL VERSION  ***                         DTSIL422
00007 *                                                                 DTSIL422
00008 *                                                                 DTSIL422
00009 *                02/18/2002  INITIAL DEVELOPMENT.           GD    DTSIL422
00010 *                                                                 DTSIL422
00011 *                                                                 DTSIL422
00012 *****                                                             DTSIL422
00013                                                                   DTSIL422
00014          10  L422-INPUT-AREA.                                     DTSIL422
00015              15  L422-RPT-TYPE           PIC  X(01).              DTSIL422
00016                  88  L422-RPT-TYPE-ORIG-88  VALUE '0'.            DTSIL422
00017                  88  L422-RPT-TYPE-SUPPL-88 VALUE '1'.            DTSIL422
00018                  88  L422-RPT-TYPE-WD-88    VALUE '2'.            DTSIL422
00019              15  L422-EMP-NO             PIC S9(07)       COMP-3. DTSIL422
00020              15  L422-QTR1               PIC S9(05)       COMP-3. DTSIL422
00021              15  L422-QTR2               PIC S9(05)       COMP-3. DTSIL422
00022              15  L422-QTR3               PIC S9(05)       COMP-3. DTSIL422
00023              15  L422-QTR4               PIC S9(05)       COMP-3. DTSIL422
00024              15  L422-TS-NAME-PREFIX     PIC  X(07).              DTSIL422
00025                                                                   DTSIL422
00026                                                                   DTSIL422
00027          10  L422-RETURN-AREA.                                    DTSIL422
00028              15  L422-WAGE-TBL-CNT         PIC S9(04)       COMP. DTSIL422
00029              15  L422-TS-CNT               PIC S9(04)       COMP. DTSIL422
00030              15  L422-LAST-DUMMY-SSN       PIC S9(09)     COMP-3. DTSIL422
00031              15  L422-ERR-IND            PIC  X(02).              DTSIL422
00032                  88  L422-ERR-NO-88        VALUE '00'.            DTSIL422
00033                  88  L422-ERR-OVER-250-88  VALUE '01'.            DTSIL422
00034                                                                   DTSIL422
00035          10  FILLER                      PIC  X(28).              DTSIL422