DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
23
Copybook/DTSIL027.cpy
Normal file
23
Copybook/DTSIL027.cpy
Normal file
@ -0,0 +1,23 @@
|
||||
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
|
||||
Reference in New Issue
Block a user