Hello!
He was in a film, "The Amazing Mr. Limpet", or something like that,
and the fish he turned into, well it sounded better than the actor
looked. So given both your name and nickname, I figured it would be
more appropriate for that message.
-----
Gregg C Levine gregg.drwho8@...
"This signature fought the Time Wars, time and again."

Patrik,

Indeed, you are correct.? I had not noticed this issue before, as I always code at least a MSGCLASS on every job card to control my sysout.? This is a bug in the exit code.

As an easy work around, you could code a pretty minimal job card:

//JOBX? JOB 1

Just the addition of the 1 as the account number will allow the USERID and PASSWORD to be inserted by the exit.

Regards,
Bob

Hello Jay,

Am 28.10.2022 um 21:11 schrieb Jay Maynard <jaymaynard@...>:

...so I would never have noticed this problem.

Same as many others. :-)

:wq! PoC

--

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

Patrick,

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.? If you code them, then the submit exit won't alter what you coded and you are on your own for that job.

Regards,
Bob

Hello Bob,

Am 28.10.2022 um 14:40 schrieb Bob Polmanter <wably@...>:

Normally, the TSO submit process will automatically insert USERID and PASSWORD onto your job card at the time of submission and since this doesn't appear to be happening, that's the suspicion about RPF submit

This doesn't always happen automatically. Especially when entirely relying on defaults and just providing username/password on the job card, they won't be copied by the usermod in TK4-.

Had a discussion on the Turnkey-MVS list about this almost two years ago. Available documentation allows to omit all parameters sans job name, so I consider this a bug. People mostly disagreed because I'm apparently the sole human being omitting all additional parameters, and everyone else explicitly always add parameters, even if they match the defaults.

:shrugs:

:wq! PoC

Jim,

There's actually nothing wrong with your jobs at this point.? They are failing due to security restrictions, denoted by the S913-38 abends in the IEC150I messages.

If you are using a stock TK4 system, the userid HERC01 is allowed to update the datasets being flagged by security but for some reason the system isn't able to validate your authority.? The most likely cause as mentioned previously by Tom is that you are using RPF and have the default submit mechanism set to RPF.? You should change this to TSO? (go into RPF, then 0.1, and change the SUBMIT=RPF to SUBMIT=TSO.

In lieu of this for now, another workaround is to code the USERID=HERC01,PASSWORD=xxx on your JOB card or on a continuation JOB card line.? This will let the system validate you provided you use your actual logon password on the JOB card.? (Normally, the TSO submit process will automatically insert USERID and PASSWORD onto your job card at the time of submission and since this doesn't appear to be happening, that's the suspicion about RPF submit).

Give those a try.

Regards,
Bob

开云体育

2. Another source of the problem is if you are using Submit from RPF?: check the default in RPF menu 0.1, it should preferably say TSO.?

3. If you submit from TSO and it says dataset not found, enclose the dataset name you are submitting in quotes otherwise there's the possibility that the userid you are using will be prepended to the dataset name and cause it not to find the job you are submitting.?
4. [ which was not the issue here but may be something that inadvertently happens to you later ]
   

Dean

Gregg Levine wrote:

Hello!
Yes you did. But Fish you did use the wrong voice over cue,
I would have chosen the Don Knotts voice.

I know who Don Knotts is, but I have no idea what you're referring to. Why him?

--
"Fish" (David B. Trout)
Software Development Laboratories

mail: fish@...

开云体育

The error you are getting is a RAKF error meaning that you are not authorized to update SYS1.SMPPTS. You will need to add to your jobcard a valid USER= and PASSWORD= which I think is HERC01 for the USER and CUL8TR as the PASSWORD

Dean

Thank you Mike.??

Like Fish, I am NOT an MVS person.? I am learning and trying to follow the instructions in the install_and_use.pdf which describes two jobs to address running an MVS guest under VM/CE.? Bob Polmanter has been assisting me and I have updated SYS1.VTAMLST(L3274) and deleted L3274 from SYS1.VTAMOBJ (I think!) which is part of the steps necessary for VM exits to work.

I then submitted ZBP0001,which spools output to VM and received:

?SYS22301.T030340.RA000.HERC01.JOB00009 ------------------------ Line 1 Col 2 81

?Command ===>? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? Scroll ===> CSR??

? ? ? ?10? ? ? ? 20? ? ? ? 30? ? ? ? 40? ? ? ? 50? ? ? ? 60? ? ? ? 70? ? ? ? 80?

---+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+-

? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? J E S 2? ?J O B? ?L O G? ? ? ? ?

?3.02.40 JOB? ? 9? $HASP373 ZBP0001? STARTED - INIT? 1 - CLASS A - SYS TK4-? ? ?

?3.02.40 JOB? ? 9? IEF403I ZBP0001 - STARTED - TIME=03.02.40? ? ? ? ? ? ? ? ? ??

?3.02.42 JOB? ? 9? RAKF0005 INVALID ATTEMPT TO ACCESS RESOURCE? ? ? ? ? ? ? ? ??

