47 lines
3.6 KiB
COBOL
47 lines
3.6 KiB
COBOL
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
|