63 lines
4.9 KiB
COBOL
63 lines
4.9 KiB
COBOL
00001 ***** 08/11/98
|
|
00002 * DTSIL810
|
|
00003 * DTSIL810 ON-LINE MASTER FILE INPUT/OUTPUT LINKAGE. LV004
|
|
00004 * DTSIL810
|
|
00005 * REVIEWED AND MODIFIED FOR DC. 08/11/1998 EHH CL**4
|
|
00006 * CL**4
|
|
00007 * CL**4
|
|
00008 * LINKAGE EXAMPLE: DTSIL810
|
|
00009 * DTSIL810
|
|
00010 * 01 L810-COMM-AREA. DTSIL810
|
|
00011 * 05 L810-CONTROL-BLOCK. DTSIL810
|
|
00012 * COPY DTSIL810. CL**2
|
|
00013 * SKIP3 DTSIL810
|
|
00014 * 05 MSKL-REC. DTSIL810
|
|
00015 * COPY DTSIMSKL. CL**2
|
|
00016 * DTSIL810
|
|
00017 * EXEC CICS DTSIL810
|
|
00018 * LINK DTSIL810
|
|
00019 * PROGRAM ('DTSCU810') CL**2
|
|
00020 * COMMAREA (L810-COMM-AREA) DTSIL810
|
|
00021 * END-EXEC. DTSIL810
|
|
00022 * DTSIL810
|
|
00023 * USE L810-READ-UPDATE-88 / L810-REWRITE-UPDATE-88 DTSIL810
|
|
00024 * ONLY WHEN: DTSIL810
|
|
00025 * DTSIL810
|
|
00026 * 1. UPDATING THE MHDR RECORD. DTSIL810
|
|
00027 * DTSIL810
|
|
00028 * 2. IN DTSCU221, WHEN UPDATING MPRF-ONLINE-UPDATE-DATA. CL**2
|
|
00029 * DTSIL810
|
|
00030 * OTHERWISE, JUST USE L810-READ-88 / L810-REWRITE-88 DTSIL810
|
|
00031 * OR L810-DELETE-88. DTSIL810
|
|
00032 * DTSIL810
|
|
00033 ***** DTSIL810
|
|
00034 CL**2
|
|
00035 *********10 L810-LENGTH PIC S9(04) COMP CL**2
|
|
00036 *************************************************VALUE +1664. CL**2
|
|
00037 CL**2
|
|
00038 10 L810-CMND-CD PIC X(03). DTSIL810
|
|
00039 88 L810-READ-88 VALUE 'RD '. DTSIL810
|
|
00040 88 L810-START-BROWSE-88 VALUE 'STB'. DTSIL810
|
|
00041 88 L810-READ-NEXT-88 VALUE 'RDN'. DTSIL810
|
|
00042 88 L810-READ-PREV-88 VALUE 'RDP'. DTSIL810
|
|
00043 88 L810-END-BROWSE-88 VALUE 'ENB'. DTSIL810
|
|
00044 88 L810-WRITE-88 VALUE 'WR '. DTSIL810
|
|
00045 88 L810-REWRITE-88 VALUE 'RWR'. DTSIL810
|
|
00046 88 L810-DELETE-88 VALUE 'DEL'. DTSIL810
|
|
00047 88 L810-COUNT-88 VALUE 'CNT'. DTSIL810
|
|
00048 88 L810-READ-UPDATE-88 VALUE 'RDU'. DTSIL810
|
|
00049 88 L810-REWRITE-UPDATE-88 VALUE 'RWU'. DTSIL810
|
|
00050 CL**2
|
|
00051 10 L810-RECORD-CNT PIC S9(08) COMP. DTSIL810
|
|
00052 CL**2
|
|
00053 10 FILLER PIC X(56). CL**3
|
|
00054 CL**2
|
|
00055 10 L810-MSG-AREA. DTSIL810
|
|
00056 15 L810-MSG-ID PIC X(04). DTSIL810
|
|
00057 15 L810-MSG-TXT PIC X(60). DTSIL810
|
|
00058 CL**2
|
|
00059 10 L810-RESULT-IND PIC X(01). DTSIL810
|
|
00060 88 L810-OK-88 VALUE '0'. DTSIL810
|
|
00061 88 L810-NO-REC-88 VALUE '1'. DTSIL810
|
|
00062 88 L810-FILE-CLOSED-88 VALUE '9'. DTSIL810
|