?3.02.42 JOB? ? 9? RAKF000A? PROD? ? ,ZBP0001 ,DATASET ,SYS1.SMPPTS? ? ? ? ? ? ?

?3.02.42 JOB? ? 9? IEC150I 913-38,IFG0194C,ZBP0001,HMASMP,SMPPTS,14B,SMP003,SYS1

?3.02.43 JOB? ? 9? IEF450I ZBP0001 HMASMP RECEIVE - ABEND S913 U0000 - TIME=03.0

?3.02.43 JOB? ? 9? IEFACTRT - Stepname? Procstep? Program? ?Retcode? ? ? ? ? ? ?

?3.02.43 JOB? ? 9? ZBP0001? ? RECEIVE? ?HMASMP? ? HMASMP? ? AB S913? ? ? ? ? ? ?

?3.02.43 JOB? ? 9? ZBP0001? ? APPLY? ? ?HMASMP? ? HMASMP? ? *FLUSH*? ? ? ? ? ? ?

?3.02.43 JOB? ? 9? IEF404I ZBP0001 - ENDED - TIME=03.02.43? ? ? ? ? ? ? ? ? ? ??

?3.02.43 JOB? ? 9? $HASP395 ZBP0001? ENDED? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

? ? 1? ? ?//ZBP0001? JOB 1,ZBP0001,CLASS=A,REGION=4096K,? ? ? ? ? ? ? ? ? ? ? ??

? ? ? ? ? //? ? ? ? ? ? ?MSGCLASS=R? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

? ? ? ? ? ***? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

? ? ? ? ? ***? PROVIDE OPTIONAL CONTROL TO VM CP TO ISSUE CLOSE AGAINST? ? ? ? ?

? ? ? ? ? ***? JES2 PRINTER AND PUNCH DEVICES.? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

? ? ? ? ? ***? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

? ? 2? ? ?//RECEIVE EXEC SMPREC? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?6944K FREE

--

Best Regards,

Jim

RAKF0005 INVALID ATTEMPT TO ACCESS RESOURCE

Error message.

RAKF000A PROD ,HERC01Q ,DATASET ,SYS1.LPALIB

PROD ?, HERC01Q jobname, DATASET resource type?, SYS1.LPALIB dsn
SYS1.LPALIB cant be updated by HERC01. very much suggest
HERC01.LOADLIB pds u 0 32760
If SYS1LPALIB suggest using IEBCOPY to copy member with authorized ID.

IEC150I 913-38,IFG0194C,HERC01Q,LKED,SYSLMOD,148,MVSRES,SYS1.

913 Sxxx abend, -xx return code, IFG0194C detecting program, HERC01Q jobname
LKED stepname, SYSLMOD ddname, 148 device number, MVSRES volser, SYS1.
(?RAKF definition used?)

IEF450I HERC01Q LKED - ABEND S913 U0000 - TIME=01.35.32

Step end message

On Thu, Oct 27, 2022 at 7:50 PM Jim Snellen <jsnellen55@...> wrote:

Hello Bob,

Some progress was made. It appears the assembly executed but failed at link edit. Here is partial output:
SYS22301.T013638.RA000.HERC01.JOB00008 ------------------------ Line 1 Col 2 81
Command ===> Scroll ===> CSR
10 20 30 40 50 60 70 80
---+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+-

J E S 2 J O B L O G
1.35.29 JOB 8 $HASP373 HERC01Q STARTED - INIT 1 - CLASS A - SYS TK4-
1.35.29 JOB 8 IEF403I HERC01Q - STARTED - TIME=01.35.29
1.35.32 JOB 8 IEFACTRT - Stepname Procstep Program Retcode
1.35.32 JOB 8 HERC01Q ASM IFOX00 RC= 0000
1.35.32 JOB 8 RAKF0005 INVALID ATTEMPT TO ACCESS RESOURCE
1.35.32 JOB 8 RAKF000A PROD ,HERC01Q ,DATASET ,SYS1.LPALIB
1.35.32 JOB 8 IEC150I 913-38,IFG0194C,HERC01Q,LKED,SYSLMOD,148,MVSRES,SYS1.
1.35.32 JOB 8 IEF450I HERC01Q LKED - ABEND S913 U0000 - TIME=01.35.32
1.35.32 JOB 8 HERC01Q LKED IEWL AB S913
1.35.32 JOB 8 IEF404I HERC01Q - ENDED - TIME=01.35.32
1.35.32 JOB 8 $HASP395 HERC01Q ENDED
1 //HERC01Q JOB CLASS=A,MSGCLASS=R
2 //ASM EXEC PGM=IFOX00,REGION=4096K,PARM=(OBJECT,NODECK)
3 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
4 // DD DSN=SYS1.AMODGEN,DISP=SHR
5 //SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1700,(600,100))
6 //SYSUT2 DD DSN=&&SYSUT2,UNIT=SYSDA,SPACE=(1700,(300,50))
7 //SYSUT3 DD DSN=&&SYSUT3,UNIT=SYSDA,SPACE=(1700,(300,50))

