68 lines
5.3 KiB
COBOL
68 lines
5.3 KiB
COBOL
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
|