00001 *****                                                             08/28/02
00002 *                                                                 DTSIL935
00003 *    DTSIL935    BATCH ELECTRONIC MEDIA FILE I/O LINKAGE.            LV001
00004 *                                                                 DTSIL935
00005 *    DTSIL935 AND DTSIESKL DEFINE THE LINKAGE AREAS TO            DTSIL935
00006 *    DTSBU935 (ELECTONIC MEDIA FILE INPUT/OUTPUT).                DTSIL935
00007 *                                                                 DTSIL935
00008 *    CREATED FOR DC 01/17/2001 GD                                 DTSIL935
00009 *    ADDED L935-WRITE-CHK-DUP-KEY-88 AND L935-DUP-KEY-88.         DTSIL935
00010 *    WHEN L935-WRITE-CHK-DUP-KEY-88 IS SET, THE I-O MODULE        DTSIL935
00011 *    WILL TEST FOR A DUPLICATE KEY CONDITION WHEN PERFORMING A    DTSIL935
00012 *    WRITE COMMAND, WILL SET L935-DUP-KEY-88 WHEN AN ATTEMPT TO   DTSIL935
00013 *    WRITE RETURNS A DUPLICATE KEY.  THIS TEST IS NEEDED FOR      DTSIL935
00014 *    EEMH PROCESSING.  WAGE RECORDS ARE NOT IN EMPLOYER NUMBER    DTSIL935
00015 *    ORDER, AND EMPLOYERS MAY BE DUPLICATED.  03/26/2001  GD.     DTSIL935
00016 *****                                                             DTSIL935
00017      SKIP1                                                        DTSIL935
00018          10  L935-TRACE-IND              PIC  X(01).              DTSIL935
00019              88  L935-TRACE-88               VALUE 'T'.           DTSIL935
00020      SKIP1                                                        DTSIL935
00021          10  L935-MOD-NAME               PIC  X(08).              DTSIL935
00022      SKIP1                                                        DTSIL935
00023          10  L935-CMND-CD                PIC  X(03).              DTSIL935
00024              88  L935-OPEN-READ-88               VALUE 'OPR'.     DTSIL935
00025              88  L935-OPEN-UPDATE-88             VALUE 'OPU'.     DTSIL935
00026              88  L935-OPEN-UPDATE-HDR-88         VALUE 'OPH'.     DTSIL935
00027              88  L935-OPEN-UPDATE-NO-AIX-88      VALUE 'OPA'.     DTSIL935
00028              88  L935-READ-88                    VALUE 'RD '.     DTSIL935
00029              88  L935-START-BROWSE-88            VALUE 'STB'.     DTSIL935
00030              88  L935-READ-NEXT-88               VALUE 'RDN'.     DTSIL935
00031              88  L935-WRITE-88                   VALUE 'WR '.     DTSIL935
00032              88  L935-WRITE-CHK-DUP-KEY-88       VALUE 'WRD'.     DTSIL935
00033              88  L935-REWRITE-88                 VALUE 'RWR'.     DTSIL935
00034              88  L935-DELETE-88                  VALUE 'DEL'.     DTSIL935
00035              88  L935-CLOSE-88                   VALUE 'CL '.     DTSIL935
00036          10  FILLER REDEFINES L935-CMND-CD.                       DTSIL935
00037              15  L935-CMND-CD-2          PIC  X(02).              DTSIL935
00038                  88  L935-OPEN-88                VALUE 'OP'.      DTSIL935
00039              15  FILLER                  PIC  X(01).              DTSIL935
00040      SKIP1                                                        DTSIL935
00041          10  FILLER                      PIC  X(51).              DTSIL935
00042      SKIP1                                                        DTSIL935
00043          10  L935-RESULT-IND             PIC  X(01).              DTSIL935
00044              88  L935-OK-88                      VALUE '0'.       DTSIL935
00045              88  L935-NO-REC-88                  VALUE '1'.       DTSIL935
00046              88  L935-DUP-KEY-88                 VALUE '2'.       DTSIL935