[NEWSboard IBMi Forum]
Seite 1 von 2 1 2 Letzte

Thema: QSYGETPH API

  1. #1
    Registriert seit
    Aug 2003
    Beiträge
    62

    QSYGETPH API

    Versuche gerade mit QSYGETPH den User eines Jobs zu ändern. Laut Dokumentation von IBM ist als Passwort auch *NOPWD erlaubt. Dies führt bei mir aber immer zu dem Fehler Kennwort falsch. Der User hat *USE Rechte an dem neuen Profil. Irgendeinde Idee.
    Vielen Dank

  2. #2
    Registriert seit
    Nov 2003
    Beiträge
    2.304
    Probiers mal zum Beispiel so:

    PHP-Code:
    PGM                                                      
    DCL        
    VAR(&USER)      TYPE(*CHARLEN(10)           
    DCL        VAR(&CURUSER)   TYPE(*CHARLEN(10)           
    DCL        VAR(&NEWUSER)   TYPE(*CHARLEN(10)           
    DCL        VAR(&NEWHANDLETYPE(*CHARLEN(12)           
    DCL        VAR(&OLDHANDLETYPE(*CHARLEN(12)           
    MONMSG     MSGID(CPF0000)                                
                                                             
    CHGVAR     VAR(&NEWUSERVALUE(QSYSOPR)                  
    CALL       PGM(QSYGETPHPARM(*CURRENT *NOPWD &OLDHANDLE)
    CALL       PGM(QSYGETPHPARM(&NEWUSER *NOPWD &NEWHANDLE)
    CALL       PGM(QWTSETP)  PARM(&NEWHANDLE)                
                                                             
    RTVJOBA    USER(&USERCURUSER(&CURUSER)                 
    SNDPGMMSG  MSGID(CPF9897MSGF(QCPFMSGMSGDTA(&USER +   
                                          *
    BCAT &CURUSER)    
    CALL       PGM(QWTSETP)  PARM(&OLDHANDLE)                
    CALL       PGM(QSYRLSPHPARM(&NEWHANDLE)                
    CALL       PGM(QSYRLSPHPARM(&OLDHANDLE)                
    ENDPGM 

  3. #3
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    To obtain a profile handle for a profile that does not have a password, specify
    *NOPWD.

    Mit anderen Worten: Wenn das Profil ein Kennwort hat, dann musst du das Kennwort auch übergeben.
    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

  4. #4
    Registriert seit
    Aug 2003
    Beiträge
    62
    Hallo,
    habe das obige Programm getestet und es funktioniert tatsächlich.
    Vielen Dank

  5. #5
    Registriert seit
    Nov 2003
    Beiträge
    2.304
    Mit *USE-Berechtigung und *NOPWD klappt's auch mit'm Nachbarn mit Kennwort.

  6. #6
    Registriert seit
    Nov 2007
    Beiträge
    8
    Hallo Herr Fuerchau,

    wir haben versehentlich das Objekt QSYGETPH in QSYS mit QSYGETPH aus einem anderen System überspielt. Jetzt funktionieren unsere DDM-Zugriffe von anderen Maschinen nicht mehr. Beide Maschinen haben die gleiche Relase- und PTF-Stände. Haben Sie irgendwelche Ideen, wie wir unser Problem lösen können? Wir haben leider keine Sicherung des Objekts QSYGETPH.

    Danke und Gruß

  7. #7
    Registriert seit
    Mar 2002
    Beiträge
    5.286
    ... gibt es eine Fehlermeldung? Wie sieht die Berechtigung für QSYGETPH aus?

    D*B
    AS400 Freeware
    http://www.bender-dv.de
    Mit embedded SQL in RPG auf Datenbanken von ADABAS bis XBASE zugreifen
    http://sourceforge.net/projects/appserver4rpg/

  8. #8
    Registriert seit
    Feb 2001
    Beiträge
    20.207
    Da hat man nun schlechte Karten.
    Systemobjekte sind z.T. intern verlinkt.
    Durch das Überschreiben ist der interne Link aufgehoben worden.
    Dies bekommt man ggf. nur per Neuinstallation des OS wieder hin.

    http://www-01.ibm.com/support/docvie...d=nas8N1019748
    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

  9. #9
    Registriert seit
    Nov 2007
    Beiträge
    8
    Die Meldung ist CPF9190 mit Ursachencode 15.
    Nachricht . . . : Berechtigungsfehler beim Versuch, eine DRDA/DDM
    TCP/IP-Verbindung herzustellen.
    15 -- Sicherheitsverarbeitung am Server fehlgeschlagen.

    Wir hatte auch die Befürchtung mit einer internen Verlinkung :-(

    So sieht die Berechtigung aus:

    Objektberechtigung anzeigen

    Objekt . . . . . . . : QSYGETPH Eigner . . . . . . . : QSYS
    Bibliothek . . . . : QSYS Primärgruppe . . . . : *NONE
    Objektart . . . . . : *PGM ASP-Einheit . . . . : *SYSBAS

    Objekt durch Berechtigungsliste geschützt . . . . . . . . . . : *NONE

    Objektbe- ------------Objekt------------
    Benutzer Gruppe rechtigung Opr Verw Exist. Ändern Ref
    *PUBLIC *USE X
    QSYS *ALL X X X X X
    QRDARS400 *USE X
    QSRV *USE X

  10. #10
    Registriert seit
    Mar 2002
    Beiträge
    5.286
    ... das ist doch der Fehler auf dem client, sprich der anfordernden Maschine? Wie sieht das auf der Serverseite aus? Müsste im Joblog von QRWTSRVR zu finden sein.
    D*B
    AS400 Freeware
    http://www.bender-dv.de
    Mit embedded SQL in RPG auf Datenbanken von ADABAS bis XBASE zugreifen
    http://sourceforge.net/projects/appserver4rpg/

  11. #11
    Registriert seit
    Nov 2007
    Beiträge
    8
    Ich hoffe, dass ich eine der richtigen Joblogs erwischt habe. Da sind schon einige.


    5761SS1 V6R1M0 080215 Jobprotokoll anzeigen FSY 16.03.18 11:26:19 Seite 1
    Jobname . . . . . . . . . . : QRWTSRVR Benutzer . . . . : QUSER Nummer . . . . . . . . . . . : 491683
    Jobbeschreibung . . . . . . : QDFTSVR Bibliothek . . . : QGPL
    NACHR-ID ART BEW DATUM ZEIT VON PGM BIBLIOTHEK INST AN PGM BIBLIOTHEK INST
    CPF1124 Information 00 16.03.18 11:22:31,058865 QWTPIIPP QSYS 04C0 *EXT *N
    Nachricht . . . : Job 491683/QUSER/QRWTSRVR im Subsystem QUSRWRK in QSYS am
    16.03.18 um 11:22:30 gestartet. Job im System am 16.03.18 um 11:22:30.
    angekommen.
    CPI9162 Information 00 16.03.18 11:26:19,171178 QCNTEDDM QSYS *STMT QRWTSRVR QSYS *STMT
    Ausgangsmodul . . . . . . . : QCNTEDDM
    Ausgangsprozedur . . . . . : SNDMSG
    Anweisung . . . . . . . . . : 7978
    Zielmodul . . . . . . . . . : QRWTSRVR
    Zielprozedur . . . . . . . : main
    Anweisung . . . . . . . . . : 352
    Nachricht . . . : Der für die Bearbeitung der DDM-Verbindung zugeordnete
    Zieljob wurde vom Quellensystem über TCP/IP gestartet.
    Ursache . . . . : Job 644500/JOHNDO/BACKUP auf Quellensystem FSY startete
    eine DDM-Verbindung über TCP/IP. Siehe Quellenjob 644500/JOHNDO/BACKUP für
    alle weiteren Nachrichten bezüglich der DDM-Verbindung. DDM verwendet die
    ferne IP-Adresse 192.168.70.13 und den fernen Port 32787 für diese
    TCP/IP-Verbindung.
    MCH3402 Abbruch 40 16.03.18 11:26:19,220110 < allProgram 001F7C QRWTSECR QSYS *STMT
    Ausgangsprogramm . . . . . : AiUpcallProgram
    Zielmodul . . . . . . . . . : QRWTSECR
    Zielprozedur . . . . . . . : PRCSECMEC
    Anweisung . . . . . . . . . : 5745
    Nachricht . . . : Es wurde versucht, auf ein nicht mehr vorhandenes Objekt
    oder Teile des Objekts Bezug zu nehmen.
    Ursache . . . . : Die häufigste Ursache ist, dass eine gespeicherte Adresse
    für ein Objekt nicht mehr korrekt ist, da das Objekt ganz oder teilweise
    gelöscht wurde.
    CPF3E86 Diagnose 40 16.03.18 11:26:19,220270 QRWTERR QSYS *STMT QRWTSECR QSYS *STMT
    Ausgangsmodul . . . . . . . : QRWTERR
    Ausgangsprozedur . . . . . : SNDMSG
    Anweisung . . . . . . . . . : 8687
    Zielmodul . . . . . . . . . : QRWTSECR
    Zielprozedur . . . . . . . : HNDRWERR
    Anweisung . . . . . . . . . : 6399
    Nachricht . . . : Fehler bei der Verarbeitung verteilter Datenbanken
    aufgetreten.
    Ursache . . . . : Während der Verarbeitung der verteilten relationalen
    Datenbank trat ein interner Fehler auf. Positionscode X'02'. Die Codes sind:
    -- '01'X -- Der Fehler trat beim Anwendungsrequester auf. -- '02'X -- Der
    Fehler trat beim Anwendungsserver auf. Fehlerbeseitigung: Das Problem
    melden (Befehl ANZPRB). Technische Beschreibung . . . . . . . : Die
    Fehlerinformation ist X'99'. Dies führt zu SQLCODE -30000 oder -30020 und
    SQLSTATE 58008 oder 58009 beim Anwendungsrequester.
    SQ30020 Diagnose 30 16.03.18 11:26:19,220296 QRWTERR QSYS *STMT QRWTSECR QSYS *STMT
    Ausgangsmodul . . . . . . . : QRWTERR
    Ausgangsprozedur . . . . . : SNDMSG
    Anweisung . . . . . . . . . : 8687
    Zielmodul . . . . . . . . . : QRWTSECR
    Zielprozedur . . . . . . . : HNDRWERR
    Anweisung . . . . . . . . . : 6399
    Nachricht . . . : DRDA-Protokollfehler.
    Ursache . . . . : Der Befehl oder die SQL-Anweisung ist infolge eines
    Verteilungsprotokollfehlers, der sich auf nachfolgende Befehle oder
    SQL-Anweisungen auswirken wird, fehlgeschlagen. Die Verbindung zur Anwendung
    wurde unterbrochen und der Prozeß befindet sich in einem Status ohne
    Verbindung. Der Protokollfehler ist X'1254' mit dem Positionscode X'02'. Die
    Positionscodes sind: -- '01'X -- Der Fehler wurde im Anwendungs-Requester
    5761SS1 V6R1M0 080215 Jobprotokoll anzeigen FSY 16.03.18 11:26:19 Seite 2
    Jobname . . . . . . . . . . : QRWTSRVR Benutzer . . . . : QUSER Nummer . . . . . . . . . . . : 491683
    Jobbeschreibung . . . . . . : QDFTSVR Bibliothek . . . : QGPL
    NACHR-ID ART BEW DATUM ZEIT VON PGM BIBLIOTHEK INST AN PGM BIBLIOTHEK INST
    erkannt. -- '02'X -- Der Fehler wurde im Anwendungsserver erkannt. Mögliche
    Protokollfehler sind: -- '1218'X -- Nicht unterstützte Funktion angefordert.
    Der Fehlercode lautet X'99'. -- '1232'X -- Unerwarteter permanenter Fehler.
    -- '1245'X -- Dialogprotokollfehler. Der Fehlercode lautet X'99'. -- '1254'X
    -- Unerwartete Fehlerbedingung. Der Fehlercode lautet X'99'. Ist der
    Protokollfehler in der Liste nicht aufgeführt, im Handbuch "DDM Architecture
    Reference" unter DDM-Codepunkt X'1254' nachschlagen. Fehlerbeseitigung: Das
    Problem mit dem Befehl ANZPRB (Problem analysieren) melden.
    CPF93B6 Information 10 16.03.18 11:26:19,368875 QPDSERR QSYS 0A03 QRWTSECR QSYS *STMT
    Zielprozedur . . . . . . . : CALLFFDCMAC
    Anweisung . . . . . . . . . : 6878
    Nachricht . . . : Problemprotokoll aktualisiert.
    Ursache . . . . : Es wurde ein Problem auf dem System festgestellt. Es wurde
    jedoch kein Problemprotokolleintrag erstellt. Der Grund hierfür ist ein
    bereits vorhandener Problemprotokolleintrag, der dieses Problem beschreibt.
    Die vorhandene Problemprotokolleintrags-ID 1807347935 wurde aktualisiert.
    Damit wird angezeigt, dass das Problem erneut aufgetreten ist.

  12. #12
    Registriert seit
    Mar 2002
    Beiträge
    5.286
    Zitat Zitat von emkata Beitrag anzeigen
    MCH3402 Abbruch 40 16.03.18 11:26:19,220110 < allProgram 001F7C QRWTSECR QSYS *STMT
    Ausgangsprogramm . . . . . : AiUpcallProgram
    ... das sieht ganz nach dem von Baldur beschriebenen Problem aus. V6R1M0 - da tippe ich mal blind, dass IBM sich da taub stellt und EOS (end of support) reklamiert. Das sieht ganz nach einem refresh des Betriebssystems vom letzten SAVSYS aus. Da ist allerdings sorgfältiges Vorgehen gefragt und einiges zu beachten.


    D*B
    AS400 Freeware
    http://www.bender-dv.de
    Mit embedded SQL in RPG auf Datenbanken von ADABAS bis XBASE zugreifen
    http://sourceforge.net/projects/appserver4rpg/

Berechtigungen

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