00001 *****                                                             11/03/98
00002 *                                                                 DTSIL357
00003 *    DTSIL357    ON-LINE PRINT MODULE LINKAGE                        LV002
00004 *                                                                 DTSIL357
00005 *                                                                    CL**2
00006 *                11/03/1998  REVIEWED AND MODIFIED FOR DC.  EHH      CL**2
00007 *                                                                    CL**2
00008 *****                                                             DTSIL357
00009                                                                      CL**2
00010          10  L357-QUEUE-NAME             PIC  X(08).              DTSIL357
00011                                                                      CL**2
00012          10  L357-EJECT-PAGE-IND         PIC  X(01).              DTSIL357
00013              88  L357-EJECT-PAGE-88             VALUE 'Y'.        DTSIL357
00014              88  L357-NO-EJECT-PAGE-88          VALUE 'N'.        DTSIL357
00015                                                                      CL**2
00016          10  L357-PRINTER-ID             PIC  X(04).              DTSIL357
00017                                                                      CL**2
00018          10  L357-RESULT-IND             PIC  X(01).              DTSIL357
00019              88  L357-OK-88                     VALUE '0'.        DTSIL357
00020              88  L357-FAILED-88                 VALUE '9'.        DTSIL357
00021                                                                      CL**2
00022          10  FILLER                      PIC  X(18).                 CL**2