00001 ***** 09/01/98 00002 * DTSIL028 00003 * DTSIL028 LIEN/LEVY/REFUND NUMBER FROM SCREEN LV005 00004 * EDIT/FORMAT MODULE LINKAGE. DTSIL028 00005 * DTSIL028 00006 * CL**5 00007 * 09/01/1998 CLONED FROM DTSIL022 DURING DC CL**5 00008 * DEVELOPMENT. EHH CL**5 00009 * CL**5 00010 ***** DTSIL028 00011 CL**4 00012 10 L028-RESULT-IND PIC X(01). CL**4 00013 88 L028-NO-ENTRY VALUE '0'. CL**4 00014 88 L028-VALID VALUE '1'. CL**4 00015 88 L028-NOT-VALID VALUE '2'. CL**4 00016 CL**4 00017 10 L028-S-NO-AREA. CL**4 00018 15 L028-S-YR-AREA. CL**4 00019 20 L028-S-YR-L PIC S9(04) COMP. CL**4 00020 20 L028-S-YR-A PIC X(01). CL**4 00021 20 L028-S-YR PIC X(02). CL**4 00022 15 L028-S-SEQ-AREA. CL**4 00023 20 L028-S-SEQ-L PIC S9(04) COMP. CL**4 00024 20 L028-S-SEQ-A PIC X(01). CL**4 00025 20 L028-S-SEQ PIC X(04). CL**4 00026 CL**4 00027 10 L028-NO PIC S9(08) COMP-3. CL**4 00028 CL**4 00029 10 FILLER PIC X(14). CL**4