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