Date:         Tue, 18 Nov 1997 08:25:40 GMT
Reply-To:     REXX Programming discussion list <REXXLIST@UGA.CC.UGA.EDU>
Sender:       REXX Programming discussion list <REXXLIST@UGA.CC.UGA.EDU>
From:         Simon Ellis <simon.ellis@BIGFOOT.COM>
Organization: British Telecom
Subject:      Using SysCreateObjects with Printers
Content-Type: text/plain; charset=us-ascii

I'm attempting to use the following code to create a printer icon on
an OS/2 2.11 LAN  server and the second piece to create an icon on a
machine using the server's shared printer.
However, only the icon is being created, when you click on it you have
to enter all the printer details, which is not very helpful.
Any suggestions would be greatly appreciated.
Cheers, Simon.
 
/*Server code*/
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
 
Title    = "Printer"
Class    = "WPPrinter"
Setup    = "QUEUENAME=Printer2;QSTARTTIME=00:00;" ||,
             "QSTOPTIME=00:00;APPDEFAULT=NO;" ||,
             "PRINTSPECIFICFORMAT=NO;PRINTWHILSPOOLING=YES;" ||,
             "PRINTDRIVER=IBM42XX.IBM 4207 Proprinter X24E;" ||,
             "QUEUEDRIVER=PMPRINT;OUTPUTTOFILE=NO;PORTNAME=LPT1;" ||,
             "JOBDIALOGBEFOREPRINT=NO;TITLE=Printer;NOPRINT=YES;" ||,
             "HIDEBUTTON=DEFAULT;MINWIN=DEFAULT;CCVIEW=DEFAULT;" ||,
             "DEFAULTVIEW=DEFAULT;"
Location = "<WP_DESKTOP>"
 
call SysCreateObject class       ,,
                                          title       ,,
 
                                          location    ,,
 
                                          setup  ,,
 
/*end of server code*/
 
/*Workstation Code */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
 
 
Title    = "Printer"
Class    = "WPRPrinter"
Setup    = "NETID=LS\PRIMARY\PRINTER2;QUEUENAME=PRINTER2;" ||,
                 "QSTARTTIME=00:00;QSTOPTIME=00:00;APPDEFAULT=NO;" ||,
                 "PRINTSPECIFICFORMAT=NO;PRINTWHILSPOOLING=NO;" ||,
                 "PRINTDRIVER=IBM42XX.IBM 4207 Proprinter X24E;" ||,
                 "QUEUEDRIVER=PMPRINT;JOBDIALOGBEFOREPRINT=NO;" ||,
                 "TITLE=Printer;NOPRINT=YES;HIDEBUTTON=DEFAULT;" ||,
                 "MINWIN=DEFAULT;CCVIEW=DEFAULT;DEFAULTVIEW=DEFAULT;"
Location = "<WP_DESKTOP>"
 
call SysCreateObject class       ,,
                        title       ,,
                        location    ,,
                        setup       ,,
 
/*end of workstation code*/