开云体育

Hello Bob,

Am 28.10.2022 um 15:35 schrieb Bob Polmanter <wably@...>:

> Well, if you have the TSO submit exit properly installed (already part of TK4-), it will automatically insert userid and password on the job card if you have not already coded those parameters.

As said not in all cases. At least for stock TK4-.

If your first job card just says:

//MYJCL? ? ? ? JOB

substitution will not happen. At least that's what I've discovered. Can't find the thread anymore, though. But I've just now verified the issue to refresh my memory.

Sysout:

1? ? ?//POCCRTPG? ? ?JOB? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? JOB 9990
2? ? ?//COBUCL? ? ? ?EXEC COBUCL? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000200
摆…闭
RAKF0005 INVALID ATTEMPT TO ACCESS RESOURCE
RAKF000A? PROD? ? ,POCCRTPG,DATASET ,POC.SSTATS.LOADLIB

Because substitution isn't taking place.

Compare sysout to when I just add a MSGCLASS statement in the original JCL:

1? ? ?//POCCRTPG? ? ?JOB? MSGCLASS=A,? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?JOB 9992
? ? ? //? ? ? ? ? ? USER=POC,PASSWORD=? ? ? ? ? ? ?GENERATED BY GDL
2? ? ?//COBUCL? ? ? ?EXEC COBUCL? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 00000200

All steps pass through without issue, because the job is run with my user and thus has RAKF access to the loadlib granted.

Maybe try yourself to understand?

I've dug through contemporary manuals to find evidence that an "empty" job card with just the job's name is *valid* but apparently "GDL" fails to find the right spot to insert user/password when the card has no extra parameters?

> If you code them, then the submit exit won't alter what you coded and you are on your own for that job.

This is what I would expect to happen.

:wq! PoC