00001 ***** 07/30/10 00002 * DTSIX122 00003 * DTSIX122 DTSBX122 OUTPUT RECORD - NEW REGISTRATIONS LV001 00004 * FROM R122 REPORT. DTSIX122 00005 * DTSIX122 00006 * 05/03/2010 INITIAL DEVELOPMENT GD DTSIX122 00007 * DTSIX122 00008 ***** DTSIX122 00009 10 X122-DATA-AREA. DTSIX122 00010 15 X122-EMP-NO PIC 9(06). DTSIX122 00011 15 FILLER PIC X(01) VALUE ','. DTSIX122 00012 15 X122-PERIOD-START-DT PIC X(10). DTSIX122 00013 15 FILLER PIC X(01) VALUE ','. DTSIX122 00014 15 X122-PERIOD-END-DT PIC X(10). DTSIX122 00015 15 FILLER PIC X(01) VALUE ','. DTSIX122 00016 15 X122-CATEGORY PIC X(01). DTSIX122 00017 88 X122-LIAB-ENTERED-NEW-88 VALUE '1'. DTSIX122 00018 88 X122-LIAB-ENTERED-SUCC-88 VALUE '2'. DTSIX122 00019 88 X122-INACT-ENTERED-88 VALUE '3'. DTSIX122 00020 88 X122-INACT-REVERSED-88 VALUE '4'. DTSIX122 00021 88 X122-ACTIVE-EMPLOYER-88 VALUE '5'. DTSIX122 00022 88 X122-MISSING-FR500-88 VALUE '6'. DTSIX122 00023 88 X122-PENDING-DETERM-88 VALUE '7'. DTSIX122 00024 15 FILLER PIC X(01) VALUE ','. DTSIX122 00025 15 X122-OPID PIC X(08). DTSIX122 00026 15 FILLER PIC X(01) VALUE ','. DTSIX122 00027 15 X122-LIAB-ESTB-DATE PIC X(10). DTSIX122 00028 15 FILLER PIC X(01) VALUE ','. DTSIX122 00029 15 X122-LIAB-ENTRY-DATE PIC X(10). DTSIX122 00030 15 FILLER PIC X(01) VALUE ','. DTSIX122 00031 15 X122-INACTIVE-DATE PIC X(10). DTSIX122 00032 15 FILLER PIC X(01) VALUE ','. DTSIX122 00033 15 X122-INAC-ENTRY-DATE PIC X(10). DTSIX122 00034 15 FILLER PIC X(01) VALUE ','. DTSIX122 00035 15 X122-REVERSE-DATE PIC X(10). DTSIX122