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

41
Copybook/DTSIL030.cpy Normal file
View File

@ -0,0 +1,41 @@
00001 ***** 10/16/98
00002 * DTSIL030
00003 * DTSIL030 FIND NEXT AVAILABLE EMPLOYER ACCOUNT NUMBER. LV002
00004 * DTSIL030
00005 * THE CALLING PROGRAM PLACES THE NEXT AVAILABLE EMPLOYER CL**2
00006 * ACCOUNT NUMBER (BASED ON MHDR-LAST-USED-EMP-NO) IN CL**2
00007 * L030-EMP-KEY-REQUESTED. CL**2
00008 * DTSCU030 CHECKS WHETHER THE ACCOUNT NUMBER HAS PREVIOUSLY CL**2
00009 * BEEN USED. IF NOT, IT SETS L030-REQ-KEY-VALID TO TRUE AN CL**2
00010 * RETURNS THE REQUESTED NUMBER IN L030-EMP-KEY-AVAILABLE. CL**2
00011 * IF THE REQUESTED ACCOUNT NUMBER HAS BEEN USED, DTSCU030 CL**2
00012 * READS THE PRE-CONVERSION ACCOUNT NUMBER FILE UNTIL IT CL**2
00013 * FINDS THE NEXT UNUSED NUMBER. IT SETS CL**2
00014 * L030-REQ-KEY-NOT-VALID TO TRUE AND RETURNS THE NEXT CL**2
00015 * UNUSED ACCOUNT NUMBER IN L030-EMP-KEY-AVAILABLE. CL**2
00016 * DTSCU030 RETURNS AN ERROR CODE (AND PUTS ZEROS IN CL**2
00017 * L030-EMP-KEY-AVAILABLE) IF THE FILE IS CLOSED OR CL**2
00018 * IF IT FAILS TO FIND ANY UNUSED EMPLOYER ACCOUNT CL**2
00019 * NUMBERS. CL**2
00020 * CL**2
00021 ***** DTSIL030
00022 DTSIL030
00023 10 L030-REQUEST-AREA. CL**2
00024 15 L030-EMP-KEY-REQUESTED PIC S9(07) COMP-3. CL**2
00025 DTSIL030
00026 10 L030-RETURN-AREA. CL**2
00027 15 L030-EMP-KEY-AVAILABLE PIC S9(07) COMP-3. CL**2
00028 CL**2
00029 15 L030-RESULT-IND PIC X(01). CL**2
00030 88 L030-REQ-KEY-VALID VALUE '1'. CL**2
00031 88 L030-REQ-KEY-NOT-VALID VALUE '2'. CL**2
00032 88 L030-ALL-NUMBERS-USED VALUE '3'. CL**2
00033 88 L030-FILE-CLOSED VALUE '4'. CL**2
00034 88 L030-FATAL-ERROR VALUE '3' '4'. CL**2
00035 DTSIL030
00036 DTSIL030
00037 15 FILLER PIC X(92). CL**2
00038 DTSIL030
00039 15 L030-MSG-AREA. CL**2
00040 20 L030-MSG-ID PIC X(04). CL**2
00041 20 L030-MSG-TEXT PIC X(60). CL**2