61 lines
4.7 KiB
COBOL
61 lines
4.7 KiB
COBOL
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
|