Danke für den Hinweis.

Status Hld, kommt nicht immer(nur beim Toner-Wechsel, Beleuchtungseinheit oder Fixiereinheit Wechsel, also länger Einsatz), sonst ist immer RDY.

nach Recherchen habe ich folgendes gefunden und kombiniert.

/* STRPRTWTR (Start a Printer Writer) CL Program */

STRSEU SRCFILE(QGPL/QCLSRC) SRCMBR(STRPRTWTR) TYPE(CLP)
OPTION(2) TEXT('Drucker starten')

/* kann ich diese CL source code in STRPRTWTR source member ?*/
/* Beispiel für Drucker starten */
BEGIN: PGM
DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
DCL VAR(&MSGF) TYPE(*CHAR) LEN(10)
DCL VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(2000)
/*??DEV(*N) Druckername wird abgefragt */
STRPRTWTR ??DEV(*N)
MONMSG MSGID(CPC0000 CPD0000 CPF0000) EXEC(DO)
RCVMSG RMV(*YES) MSGDTA(&MSGDTA) MSGID(&MSGID) +
MSGF(&MSGF) MSGFLIB(&MSGFLIB)
SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
MSGDTA(&MSGDTA)
ENDDO
END: ENDPGM
/*F3 um die Änderung zu speichern */
/* Create CL Program (CRTCLPGM) */



STRSEU SRCFILE(QGPL/QCLSRC) SRCMBR(ENDWTR) TYPE(CLP) OPTION(2)
TEXT('Drucker beenden')

/* kann ich diese CL source code in ENDWTR source member ?*/

/*das gleiche gilt für ENDWTR (mit Option *immed)*/
BEGIN: PGM
DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
DCL VAR(&MSGF) TYPE(*CHAR) LEN(10)
DCL VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(2000)
/* geht diese OPTION(*immed)*?/
ENDWTR ??WTR(*N) OPTION(*immed)
MONMSG MSGID(CPC0000 CPD0000 CPF0000) EXEC(DO)
RCVMSG RMV(*YES) MSGDTA(&MSGDTA) MSGID(&MSGID) +
MSGF(&MSGF) MSGFLIB(&MSGFLIB)
SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
MSGDTA(&MSGDTA)
ENDDO
END: ENDPGM

/* Create CL Program (CRTCLPGM) */
CRTCLPGM PGM(QGPL/ENDWTR) SRCFILE(QGPL/QCLSRC) TEXT(*SRCMBRTXT)
USRPRF(*OWNER) AUT(*USE)

kann ich die CL Codes direkt in STRPTRWTR bzw. ENDWTR Member einfügen oder soll ich jeweils code neue Member definieren?
ist die Option (*immed) bei ENDWTR richtig?