00001 *****                                                             07/27/98
00002 *                                                                 DTSICPRT
00003 *    MACICPRT  PRINTER CONTROL LITERALS.                             LV001
00004 *                                                                 DTSICPRT
00005 *       NOTE:  IF A PRINTER CONTROL LITERAL IS ADDED OR MODIFIED, DTSICPRT
00006 *              THEN MACCU356 MUST BE MODIFIED (NOT JUST           DTSICPRT
00007 *              RECOMPILED, BUT MODIFIED).                         DTSICPRT
00008 *                                                                 DTSICPRT
00009 *****                                                             DTSICPRT
00010      05  CPRT-PRINTER-LITERALS.                                   DTSICPRT
00011          10  CPRT-NEW-LINE                PIC  X(01)  VALUE X'15'.DTSICPRT
00012          10  CPRT-FORM-FEED               PIC  X(01)  VALUE X'0C'.DTSICPRT
00013                                                                   DTSICPRT
00014          10  CPRT-SELECT-UPPER-TRAY       PIC  X(01)  VALUE X'01'.DTSICPRT
00015          10  CPRT-SELECT-LOWER-TRAY       PIC  X(01)  VALUE X'02'.DTSICPRT
00016          10  CPRT-ENABLE-UNDERLINE-FIX    PIC  X(01)  VALUE X'03'.DTSICPRT
00017          10  CPRT-ENABLE-UNDERLINE-FLOAT  PIC  X(01)  VALUE X'04'.DTSICPRT
00018          10  CPRT-DISABLE-UNDERLINE       PIC  X(01)  VALUE X'05'.DTSICPRT
00019          10  CPRT-STROKE-WEIGHT-BOLD      PIC  X(01)  VALUE X'06'.DTSICPRT
00020          10  CPRT-STROKE-WEIGHT-REGULAR   PIC  X(01)  VALUE X'07'.DTSICPRT
00021                                                                   DTSICPRT
00022          10  CPRT-PCL5-ESCAPE-CHAR        PIC  X(01)  VALUE X'27'.DTSICPRT