DUTAS re-platformed to Raincode - Initial Source Code

This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions

23
Copybook/DTSIL027.cpy Normal file
View 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