giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

37
Copybook/DTSIL021.cpy Normal file
View File

@ -0,0 +1,37 @@
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