00001 ***** 01/30/25 00002 * DTSIW405 00003 * DTSIW405 LIEN RELEASE CANDIDATES REPORT RECORD. LV022 00004 * DTSIW405 00005 * 10/20/00 ADDED W405-OPID TO IR. ZL1. CL*12 00006 ***** DTSIW405 00007 SKIP1 DTSIW405 00008 10 W405-LENGTH PIC 9(04). CL*12 00009 10 FILLER PIC X(01) VALUE '|'. CL*22 00010 SKIP1 DTSIW405 00011 10 W405-SORT-AREA. CL*12 00012 15 W405-REC-TYPE PIC X(03). CL*12 00013 15 FILLER PIC X(01) VALUE '|'. CL*22 00014 15 W405-OP-ID PIC X(08). CL*12 00015 15 FILLER PIC X(01) VALUE '|'. CL*22 00016 15 W405-EMP-NO PIC 9(06). CL*12 00017 15 FILLER PIC X(01) VALUE '|'. CL*22 00018 SKIP1 DTSIW405 00019 10 W405-DATA-AREA. CL*12 00020 15 W405-PRIMARY-NAME PIC X(40). CL*12 00021 15 FILLER PIC X(01) VALUE '|'. CL*22 00022 15 W405-STMT-DATE PIC X(10). CL*17 00023 15 FILLER PIC X(01) VALUE '|'. CL*22 00024 15 W405-CERTIFICATE-NO PIC 9(08). CL*13 00025 15 FILLER PIC X(01) VALUE '|'. CL*22 00026 15 W405-REC-DEEDS-NO PIC X(10). CL*12 00027 15 FILLER PIC X(01) VALUE '|'. CL*22 00028 15 W405-CERTIFICATE-DATE PIC X(10). CL*17 00029 15 FILLER PIC X(01) VALUE '|'. CL*22 00030 15 W405-FMT-ADDR. CL*12 00031 20 W405-FMT-LINE1 PIC X(40). CL*19 00032 20 FILLER PIC X(01) VALUE '|'. CL*22 00033 20 W405-FMT-LINE2 PIC X(40). CL*19 00034 20 FILLER PIC X(01) VALUE '|'. CL*22 00035 20 W405-FMT-LINE3 PIC X(40). CL*19 00036 20 FILLER PIC X(01) VALUE '|'. CL*22 00037 20 W405-FMT-LINE4 PIC X(40). CL*19 00038 20 FILLER PIC X(01) VALUE '|'. CL*22 00039 20 W405-FMT-LINE5 PIC X(40). CL*19 00040 20 FILLER PIC X(01) VALUE '|'. CL*22 00041 CL*21 00042 15 W405-CURR-DATE PIC X(10). CL*21