38 lines
2.9 KiB
COBOL
38 lines
2.9 KiB
COBOL
00001 ***** 08/24/98
|
|
00002 * DTSIL021
|
|
00003 * DTSIL021 TELEPHONE NUMBER FROM SCREEN FORMAT/EDIT LV003
|
|
00004 * MODULE LINKAGE. DTSIL021
|
|
00005 * DTSIL021
|
|
00006 ***** DTSIL021
|
|
00007 SKIP1 DTSIL021
|
|
00008 10 L021-RESULT-IND PIC X(01). DTSIL021
|
|
00009 88 L021-NO-ENTRY VALUE '0'. DTSIL021
|
|
00010 88 L021-VALID VALUE '1'. DTSIL021
|
|
00011 88 L021-NOT-VALID VALUE '2'. DTSIL021
|
|
00012 SKIP1 DTSIL021
|
|
00013 10 L021-S-TNO-AREA. DTSIL021
|
|
00014 15 L021-S-TNO1-AREA. DTSIL021
|
|
00015 20 L021-S-TNO1-L PIC S9(04) COMP. DTSIL021
|
|
00016 20 L021-S-TNO1-A PIC X(01). DTSIL021
|
|
00017 20 L021-S-TNO1 PIC X(03). DTSIL021
|
|
00018 15 L021-S-TNO2-AREA. DTSIL021
|
|
00019 20 L021-S-TNO2-L PIC S9(04) COMP. DTSIL021
|
|
00020 20 L021-S-TNO2-A PIC X(01). DTSIL021
|
|
00021 20 L021-S-TNO2 PIC X(03). DTSIL021
|
|
00022 15 L021-S-TNO3-AREA. DTSIL021
|
|
00023 20 L021-S-TNO3-L PIC S9(04) COMP. DTSIL021
|
|
00024 20 L021-S-TNO3-A PIC X(01). DTSIL021
|
|
00025 20 L021-S-TNO3 PIC X(04). DTSIL021
|
|
00026 15 L021-S-TNO4-AREA. DTSIL021
|
|
00027 20 L021-S-TNO4-L PIC S9(04) COMP. DTSIL021
|
|
00028 20 L021-S-TNO4-A PIC X(01). DTSIL021
|
|
00029 20 L021-S-TNO4 PIC X(05). CL**2
|
|
00030 SKIP1 DTSIL021
|
|
00031 10 L021-TNO. DTSIL021
|
|
00032 15 L021-TNO-AREA-CD PIC X(03). DTSIL021
|
|
00033 15 L021-TNO-PREFIX PIC X(03). DTSIL021
|
|
00034 15 L021-TNO-SUFFIX PIC X(04). DTSIL021
|
|
00035 15 L021-TNO-EXT PIC X(05). CL**2
|
|
00036 SKIP1 DTSIL021
|
|
00037 10 FILLER PIC X(19). CL**2
|