55 lines
4.3 KiB
COBOL
55 lines
4.3 KiB
COBOL
00001 ***** 03/01/12
|
|
00002 * DTSIL621
|
|
00003 * DTSIL621 ADDRESS LOOKUP. LV001
|
|
00004 * DTSIL621
|
|
00005 * REVISED FOR DC: OCTOBER 1998 - GD DTSIL621
|
|
00006 * DTSIL621
|
|
00007 * WHEN REQUESTING A TAX MAILING ADDRESS, THE CALLING DTSIL621
|
|
00008 * PROGRAM MUST SET L621-ID-NO-TAD-88 TO TRUE. DTSIL621
|
|
00009 * DTSIL621
|
|
00010 * WHEN REQUESTING A BENEFITS ADDRESS, THE CALLING DTSIL621
|
|
00011 * PROGRAM MUST SET L621-ID-NO-BAA-PRIM-88 TO TRUE. DTSIL621
|
|
00012 * DTSIL621
|
|
00013 ***** DTSIL621
|
|
00014 SKIP1 DTSIL621
|
|
00015 10 L621-EMP-NO PIC S9(07) COMP-3. DTSIL621
|
|
00016 SKIP1 DTSIL621
|
|
00017 10 L621-NAME PIC X(40). DTSIL621
|
|
00018 SKIP1 DTSIL621
|
|
00019 10 L621-ADDR-TYPE PIC X(01). DTSIL621
|
|
00020 88 L621-LOOKUP-TAD-88 VALUE '1'. DTSIL621
|
|
00021 88 L621-LOOKUP-TAA-88 VALUE '2'. DTSIL621
|
|
00022 88 L621-LOOKUP-OPO-88 VALUE '3'. DTSIL621
|
|
00023 88 L621-LOOKUP-BAA-88 VALUE '4'. DTSIL621
|
|
00024 SKIP1 DTSIL621
|
|
00025 10 L621-ID-NO PIC S9(03) COMP-3. DTSIL621
|
|
00026 88 L621-ID-NO-BAA-PRIM-88 VALUE +0. DTSIL621
|
|
00027 88 L621-ID-NO-TAD-MAIL-88 VALUE +1. DTSIL621
|
|
00028 88 L621-ID-NO-TAD-PHYS-88 VALUE +2. DTSIL621
|
|
00029 SKIP1 DTSIL621
|
|
00030 10 L621-RESULT-IND PIC X(01). DTSIL621
|
|
00031 88 L621-ADDR-FOUND-88 VALUE '0'. DTSIL621
|
|
00032 88 L621-ADDR-NOT-FOUND-88 VALUE '1'. DTSIL621
|
|
00033 88 L621-FILE-CLOSED-88 VALUE '9'. DTSIL621
|
|
00034 SKIP1 DTSIL621
|
|
00035 10 L621-UC223-IND PIC X(01). DTSIL621
|
|
00036 88 L621-UC223-YES-88 VALUE 'Y'. DTSIL621
|
|
00037 88 L621-UC223-NO-88 VALUE 'N'. DTSIL621
|
|
00038 SKIP2 DTSIL621
|
|
00039 10 L621-RETURN-AREA. DTSIL621
|
|
00040 15 L621-PRIMARY-NAME PIC X(40). DTSIL621
|
|
00041 SKIP1 DTSIL621
|
|
00042 15 L621-TITLE PIC X(20). DTSIL621
|
|
00043 SKIP1 DTSIL621
|
|
00044 15 L621-FMT-ADDR. DTSIL621
|
|
00045 20 R621-FMT-LINE OCCURS 5 TIMES DTSIL621
|
|
00046 INDEXED BY R621-FMT-IDX PIC X(40). DTSIL621
|
|
00047 15 L621-ZIP PIC X(10). DTSIL621
|
|
00048 15 L621-ADVANCED-BARCODE PIC X(14). DTSIL621
|
|
00049 SKIP1 DTSIL621
|
|
00050 10 L621-MSG-AREA. DTSIL621
|
|
00051 15 L621-MSG-ID PIC X(04). DTSIL621
|
|
00052 15 L621-MSG-TEXT PIC X(60). DTSIL621
|
|
00053 SKIP1 DTSIL621
|
|
00054 10 FILLER PIC X(43). DTSIL621
|