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

60
Copybook/DESIL200.cpy Normal file
View File

@ -0,0 +1,60 @@
00001 ***** 05/22/01
00002 * DESIL200
00003 * DESIL200 ELECTRONIC MEDIA TRACKING LV001
00004 * LOG UPDATE LINKAGE DESIL200
00005 * DESIL200
00006 * DESBD200 IS CALLED FROM ALL PROGRAMS THAT DESIL200
00007 * PROCESS WAGE DATA. IT UPDATES THE DESIL200
00008 * ELECTRONIC MEDIA LOG AND MESSAGE RECORDS, DESIL200
00009 * AND BUILDS EMPLOYER HISTORY RECORDS. DESIL200
00010 * DESIL200
00011 * THE CALLING PROGRAM PASSES THE COMMAND CODE, DESIL200
00012 * LOG NUMBER AND ITS OWN NAME TO DESBD200 IN THE DESIL200
00013 * COMMAND AREA. DESIL200
00014 * DESIL200
00015 * IF THE CALLING PROGRAM HAS SET L200-CMD-INIT DESIL200
00016 * TO TRUE, BD200 WILL CHECK WHETHER THE ITEM DESIL200
00017 * HAS BEEN PROCESSED IN A PREVIOUS RUN. IF SO, DESIL200
00018 * IT WILL DELETE ANY RECORDS CREATED DURING DESIL200
00019 * THAT RUN. DESIL200
00020 * DESIL200
00021 * IF THE CALLING PROGRAM HAS SET DESIL200
00022 * L200-CMD-EMP-COMPLETE TO TRUE, THE CALLING DESIL200
00023 * PROGRAM WILL PASS DATA ABOUT THE EMPLOYER IN DESIL200
00024 * THE COMPLETION AREA. DESIL200
00025 * DESIL200
00026 * IF THE CALLING PROGRAM HAS SET DESIL200
00027 * L200-CMD-TERMINATE TO TRUE, THE CALLING PROGRAM DESIL200
00028 * WILL PASS DATA ABOUT THE LAST EMPLOYER PROCESSED, DESIL200
00029 * IF ANY, IN THE COMPLETION AREA. DESIL200
00030 * DESIL200
00031 * DESBD200 WILL PASS A RETURN CODE BACK TO THE DESIL200
00032 * CALLING PROGRAM. DESIL200
00033 * DESIL200
00034 * DESBD200 WILL PERFORM A CONTOLLED ABEND IF THE DESIL200
00035 * CALLING PROGRAM PASSES AN INVALID LOG NUMBER. DESIL200
00036 ***** DESIL200
00037 10 L200-COMMAND-AREA. DESIL200
00038 15 L200-COMMAND-CD PIC X(01). DESIL200
00039 88 L200-CMD-INIT-88 VALUE '0'. DESIL200
00040 88 L200-CMD-EMP-COMPLETE-88 VALUE '1'. DESIL200
00041 88 L200-CMD-TERMINATE-88 VALUE '2'. DESIL200
00042 DESIL200
00043 15 L200-LOG-NO PIC X(10). DESIL200
00044 15 FILLER REDEFINES L200-LOG-NO. DESIL200
00045 20 L200-LOG-NO-PFX PIC X(04). DESIL200
00046 20 L200-LOG-NO-SFX PIC X(06). DESIL200
00047 15 L200-PROG-NAME PIC X(08). DESIL200
00048 DESIL200
00049 DESIL200
00050 10 L200-COMPLETION-AREA. DESIL200
00051 15 L200-EMP-NO PIC S9(07) COMP-3. DESIL200
00052 15 L200-REPORTING-DATE PIC 9(08). DESIL200
00053 15 L200-TOT-CNT PIC 9(07). DESIL200
00054 15 L200-SUCCESS-CNT PIC 9(07). DESIL200
00055 DESIL200
00056 10 L200-RETURN-CD PIC X(01). DESIL200
00057 88 L200-SUCCESSFUL-88 VALUE '0'. DESIL200
00058 88 L200-ERROR-88 VALUE '1'. DESIL200
00059 DESIL200
00060 DESIL200