Einen Versuch ist's wert:

CRTOUTQ OUTQ(QUSRSYS/PRT01) RMTSYS(*INTNETADR) RMTPRTQ('d1prn')
CNNTYPE(*IP) DESTTYPE(*OTHER) MFRTYPMDL(*WSCSTCONT132)
WSCST(*LIBL/QWPDEFAULT) INTNETADR('xxx.xxx.xxx.xxx')

CRTDEVPRT DEVD(PRT01) DEVCLS(*VRT) TYPE(3812) MODEL(1) FONT(11)

http://www-01.ibm.com/support/docvie...d=nas8N1010172