24 lines
1.8 KiB
COBOL
24 lines
1.8 KiB
COBOL
00001 ***** 10/22/98
|
|
00002 * DTSIL027
|
|
00003 * DTSIL027 DC DEPT OF REVENUE BUSINESS TAX NUMBER FROM LV005
|
|
00004 * SCREEN EDIT/FORMAT MODULE LINKAGE. CL**3
|
|
00005 * DTSIL027
|
|
00006 ***** DTSIL027
|
|
00007 SKIP1 DTSIL027
|
|
00008 10 L027-RESULT-IND PIC X(01). CL**3
|
|
00009 88 L027-NO-ENTRY VALUE '0'. CL**3
|
|
00010 88 L027-VALID VALUE '1'. CL**3
|
|
00011 88 L027-NOT-VALID VALUE '2'. CL**3
|
|
00012 SKIP1 DTSIL027
|
|
00013 10 L027-S-BTN-AREA. CL**3
|
|
00014 20 L027-S-BTN-L PIC S9(04) COMP. CL**3
|
|
00015 20 L027-S-BTN-A PIC X(01). CL**3
|
|
00016 20 L027-S-BTN PIC X(09). CL**3
|
|
00017 20 L027-S-BTN-N CL**5
|
|
00018 REDEFINES L027-S-BTN CL**5
|
|
00019 PIC 9(09). CL**5
|
|
00020 SKIP1 DTSIL027
|
|
00021 10 L027-BTN PIC S9(09) COMP-3. CL**5
|
|
00022 SKIP1 DTSIL027
|
|
00023 10 FILLER PIC X(12). CL**3
|