00001 *****                                                             03/17/04
00002 *                                                                 EFTIR120
00003 *    EFTIR120    STATUS CHANGES ENTERED THROUGH WEB REPORTING        LV022
00004 *                PROCESS - REPORT RECORD                             CL*15
00005 *                                                                    CL*15
00006 *****                                                             EFTIR120
00007      SKIP1                                                        EFTIR120
00008          10  R120-LENGTH         PIC S9(04)  COMP.                   CL*15
00009      SKIP1                                                        EFTIR120
00010          10  R120-SORT-AREA.                                         CL*15
00011              15  R120-REC-TYPE             PIC  X(03) VALUE '120'.   CL*15
00012              15  R120-EMP-NO               PIC S9(07) COMP-3.        CL*15
00013      SKIP1                                                        EFTIR120
00014          10  R120-DATA-AREA.                                         CL*15
00015              15  R120-CONTACT-NAME         PIC  X(51).               CL*20
00016              15  R120-ADDRESS-IND          PIC  X(01).               CL*21
00017                      88  R120-ADDR-NO-CHANGE-88   VALUE '0'.         CL*16
00018                      88  R120-ADDR-SAME-STATE-88  VALUE '1'.         CL*16
00019                      88  R120-ADDR-DIFF-STATE-88  VALUE '2'.         CL*16
00020              15  R120-CONTACT-PHONE.                                 CL*22
00021                   20  R120-VOICE-AREA-CD     PIC  X(03).             CL*20
00022                   20  R120-VOICE-PREFIX      PIC  X(03).             CL*20
00023                   20  R120-VOICE-SUFFIX      PIC  X(04).             CL*20
00024                   20  R120-VOICE-EXT         PIC  X(05).             CL*20
00025              15  R120-ENTITY-NAME          PIC  X(40).               CL*20
00026              15  R120-TRACE-NO             PIC  9(13).               CL*20
00027              15  R120-FEIN                 PIC S9(09) COMP-3.        CL*16
00028              15  R120-SALE-DATE            PIC S9(08) COMP-3.        CL*16
00029              15  R120-LAST-WAGES-PAID-DATE PIC S9(08) COMP-3.        CL*16
00030              15  R120-STATUS-CHNG-DESC     PIC  X(250).              CL*18