00001 *****                                                             09/09/98
00002 *                                                                 DTSIL825
00003 *    DTSIL825     ONLINE ACTIVITY FILE OUTPUT LINKAGE.               LV002
00004 *                                                                 DTSIL825
00005 *    DTSIL825 IS USED IN CONJUNCTION WITH DTSIRSK1 OR                CL**2
00006 *    DTSIRSK2 OR DTSIRSK3 TO FORM THE COMMUNICATIONS AREA            CL**2
00007 *    TO DTSCU825.                                                    CL**2
00008 *                                                                 DTSIL825
00009 *                                                                    CL**2
00010 *                 09/09/1998  REVIEWED AND MODIFIED FOR DC.  EHH     CL**2
00011 *                                                                    CL**2
00012 *****                                                             DTSIL825
00013                                                                      CL**2
00014          10  L825-CMND-CD                PIC  X(03).              DTSIL825
00015              88  L825-WRITE-88                   VALUE 'WR '.     DTSIL825
00016                                                                      CL**2
00017          10  FILLER                      PIC  X(60).                 CL**2
00018                                                                      CL**2
00019          10  L825-MSG-AREA.                                       DTSIL825
00020              15  L825-MSG-ID             PIC  X(04).              DTSIL825
00021              15  L825-MSG-TXT            PIC  X(60).              DTSIL825
00022                                                                      CL**2
00023          10  L825-RESULT-IND             PIC  X(01).              DTSIL825
00024              88  L825-OK-88                      VALUE '0'.       DTSIL825
00025              88  L825-FILE-CLOSED-88             VALUE '9'.       DTSIL825