00001 *****                                                             08/11/98
00002 *                                                                 DTSIL829
00003 *    DTSIL829     TEMPORARY STORAGE INPUT/OUTPUT LINKAGE.            LV003
00004 *                                                                 DTSIL829
00005 *                 DTSIL829 IS USED IN CONJUNCTION WITH A TEMPORARY   CL**2
00006 *                 STORAGE RECORD AREA TO FORM THE COMMUNICATIONS  DTSIL829
00007 *                 AREA TO DTSCU829.                                  CL**2
00008 *                                                                    CL**3
00009 *                 REVIEWED AND MODIFIED FOR DC.  08/11/1998  EHH     CL**3
00010 *                                                                    CL**3
00011 *****                                                             DTSIL829
00012                                                                      CL**2
00013 *********10  L829-COMM-AREA-LENGTH       PIC S9(04)       COMP.      CL**2
00014 *********10  L829-CONTROL-BLOCK-LENGTH   PIC S9(04)       COMP       CL**2
00015 *************************************************VALUE +64.          CL**2
00016                                                                      CL**2
00017          10  L829-CMND-CD                PIC  X(03).              DTSIL829
00018              88  L829-READ-ITEM-88               VALUE 'RDI'.     DTSIL829
00019              88  L829-READ-NEXT-88               VALUE 'RDN'.     DTSIL829
00020              88  L829-WRITE-88                   VALUE 'WR '.     DTSIL829
00021              88  L829-REWRITE-88                 VALUE 'RWR'.     DTSIL829
00022              88  L829-DELETE-QUEUE-88            VALUE 'DEL'.     DTSIL829
00023                                                                      CL**2
00024          10  L829-QUEUE-NAME.                                     DTSIL829
00025              15  L829-QUEUE-NAME-PREFIX  PIC  X(07).              DTSIL829
00026              15  L829-QUEUE-NAME-SUFFIX  PIC  X(01).              DTSIL829
00027                                                                      CL**2
00028          10  L829-ITEM-NO                PIC S9(04)  COMP.        DTSIL829
00029                                                                      CL**2
00030          10  L829-REC-LENGTH             PIC S9(04)  COMP.        DTSIL829
00031                                                                      CL**2
00032          10  L829-STORAGE-TYPE           PIC  X(01).              DTSIL829
00033              88  L829-DEFAULT-STORAGE-88         VALUE LOW-VALUES.DTSIL829
00034              88  L829-AUXILIARY-STORAGE-88       VALUE 'A'.       DTSIL829
00035              88  L829-MAIN-STORAGE-88            VALUE 'M'.       DTSIL829
00036                                                                      CL**2
00037          10  FILLER                      PIC  X(47).                 CL**2
00038                                                                      CL**2
00039          10  L829-RESULT-IND             PIC  X(01).              DTSIL829
00040              88  L829-OK-88                      VALUE '0'.       DTSIL829
00041              88  L829-ITEMERR-88                 VALUE '1'.       DTSIL829
00042              88  L829-QIDERR-88                  VALUE '2'.       DTSIL829
00043              88  L829-NO-REC-88                  VALUE '1' '2'.   DTSIL829