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