91 lines
7.1 KiB
COBOL
91 lines
7.1 KiB
COBOL
00001 ***** 09/08/98
|
|
00002 * DTSIL072
|
|
00003 * DTSIL072 ADDRESS EDIT MODULE LINKAGE. LV004
|
|
00004 * DTSIL072
|
|
00005 * CL**2
|
|
00006 * 09/08/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
|
00007 * CL**2
|
|
00008 ***** DTSIL072
|
|
00009 CL**2
|
|
00010 10 L072-CASS-IND PIC X(01). DTSIL072
|
|
00011 88 L072-CASS-EDITS-88 VALUE 'Y'. DTSIL072
|
|
00012 88 L072-NO-CASS-EDITS-88 VALUE 'N'. DTSIL072
|
|
00013 CL**2
|
|
00014 CL**2
|
|
00015 10 L072-ADDRESS-RESULT-IND PIC X(01). DTSIL072
|
|
00016 88 L072-ADDRESS-UNCHANGED-88 VALUE '1'. DTSIL072
|
|
00017 88 L072-ADDRESS-CHANGED-88 VALUE '2'. DTSIL072
|
|
00018 88 L072-ADDRESS-VALID-88 VALUE '1' '2'.DTSIL072
|
|
00019 88 L072-ADDRESS-NOT-VALID-88 VALUE '9'. DTSIL072
|
|
00020 CL**2
|
|
00021 CL**2
|
|
00022 10 L072-FIELD-RESULT-INDS. DTSIL072
|
|
00023 15 L072-ATTN-LINE-RESULT PIC X(01). DTSIL072
|
|
00024 88 L072-ATTN-LINE-UNCHANGED-88 VALUE '1'. DTSIL072
|
|
00025 88 L072-ATTN-LINE-CHANGED-88 VALUE '2'. DTSIL072
|
|
00026 88 L072-ATTN-LINE-VALID-88 VALUE '1' '2'.DTSIL072
|
|
00027 88 L072-ATTN-LINE-NOT-VALID-88 VALUE '9'. DTSIL072
|
|
00028 CL**2
|
|
00029 15 L072-DELIV-LINE-1-RESULT PIC X(01). CL**2
|
|
00030 88 L072-DELIV-LINE-1-UNCHANGED-88 VALUE '1'. CL**2
|
|
00031 88 L072-DELIV-LINE-1-CHANGED-88 VALUE '2'. CL**2
|
|
00032 88 L072-DELIV-LINE-1-VALID-88 VALUE '1' '2'. CL**2
|
|
00033 88 L072-DELIV-LINE-1-NOT-VALID-88 VALUE '9'. CL**2
|
|
00034 CL**2
|
|
00035 15 L072-DELIV-LINE-2-RESULT PIC X(01). CL**2
|
|
00036 88 L072-DELIV-LINE-2-UNCHANGED-88 VALUE '1'. CL**2
|
|
00037 88 L072-DELIV-LINE-2-CHANGED-88 VALUE '2'. CL**2
|
|
00038 88 L072-DELIV-LINE-2-VALID-88 VALUE '1' '2'. CL**2
|
|
00039 88 L072-DELIV-LINE-2-NOT-VALID-88 VALUE '9'. CL**2
|
|
00040 CL**2
|
|
00041 15 L072-CITY-RESULT PIC X(01). DTSIL072
|
|
00042 88 L072-CITY-UNCHANGED-88 VALUE '1'. DTSIL072
|
|
00043 88 L072-CITY-CHANGED-88 VALUE '2'. DTSIL072
|
|
00044 88 L072-CITY-VALID-88 VALUE '1' '2'.DTSIL072
|
|
00045 88 L072-CITY-NOT-VALID-88 VALUE '9'. DTSIL072
|
|
00046 CL**2
|
|
00047 15 L072-ST-RESULT PIC X(01). DTSIL072
|
|
00048 88 L072-ST-UNCHANGED-88 VALUE '1'. DTSIL072
|
|
00049 88 L072-ST-CHANGED-88 VALUE '2'. DTSIL072
|
|
00050 88 L072-ST-VALID-88 VALUE '1' '2'.DTSIL072
|
|
00051 88 L072-ST-NOT-VALID-88 VALUE '9'. DTSIL072
|
|
00052 CL**2
|
|
00053 15 L072-ZIP-RESULT PIC X(01). DTSIL072
|
|
00054 88 L072-ZIP-UNCHANGED-88 VALUE '1'. DTSIL072
|
|
00055 88 L072-ZIP-CHANGED-88 VALUE '2'. DTSIL072
|
|
00056 88 L072-ZIP-VALID-88 VALUE '1' '2'.DTSIL072
|
|
00057 88 L072-ZIP-NOT-VALID-88 VALUE '9'. DTSIL072
|
|
00058 CL**2
|
|
00059 CL**2
|
|
00060 CL**2
|
|
00061 10 L072-NAME-ADDRESS. DTSIL072
|
|
00062 15 L072-ADDRESS-TYPE PIC X(01). DTSIL072
|
|
00063 88 L072-MTAD-88 VALUE 'T'. DTSIL072
|
|
00064 88 L072-MTAA-88 VALUE 'A'. DTSIL072
|
|
00065 88 L072-MOPO-88 VALUE 'O'. DTSIL072
|
|
00066 88 L072-MBAA-88 VALUE 'B'. DTSIL072
|
|
00067 88 L072-FFID-88 VALUE 'F'. DTSIL072
|
|
00068 CL**2
|
|
00069 15 L072-NAME PIC X(40). DTSIL072
|
|
00070 CL**2
|
|
00071 15 L072-ADDRESS. DTSIL072
|
|
00072 20 L072-ATTN-LINE PIC X(40). DTSIL072
|
|
00073 20 L072-DELIV-LINE-1 PIC X(40). CL**3
|
|
00074 20 L072-DELIV-LINE-2 PIC X(40). CL**3
|
|
00075 20 L072-CITY PIC X(25). DTSIL072
|
|
00076 20 L072-ST PIC X(02). DTSIL072
|
|
00077 20 L072-ZIP PIC X(10). DTSIL072
|
|
00078 20 L072-ADVANCED-BARCODE CL**3
|
|
00079 PIC X(14). CL**3
|
|
00080 CL**2
|
|
00081 CL**3
|
|
00082 10 FILLER PIC X(45). DTSIL072
|
|
00083 CL**2
|
|
00084 CL**3
|
|
00085 10 L072-CASS-RETURN-CODES PIC X(25). CL**3
|
|
00086 CL**2
|
|
00087 CL**3
|
|
00088 10 L072-MSG-AREA. DTSIL072
|
|
00089 15 L072-MSG-ID PIC X(04). DTSIL072
|
|
00090 15 L072-MSG-TXT PIC X(60). DTSIL072
|