36 lines
2.8 KiB
COBOL
36 lines
2.8 KiB
COBOL
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
|