00001 *****                                                             09/13/98
00002 *                                                                 DTSIL833
00003 *    DTSIL833     SIC FILE INPUT LINKAGE.                            LV002
00004 *                                                                 DTSIL833
00005 *    DTSIL833 IS USED IN CONJUNCTION WITH DTSIXSIC TO                CL**2
00006 *    FORM THE COMMUNICATIONS AREA TO DTSCU833 (SIC                   CL**2
00007 *    FILE INPUT).                                                 DTSIL833
00008 *                                                                 DTSIL833
00009 *****                                                             DTSIL833
00010      SKIP1                                                        DTSIL833
00011          10  L833-CMND-CD                PIC  X(03).              DTSIL833
00012              88  L833-READ-88                    VALUE 'RD '.     DTSIL833
00013      SKIP1                                                        DTSIL833
00014          10  FILLER                      PIC  X(58).              DTSIL833
00015      SKIP1                                                        DTSIL833
00016          10  L833-MSG-AREA.                                       DTSIL833
00017              15  L833-MSG-ID             PIC  X(04).              DTSIL833
00018              15  L833-MSG-TXT            PIC  X(60).              DTSIL833
00019      SKIP1                                                        DTSIL833
00020          10  L833-RESULT-IND             PIC  X(01).              DTSIL833
00021              88  L833-OK-88                      VALUE '0'.       DTSIL833
00022              88  L833-NO-REC-88                  VALUE '1'.       DTSIL833
00023              88  L833-FILE-CLOSED-88             VALUE '9'.       DTSIL833