00001 ***** 11/11/05 00002 * DTSIL835 00003 * DTSIL835 ON-LINE ELECTRONIC MEDIA FILE LV001 00004 * INPUT/OUTPUT LINKAGE. DTSIL835 00005 * DTSIL835 00006 * INITIAL DEVELOPMENT. 01/18/2001 GD. DTSIL835 00007 * DTSIL835 00008 * ADDED L935-WRITE-CHK-DUP-KEY-88 AND L935-DUP-KEY-88. DTSIL835 00009 * WHEN L935-WRITE-CHK-DUP-KEY-88 IS SET, THE I-O MODULE DTSIL835 00010 * WILL TEST FOR A DUPLICATE KEY CONDITION WHEN PERFORMING A DTSIL835 00011 * WRITE COMMAND, WILL SET L935-DUP-KEY-88 WHEN AN ATTEMPT TO DTSIL835 00012 * WRITE RETURNS A DUPLICATE KEY. 03/26/2001 GD. DTSIL835 00013 * DTSIL835 00014 * LINKAGE EXAMPLE: DTSIL835 00015 * DTSIL835 00016 * 01 L835-COMM-AREA. DTSIL835 00017 * 05 L835-CONTROL-BLOCK. DTSIL835 00018 * COPY DTSIL835. DTSIL835 00019 * SKIP3 DTSIL835 00020 * 05 ESKL-REC. DTSIL835 00021 * COPY DTSIESKL. DTSIL835 00022 * DTSIL835 00023 * EXEC CICS DTSIL835 00024 * LINK DTSIL835 00025 * PROGRAM ('DTSCU835') DTSIL835 00026 * COMMAREA (L835-COMM-AREA) DTSIL835 00027 * END-EXEC. DTSIL835 00028 * DTSIL835 00029 * USE L835-READ-UPDATE-88 / L835-REWRITE-UPDATE-88 DTSIL835 00030 * ONLY WHEN: DTSIL835 00031 * DTSIL835 00032 * 1. UPDATING THE EHDR RECORD. DTSIL835 00033 * DTSIL835 00034 * 2. IN DTSCU222, WHEN UPDATING EPRF-ONLINE-UPDATE-DATA. DTSIL835 00035 * DTSIL835 00036 * OTHERWISE, JUST USE L835-READ-88 / L835-REWRITE-88 DTSIL835 00037 * OR L835-DELETE-88. DTSIL835 00038 * DTSIL835 00039 ***** DTSIL835 00040 DTSIL835 00041 10 L835-CMND-CD PIC X(03). DTSIL835 00042 88 L835-READ-88 VALUE 'RD '. DTSIL835 00043 88 L835-START-BROWSE-88 VALUE 'STB'. DTSIL835 00044 88 L835-READ-NEXT-88 VALUE 'RDN'. DTSIL835 00045 88 L835-READ-PREV-88 VALUE 'RDP'. DTSIL835 00046 88 L835-END-BROWSE-88 VALUE 'ENB'. DTSIL835 00047 88 L835-WRITE-88 VALUE 'WR '. DTSIL835 00048 88 L835-WRITE-CHK-DUP-KEY-88 VALUE 'WRD'. DTSIL835 00049 88 L835-REWRITE-88 VALUE 'RWR'. DTSIL835 00050 88 L835-DELETE-88 VALUE 'DEL'. DTSIL835 00051 88 L835-COUNT-88 VALUE 'CNT'. DTSIL835 00052 88 L835-READ-UPDATE-88 VALUE 'RDU'. DTSIL835 00053 88 L835-REWRITE-UPDATE-88 VALUE 'RWU'. DTSIL835 00054 DTSIL835 00055 10 L835-RECORD-CNT PIC S9(08) COMP. DTSIL835 00056 DTSIL835 00057 10 FILLER PIC X(56). DTSIL835 00058 DTSIL835 00059 10 L835-MSG-AREA. DTSIL835 00060 15 L835-MSG-ID PIC X(04). DTSIL835 00061 15 L835-MSG-TXT PIC X(60). DTSIL835 00062 DTSIL835 00063 10 L835-RESULT-IND PIC X(01). DTSIL835 00064 88 L835-OK-88 VALUE '0'. DTSIL835 00065 88 L835-NO-REC-88 VALUE '1'. DTSIL835 00066 88 L835-DUP-KEY-88 VALUE '2'. DTSIL835 00067 88 L835-FILE-CLOSED-88 VALUE '9'. DTSIL835