On the bottom is:
SYS22301.T013638.RA000.HERC01.JOB00008 --------------------- Line 1064 Col 2 81
Command ===> Scroll ===> CSR
10 20 30 40 50 60 70 80
---+----+----+----+----+----+----+----+----+----+----+----+----+----+----+----+-
VMTMR 00008 00000320 00462 00417 00465
VMWORK 00001 00000000 00630 00369 00481 00636
LITERAL CROSS-REFERENCE
SYMBOL LEN VALUE DEFN REFERENCES
=X'00FFFFF8'
00004 00000318 00446 00343
ASSEMBLER DIAGNOSTICS AND STAT

NO STATEMENTS FLAGGED IN THIS ASSEMBLY
HIGHEST SEVERITY WAS 0
OPTIONS FOR THIS ASSEMBLY
ALIGN, ALOGIC, BUFSIZE(STD), NODECK, ESD, FLAG(0), LINECOUNT(55), LIST, NOMCAL
NOMLOGIC, NONUMBER, OBJECT, NORENT, RLD, NOSTMT, NOLIBMAC, NOTERMINAL, NOTEST,
SYSPARM()
WORK FILE BUFFER SIZE/NUMBER =32758/ 1
TOTAL RECORDS READ FROM SYSTEM INPUT 501
TOTAL RECORDS READ FROM SYSTEM LIBRARY 4574
TOTAL RECORDS PUNCHED 36
TOTAL RECORDS PRINTED 970
*EOF-TTR=00080100 BOTTOM OF DATA **125982-BYTES***

The end of the submitted JCL is:
FSVIEW: VMEXIT JCL A1 Lines 506-525/525 F80[1-79] FSVIEW V1.2.5
R12 EQU 12 0007100
R13 EQU 13 0007100
R14 EQU 14 0007100
R15 EQU 15 0007100
*
IHAQCB
CVT DSECT=YES,LIST=NO
END , end of interpret table
/*
//*
//LKED EXEC PGM=IEWL,PARM=(LET,LIST,MAP),COND=(4,LT,ASM) 0017490
//SYSPRINT DD SYSOUT=* 0017500
//SYSLMOD DD DSN=SYS1.LPALIB,DISP=SHR 0017600
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(50,20)) 0018000
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,PASS) 0019000
// DD * 0020000
NAME ETHLOGVM(R) 0022000
/* 0023000
//


===>
02=EE 03=Quit 04=Srch 05=Top 06=PgUp 07=Up 08=Dwn 09=PgDwn 10=Bot 11=SL 12=SR

HTH!
--
Best Regards,

Jim

--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

Hello!
Yes you did. But Fish you did use the wrong voice over cue, I would
have chosen the Don Knotts voice.
-----
Gregg C Levine gregg.drwho8@...
"This signature fought the Time Wars, time and again."

Jim,

The HERC01.MACLIB DD statement is not needed to complete the assembly.? It should not have been in the original JCL.? Simply edit the VMEXIT JCL to delete this line:

//SYSLIB? ?DD? ? DSN=HERC01.MACLIB,DISP=SHR,DCB=BLKSIZE=32720? ? ? ? ?

And add the 'SYSLIB' back to the DDNAME of the next line.? The results should look like these:

?//SYSLIB?? DD? ? DSN=SYS1.MACLIB,DISP=SHR? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

?//? ? ? ? ?DD? ? DSN=SYS1.AMODGEN,DISP=SHR

Then resubmit the job.

Regards,
Bob

?

IEF212I HERC01Q ASM SYSLIB - DATA SET NOT FOUND
//ASM EXEC PGM=IFOX00,REGION=4096K,PARM=(OBJECT,NODECK)
//SYSLIB DD DSN=HERC01.MACLIB,DISP=SHR,DCB=BLKSIZE=32720
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.AMODGEN,DISP=SHR

It is the HERC01.MACLIB that is missing. If it was a subsequent DD
statement, the number would appear after the SYSLIB

--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?

(COMBINED REPLY)

René Ferland wrote:

Hummm... I think the comma will generate further errors. :-)
My guess is that the dataset HERC01.MACLIB does not exist.

Charles Bailey wrote:

Line 3 does not need a comma at the end. Line 4 is not a
continuation of line 3. It is a separate DD statement asking
for dsn SYS1.MACLIB to be concatenated to DDname SYSLIB.

Oops! Sorry.

In my own defense I *did* say I wasn't an MVS person!! ;-)

<voiceover src="Emily Litella.wav">
"Oh. That's very different. Never mind!"
</voiceover>

--
"Fish" (David B. Trout)
Software Development Laboratories

mail: fish@...

Line 3 does not need a comma at the end. Line 4 is not a continuation of line 3. It is a separate DD statement asking for dsn SYS1.MACLIB to be concatenated to DDname SYSLIB.

Charles Bailey

On Tue, Oct 25, 2022 at 08:14 PM, Fish Fish wrote:

If it was me, I'd try adding a trailing comma to line 3 and try again.

Hummm... I think the comma will generate further errors. :-) My guess is that the dataset HERC01.MACLIB does not exist.?

Cheers,

Rene FERLAND, Montreal