Re: ADDEXITPGM with CRTSQLRPGI

Le 12/11/2023 à 10:15, Gad Miron a écrit :

Hello Sages

Many moons ago (many suns ago actually, more then I care to remember) I
have added a sort of a "Precompiler"
to CRTBNDRPG and CRTRPGMOD by adding Exit PGM to these 2 CMDs.
for setting LIBL, OVRDB etc. (I was helped by Bruce Winning)
for instance

ADDEXITPGM EXITPNT(QIBM_QCA_CHG_COMMAND) FORMAT(CHGC0100) PGMNBR(2)
PGM(ACUMGPL/RPGEXITPGM) PGMDTA(*JOB 20 'CRTRPGMOD QSYS')


However, I failed to do the same with CRTSQLRPGI,


Issuing

ADDEXITPGM EXITPNT(QIBM_QCA_CHG_COMMAND) FORMAT(CHGC0100) PGMNBR(3)
PGM(ACUMGPL/RPGEXITPGM) PGMDTA(*JOB 20 'CRTSQLRPGI QSYS')

fails with MSG

CPF0197 Value QSYS/CRTSQLRPGI is not a valid name.

I seem to remember that you cannot use QIBM_QCA_CHG_COMMAND exit point with a command which has a parameter with hidden value (DSPINPUT set to *NO). This is the case with PASSWORD parameter.

I cannot find any reference with google but, I remember dealing with the same issue you describe several years ago (I wanted to force DYNUSRPRF(*OWNER)).

I sure can use some help here


TIA

Gad