******************************************************************************* * * uniVerse include file for GETPU/SETPU keys * * Module GETPU.H * * (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved * This is unpublished proprietary source code of Ardent Software Inc. * The copyright notice above does not evidence any actual or intended * publication of such source code. * ******************************************************************************* EQUATE PU$FIRSTWRITEKEY TO 1 ;* First READ/WRITE key EQUATE PU$MODE TO 1 ;* Printer mode (0 for terminal) EQUATE PU$WIDTH TO 2 ;* Device width (columns) EQUATE PU$LENGTH TO 3 ;* Device length (lines) EQUATE PU$TOPMARGIN TO 4 ;* Top margin (lines) EQUATE PU$BOTMARGIN TO 5 ;* Bottom margin (lines) EQUATE PU$LEFTMARGIN TO 6 ;* Left margin (columns) EQUATE PU$SPOOLFLAGS TO 7 ;* Spool option flags EQUATE PU$DEFERTIME TO 8 ;* Spool defer time (mins after m'night) EQUATE PU$FORM TO 9 ;* Spool form type (string) EQUATE PU$BANNER TO 10 ;* Spool banner (string) EQUATE PU$LOCATION TO 11 ;* Spool location (string) EQUATE PU$COPIES TO 12 ;* Number of copies to spool EQUATE PU$DISKNUMBER TO 13 ;* Spool disk number EQUATE PU$PAGING TO 14 ;* Pause at page end (terminal only) EQUATE PU$PAGENUMBER TO 15 ;* Set page number EQUATE PU$DISABLE TO 16 ;* Disable or enable this print unit EQUATE PU$CONNECT TO 17 ;* Connect two print units EQUATE PU$DEVICENO TO 18 ;* Logical device number (modes 2,4,5) EQUATE PU$PRIORITY TO 19 ;* Spool job priority 0 - 255 EQUATE PU$USEROPTS TO 20 ;* Text string of user options to pass through EQUATE PU$RELEASE TO 21 ;* Allow print unit to be reused. EQUATE PU$NLSMAP TO 22 ;* Set/Read print unit NLS map. EQUATE PU$FONTBOLD TO 23 ;* Print text in bold font. EQUATE PU$FONTITALIC TO 24 ;* Print text in italic font. EQUATE PU$FONTNAME TO 25 ;* Font name to be used in GDI mode. EQUATE PU$FONTSIZE TO 26 ;* Font size to be used in GDI mode. EQUATE PU$GDI TO 27 ;* Request GDI mode printing. EQUATE PU$LINESPACE TO 28 ;* Line spacing to be used in GDI mode. EQUATE PU$RAW TO 29 ;* Request raw mode printing. EQUATE PU$TABSIZE TO 30 ;* Tab stop spacing to be used in GDI mode. EQUATE PU$LASTWRITEKEY TO 30 ;* Last READ/WRITE key EQUATE PU$FIRSTREADKEY TO 1001 ;* First READ-ONLY key EQUATE PU$COLUMNSLEFT TO 1001 ;* Cols left before new line needed EQUATE PU$LINESLEFT TO 1002 ;* Lines left before new page needed EQUATE PU$HEADERLINES TO 1003 ;* Lines taken by current header EQUATE PU$FOOTERLINES TO 1004 ;* Lines taken by current footer EQUATE PU$DATALINES TO 1005 ;* Lines between current header and footer EQUATE PU$DATACOLUMNS TO 1006 ;* Cols between left margin and dev width EQUATE PU$ASSIGN TO 1007 ;* Assign highest available print unit EQUATE PU$LASTREADKEY TO 1007 ;* Last READ-ONLY key EQUATE PU$DISCONNECT TO 10000 ;* 'magic' number for a disconnected print unit * END-CODE