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

29
Copybook/DTSIL020.cpy Normal file
View File

@ -0,0 +1,29 @@
00001 ***** 08/24/98
00002 * DTSIL020
00003 * DTSIL020 SOCIAL SECURITY NUMBER FROM SCREEN FORMAT/EDIT LV003
00004 * MODULE LINKAGE. DTSIL020
00005 * DTSIL020
00006 ***** DTSIL020
00007 SKIP1 DTSIL020
00008 10 L020-RESULT-IND PIC X(01). DTSIL020
00009 88 L020-NO-ENTRY VALUE '0'. DTSIL020
00010 88 L020-VALID VALUE '1'. DTSIL020
00011 88 L020-NOT-VALID VALUE '2'. DTSIL020
00012 SKIP1 DTSIL020
00013 10 L020-S-SSN-AREA. DTSIL020
00014 15 L020-S-SSN1-AREA. DTSIL020
00015 20 L020-S-SSN1-L PIC S9(04) COMP. DTSIL020
00016 20 L020-S-SSN1-A PIC X(01). DTSIL020
00017 20 L020-S-SSN1 PIC X(03). DTSIL020
00018 15 L020-S-SSN2-AREA. DTSIL020
00019 20 L020-S-SSN2-L PIC S9(04) COMP. DTSIL020
00020 20 L020-S-SSN2-A PIC X(01). DTSIL020
00021 20 L020-S-SSN2 PIC X(02). DTSIL020
00022 15 L020-S-SSN3-AREA. DTSIL020
00023 20 L020-S-SSN3-L PIC S9(04) COMP. DTSIL020
00024 20 L020-S-SSN3-A PIC X(01). DTSIL020
00025 20 L020-S-SSN3 PIC X(04). DTSIL020
00026 SKIP1 DTSIL020
00027 10 L020-SSN PIC S9(09) COMP-3. DTSIL020
00028 SKIP1 DTSIL020
00029 10 FILLER PIC X(06). DTSIL020