giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
Copybook/DTSIL835.cpy Normal file
View File

@ -0,0 +1,67 @@
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