25 lines
1.9 KiB
COBOL
25 lines
1.9 KiB
COBOL
00001 ***** 07/30/01
|
|
00002 * DTSIR405
|
|
00003 * DTSIR405 LIEN RELEASE CANDIDATES REPORT RECORD. LV010
|
|
00004 * DTSIR405
|
|
00005 * 10/20/00 ADDED R405-OPID TO IR. ZL1. DTSIR405
|
|
00006 ***** DTSIR405
|
|
00007 SKIP1 DTSIR405
|
|
00008 10 R405-LENGTH PIC S9(04) COMP. DTSIR405
|
|
00009 SKIP1 DTSIR405
|
|
00010 10 R405-SORT-AREA. DTSIR405
|
|
00011 15 R405-REC-TYPE PIC X(03). DTSIR405
|
|
00012 15 R405-OP-ID PIC X(08). DTSIR405
|
|
00013 15 R405-EMP-NO PIC S9(07) COMP-3. DTSIR405
|
|
00014 SKIP1 DTSIR405
|
|
00015 10 R405-DATA-AREA. DTSIR405
|
|
00016 15 R405-PRIMARY-NAME PIC X(40). DTSIR405
|
|
00017 15 R405-STMT-DATE PIC S9(09) COMP-3. DTSIR405
|
|
00018 15 R405-CERTIFICATE-NO PIC S9(08) COMP-3. DTSIR405
|
|
00019 15 R405-REC-DEEDS-NO PIC X(10). DTSIR405
|
|
00020 15 R405-CERTIFICATE-DATE PIC S9(09) COMP-3. DTSIR405
|
|
00021 15 R405-FMT-ADDR. DTSIR405
|
|
00022 20 R405-FMT-LINE OCCURS 5 TIMES DTSIR405
|
|
00023 INDEXED BY R405-FMT-IDX DTSIR405
|
|
00024 PIC X(40). DTSIR405
|