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