52 lines
4.0 KiB
COBOL
52 lines
4.0 KiB
COBOL
00001 ***** 04/24/00
|
|
00002 * DTSIR901
|
|
00003 * DTSIR901 LABEL REPORT RECORD. LV006
|
|
00004 * DTSIR901
|
|
00005 * DTSIR901
|
|
00006 * 10/15/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIR901
|
|
00007 * DTSIR901
|
|
00008 ***** DTSIR901
|
|
00009 DTSIR901
|
|
00010 10 R901-LENGTH PIC S9(04) COMP. DTSIR901
|
|
00011 DTSIR901
|
|
00012 10 R901-SORT-AREA. DTSIR901
|
|
00013 15 R901-REC-TYPE PIC X(03) VALUE '901'. DTSIR901
|
|
00014 15 R901-GROUP PIC X(01). DTSIR901
|
|
00015 88 R901-ON-REQUEST-88 VALUE '1'. DTSIR901
|
|
00016 88 R901-EMP-REG-A-88 VALUE '2'. DTSIR901
|
|
00017 88 R901-LIAB-DETER-88 VALUE '3'. DTSIR901
|
|
00018 88 R901-JOB-SERVICE-88 VALUE '4'. DTSIR901
|
|
00019 DTSIR901
|
|
00020 15 R901-SORT-VAR-AREA PIC X(60). DTSIR901
|
|
00021 15 R901-GRP1-SORT-AREA REDEFINES R901-SORT-VAR-AREA.DTSIR901
|
|
00022 20 R901-GRP1-OP-ID PIC X(08). DTSIR901
|
|
00023 20 R901-GRP1-EMP-NO PIC S9(07) COMP-3. DTSIR901
|
|
00024 20 FILLER PIC X(48). DTSIR901
|
|
00025 15 R901-GRP2-SORT-AREA REDEFINES R901-SORT-VAR-AREA.DTSIR901
|
|
00026 20 R901-GRP2-OP-ID PIC X(08). DTSIR901
|
|
00027 20 R901-GRP2-EMP-NO PIC S9(07) COMP-3. DTSIR901
|
|
00028 20 FILLER PIC X(48). DTSIR901
|
|
00029 15 R901-GRP3-SORT-AREA REDEFINES R901-SORT-VAR-AREA.DTSIR901
|
|
00030 20 R901-GRP3-OP-ID PIC X(08). DTSIR901
|
|
00031 20 R901-GRP3-EMP-NO PIC S9(07) COMP-3. DTSIR901
|
|
00032 20 FILLER PIC X(48). DTSIR901
|
|
00033 15 R901-GRP4-SORT-AREA REDEFINES R901-SORT-VAR-AREA.DTSIR901
|
|
00034 20 R901-GRP4-IND-CODE-TYPE PIC X(01). DTSIR901
|
|
00035 88 R901-GRP4-NAICS-88 VALUE '1'. DTSIR901
|
|
00036 88 R901-GRP4-SIC-88 VALUE '2'. DTSIR901
|
|
00037 20 R901-GRP4-IND-CODE PIC X(06). DTSIR901
|
|
00038 20 R901-GRP4-PRIMARY-NAME PIC X(40). DTSIR901
|
|
00039 20 R901-GRP4-EMP-NO PIC S9(07) COMP-3. DTSIR901
|
|
00040 20 FILLER PIC X(09). DTSIR901
|
|
00041 DTSIR901
|
|
00042 DTSIR901
|
|
00043 10 R901-DATA-AREA. DTSIR901
|
|
00044 15 R901-LABEL-CNT PIC S9(03) COMP-3. DTSIR901
|
|
00045 15 R901-EMP-NO PIC S9(07) COMP-3. DTSIR901
|
|
00046 15 R901-FMT-ADDR. DTSIR901
|
|
00047 20 R901-FMT-LINE OCCURS 5 TIMES DTSIR901
|
|
00048 INDEXED BY R901-FMT-IDX DTSIR901
|
|
00049 PIC X(40). DTSIR901
|
|
00050 15 R901-ZIP PIC X(10). DTSIR901
|
|
00051 15 R901-ADVANCED-BARCODE PIC X(14). DTSIR901
|