CHGUSRPRF ohne *SECADM

[Bodo Roggenkamp]

Hallo,

ich möchte folgendes CL-PGM von Usern aufrufen lassen, die keine Berechtigung *SECADM haben.

DCL VAR(&USER) TYPE(*CHAR) LEN(10)
RTVJOBA USER(&USER)
CHGUSRPRF USRPRF(&USER) PWDEXP(*YES)

Das CL-Programm wurde unter QSECOFR erstellt und beim umwandeln wurde der Parameter USRPRF auf *OWNR gesetzt.
=> So hatte ich ein lauffähiges Programm erwartet :(

Beim Aufruf kommt dann Fehlermeldung hoch, dass Ändern von Benutzerprofilen ohne Sonderberechtigung *SECADM nicht zulässig ist.

Hat jemand einen Tipp, ob dies so überhaupt möglich ist?

Gruss
Bodo

[Bodo Roggenkamp]

Hallo,

Habe das Problem zwischenzeitlich gelöst. :)
Ursache: Beim Umwandeln des CL-PGM wird der Parameter bei Angabe von REPLACE(*YES) ignoriert.

Thema somit erledigt.

Gruss
Bodo

[Fuerchau]

Schau mal mit DSPPGM nach, wem das Programm gehört und ob *OWNER auch tatsächlich eingetragen ist.
Ansonsten mittels CHGOWN und CHGPGM anpassen, dann müsse es funktionieren.

Beim Umwandeln wird übrigens die aktuelle Berechtigung das alten Programmes übernommen, also auch die *USER/*OWNER-Ausführung.
Also vorher ggf. das alte Programm entfernen.

[Bodo Roggenkamp]

Hallo Furchau,

trotzdem Danke für Deine (natürlich richtige) Antwort.

Gruss
Bodo