[NEWSboard IBMi Forum]
  1. #1
    Registriert seit
    Feb 2004
    Beiträge
    41

    Drucker beenden und erneut starten.

    Hallo,
    durch Papierstau, Tonerwechsel…, steht der Drucker auf MSGW und die spools auf RDY.
    nach der Behebung vom Fahleren (Papierstau, Toner,), muss man der Drucker beenden, erneut starten und nachschauen, ob durch den Stopp irgendein Spool auf Hld geblieben ist.

    kann ich diese 3 Schritte in einem CL Programm packen?

    1-Drucker beenden (ENDWTR WTR(writer-name) OPTION(*IMMED))

    2-Drucker starten (STRPRTWTR DEV(printer-device-name))

    3-falls ein Spool auf HLD geblieben ist, soll freigegeben werden.

    danach in einem CL-Menü-Punkt integrieren, wo der User(nach Fehlerbehebung) den Menü-Punkt auswählt und Writer-name eingebt.

    Danke im Voraus.

  2. #2
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  3. #3
    Registriert seit
    Feb 2004
    Beiträge
    41
    Danke.
    für die 1 und 2, habe ich das überlegt:

    PGM
    ENDWTR WTR(prtprod1) OPTION(*IMMED)
    STRPRTWTR DEV(prtprod1)
    ENDPGM
    Spooldaten mit hld status zum auflisten :
    WRKSPLF select (*all prtprod1 *all '*hld*').
    bleibt die Frage, wie kann ich die 3 in einem CL Befehl packen?

  4. #4
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    Wenn du kein CLP-Programm schreiben kannst, hast du ein Problem.
    Das Forum macht i.d.R. keine Programmierschulungen.
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  5. #5
    Registriert seit
    Nov 2003
    Beiträge
    2.304
    Auf welche Nachricht wartet der MSGW?
    Könnte man da nicht die passende Antwort geben?
    Warum gehen die Spools auf HLD und nicht auf RDY?

    Zitat Zitat von monet Beitrag anzeigen
    durch Papierstau, Tonerwechsel…, steht der Drucker auf MSGW und die spools auf RDY.
    nach der Behebung vom Fahleren (Papierstau, Toner,), muss man der Drucker beenden, erneut starten und nachschauen, ob durch den Stopp irgendein Spool auf Hld geblieben ist.

  6. #6
    Registriert seit
    Nov 2003
    Beiträge
    2.304
    Einen Befehl erstellt man ähnlich wie ein CL-Programm.
    - Quellentyp CMD statt CLP
    - Befehl CMD statt PGM/ENDPGM
    - Befehl PARM (oder QUAL, ELEM, ...) bei Parametern
    - Wandeln mit CRTCMD oder Auswahl 14 im PDM.
    - Welches CL-Programm (o.ä.) aufgerufen wird, gibt man beim CRTCMD an.

    Example: Creating abbreviated change job CL command

    Zitat Zitat von monet Beitrag anzeigen
    bleibt die Frage, wie kann ich die 3 in einem CL Befehl packen?

  7. #7
    Registriert seit
    Feb 2004
    Beiträge
    41
    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?

Similar Threads

  1. Datenbank starten und beenden
    By vogeste0 in forum NEWSboard SAP
    Antworten: 5
    Letzter Beitrag: 30-04-03, 10:59
  2. Datenbank starten und beenden
    By vogeste0 in forum IBM i Hauptforum
    Antworten: 5
    Letzter Beitrag: 30-04-03, 10:59
  3. Erfolgskurs Innovation: IBM erneut Patentweltmeister
    By Burgy Zapp in forum Archiv NEWSblibs
    Antworten: 0
    Letzter Beitrag: 01-02-02, 18:00
  4. Erneut erfolgreiches Geschäftsjahr für Softwarehaus command ag
    By RM Haaßengier in forum Archiv NEWSblibs
    Antworten: 0
    Letzter Beitrag: 28-08-01, 13:00
  5. Drucker neu starten
    By Wirnitzer in forum NEWSboard Drucker
    Antworten: 7
    Letzter Beitrag: 07-08-01, 09:57

Tags for this Thread

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • You may not post attachments
  • You may not edit your posts
  •