43 lines
3.3 KiB
COBOL
43 lines
3.3 KiB
COBOL
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
|