00001 *****                                                             05/11/99
00002 *                                                                 DTSIL356
00003 *    DTSIL356    PRINTER CONTROL CODES PROCESSING                    LV002
00004 *                MODULE LINKAGE.                                  DTSIL356
00005 *                                                                 DTSIL356
00006 *****                                                             DTSIL356
00007                                                                   DTSIL356
00008 *        10  L356-LENGTH         PIC S9(04)  COMP  VALUE +150.       CL**2
00009                                                                   DTSIL356
00010          10  L356-DEVICE-ID              PIC  X(04).              DTSIL356
00011                                                                   DTSIL356
00012          10  L356-DEVICE-TYPE            PIC  X(01).              DTSIL356
00013              88  L356-DEVICE-TERMINAL-88     VALUE 'T'.           DTSIL356
00014              88  L356-DEVICE-PCL5-NO-88      VALUE 'N'.           DTSIL356
00015              88  L356-DEVICE-PCL5-YES-88     VALUE 'Y'.           DTSIL356
00016                                                                   DTSIL356
00017          10  L356-PRINT-LINE             PIC  X(132).                CL**2
00018                                                                   DTSIL356
00019          10  FILLER                      PIC  X(18).              DTSIL356