Comments on: Device Printers http://itknowledgeexchange.techtarget.com/itanswers/device-printers/ Wed, 22 May 2013 14:10:57 +0000 hourly 1 By: woodengineer http://itknowledgeexchange.techtarget.com/itanswers/device-printers/#comment-53223 woodengineer Thu, 15 May 2008 16:05:38 +0000 #comment-53223 Asking the user to remember system printer names can be a challenge. We wrote a command using the special value feature which allows the user to enter “AcctPrinter”, “Marys Prt”, etc. The replacement value sends the system name to the command processing program. The system allows 300 replacement values to be coded for a command parm which is probably enough for most.

]]> By: silvarb http://itknowledgeexchange.techtarget.com/itanswers/device-printers/#comment-53207 silvarb Thu, 15 May 2008 00:57:24 +0000 #comment-53207 Below, the CL (not works)

PGM PARM(&DEV)
DCL VAR(&DEV) TYPE(*CHAR) LEN(10)
DCL VAR(&MESAGE) TYPE(*CHAR) LEN(80)
CHKOBJ OBJ(QSYS/&DEV) OBJTYPE(*DEVD)
MONMSG MSGID(CPF9801) EXEC(DO)
CHGVAR VAR(&MESAGE) VALUE(‘Impressora ‘ *CAT &DEV +
*BCAT ‘Nao existe, Confirme o nome da +
Impressora’)
GOTO CMDLBL(END)
ENDDO
WRKCFGSTS CFGTYPE(*DEV) CFGD(&DEV)
GOTO CMDLBL(END)
END: ENDPGM

]]>