Hi

I am going back and forth playing with MVS in various forms.

I still need quite a bit of help in understanding many of the conventions that seem to be used while using MVS.? I am using REVIEW and RPF to find my ways around the system and the first question I have is regarding some of the "implied" assumptions that their panels (*) are showing.

E.g. In REVIEW, when I select 1 (BROWSE), I am presented with a panel with three sections.

TSO LIBRARY
OTHER DATA
CURSON-SELECTABLE ITEMS ...

I am curious about why - read: is this a "convention" or there is some deeper reason I am missing? - the first panel is called "TSO LIBRARY" and why there are fields named

PROJECT
LIBRARY
TYPE

with the LIBRARY field seemingly with accepting more than one id.

I understand that Greg Price (who I am assuming is reading this) made such choices for a reason, but i cannot guess why.

Of course, the most likely option is that I did not assume a big enough dose of RTFM :)? But maybe a summary by somebody more expert will also help other newbies like me.

All the best

Marco

(*) See? I already learned that they are called "panels".

Hi All (and especially Jürgen),

Have the various issues holding up the next release of tk4 been resolved
yet? Is there any possibility of a Christmas present of a new tk4 this
year?

Peter

开云体育

Good idea. Thanks. I need to check versions of quite a few things, and now is as good a time as any :-)

Roops

Ah! A PEBCAK :-) Thank you.


The leading zero was the answer. I left off a leading zero without thinking, because I've spent all day remembering to limit myself to 24 bits :-)


That chain of commands works nicely as well. I have been meaning to understand the syntax in IM, so thanks for that as well. I did try FIND 'cycle'** which failed, again a PEBCAK because I didn't consider that the find command would be converted to upper case.


**(The test text was the opening sentence of Zen And The Art Of Mototcycle Maintenance, my inspiration decades ago to view Quality as a thing in itself.


Roops

On 2020-11-15 11:29 PM, Rupert Reynolds wrote:

IM (in TK4-) won't display some fixed CSA, but TEST will. IM's virtual storge browser brings up? a red error bar with "INVALID ADDRESS SPECIFICATION". It browses PSA, CVT etc just fine.

What is the precise character string you typed in which resulted in that error message?

A "secret" is that virtual storage addresses for IM VB must? begin with a decimal digit.

Did you specify "b78400" as "0B78400" ?

Alternatively, did you use the sequence
10
F
+CC
F


Cheers,
Greg

On Sun, 8 Nov 2020, at 13:18, carlos feldman wrote:

Good morning;

I'm trying to load data from a tape into MVS

No. You're trying to copy data from a tape to a disk, and the
whole of that process is being executed under MVS.

There's no sense in which the data is being loaded "into MVS".

--
Jeremy Nicoll - my opinions are my own.

Hi,

In the meantime I have released RPF185
The bug is resolved and more updates are made.

You will find RPF on

Cheers,
Rob

On Sun, Nov 8, 2020 at 05:38 AM, carlos feldman wrote:

There's any form to disable RAKF or allow "regular" user to access tapes ?.

To disable RAKF seems like overkill to me. :-)

The current RAKF profiles allow HERC03 and HERC04 to read from tapes but not to alter them. To change that, first update SYS1.SECURE.CNTL(PROFILES) (the profiles for tapes are near the end, lines 147 to 149) and then activate the updated profiles by issuing the command

/s rakfprof

at the MVS console.

Cheers,

Rene FERLAND, Montreal

Hi Joe, thanks for your advise.

I just tested this as HERC01, and I was to post my reply.

As good practice, I never wanted to run as an Admin eg. HERC01 or HERC02, So I allways use Herc03 and 04.

There's any form to disable RAKF or allow "regular" user to access tapes ?.

In a sense, tapes are as old as card readers in the mainframe world, and don't need the safety fixed disk needs.

?

Carlos

?

IEC150I 913-38.

Not authorized. If the DSN were 17+ bytes long, you could put
whatever HLQ you want in front of the last 17 characters of the tape
DSN.
SInce it is shorter, you will need to create a RAKF profile for the DSN.

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

Good? morning;

I'm trying to load data from a tape into MVS, and seems like RAKF is not allowing me to use tape.
I'm using T4K- distribution, on Hercules 4.

My JCL is as Follow:

?000001 //COPYTAP JOB (COPYPDS,SAMPLE),'COPY TO TAPE',
?000002 //? ? ? ? USER=HERC03,PASSWORD=PASS4U,
?000003 //? ? ? ? CLASS=A,MSGCLASS=A,REGION=562K? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?000004 //*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
?000005 //STEP1 EXEC PGM=IEBCOPY? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?000006 //***? ? ? ? ? ?
?000007 //SYSPRINT DD SYSOUT=*? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?000008 //TAPOUT? ?DD UNIT=(TAPE,,DEFER),DISP=(NEW,KEEP),? ? ? ? ? ? ? ? ? ? ??
?000009 //? ? ? ? ? ? DSN=BAK.INPUT.TXT,? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?000010 //? ? ? ? ? ? VOL=SER=TAP01,LABEL=(1,SL)? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?000011 //PDSIN? ? DD DSN=HERC03.TEST.PLI,DISP=SHR? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?000012 //SYSUT3? ?DD UNIT=SYSDA,SPACE=(TRK,(30,15)),DISP=(NEW,DELETE,DELETE)??
?000013 //SYSIN? ? DD *? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
?000014? ?COPY INDD=PDSIN,OUTDD=TAPOUT? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
?000015 //? ? ? ? ?

When I submit this job the system asks for mounting my tape on 480 ( it has TAP01 label ), and the system proceeds till abend:

0200 13.59.52 JOB? 129? $HASP100 COPYTAP? ON INTRDR? ? ? COPY TO TAPE
4000 13.59.52 JOB? 129? $HASP373 COPYTAP? STARTED - INIT? 1 - CLASS A - SYS TK4-
4000 13.59.52 JOB? 129? IEF403I COPYTAP - STARTED - TIME=13.59.52
2800 13.59.52 JOB? 129 *IEC501A M 480,TAP01,SL,6250 BPI,COPYTAP,STEP1
FFFF 14.00.02 JOB? 129? RAKF0005 INVALID ATTEMPT TO ACCESS RESOURCE
FFFF 14.00.02 JOB? 129? RAKF000A? HERC03? ,COPYTAP ,TAPEVOL ,TAP01
2800 14.00.02 JOB? 129? IEC502E K 480,TAP01,SL,COPYTAP,STEP1
00A0 14.00.02 JOB? 129? IEC150I 913-38,IFG0194F,COPYTAP,STEP1,TAPOUT,480,,BAK.INPUT.TXT
4000 14.00.02 JOB? 129? IEF450I COPYTAP STEP1 - ABEND S913 U0000 - TIME=14.00.02
0004 14.00.02 JOB? 129? IEFACTRT - Stepname? Procstep? Program? ?Retcode
0004 14.00.02 JOB? 129? COPYTAP? ? STEP1? ? ? ? ? ? ? ?IEBCOPY? ?AB S913
4000 14.00.02 JOB? 129? $HASP395 COPYTAP? ENDED
4000 14.00.02 JOB? 129? IEF404I COPYTAP - ENDED - TIME=14.00.02
C000 14.00.02? ? ? ? ? ?$HASP309? ? INIT? 1 INACTIVE *** C=A
0200 14.00.02 JOB? 129? $HASP150 COPYTAP? ON PRINTER1? ? ? ? 66 LINES
0200 14.00.02? ? ? ? ? ?$HASP160 PRINTER1 INACTIVE - CLASS=A
0200 14.00.02 JOB? 129? $HASP250 COPYTAP? IS PURGED

SYSTEM LOG FILE 3033.log, AFTER DISABLING RAKF SHOWS:

13.59.34? ? ? ? ? ?IEE341I RAKF? ? ?NOT ACTIVE
13.59.52 JOB? 129? $HASP100 COPYTAP? ON INTRDR? ? ? COPY TO TAPE
13.59.52 JOB? 129? $HASP373 COPYTAP? STARTED - INIT? 1 - CLASS A - SYS TK4-
13.59.52 JOB? 129? IEF403I COPYTAP - STARTED - TIME=13.59.52
13.59.52 JOB? 129 *IEC501A M 480,TAP01,SL,6250 BPI,COPYTAP,STEP1
HHC01603I devinit 480 tapes/tap01.aws
HHC00221I 0:0480 Tape file tapes/tap01.aws, type aws: format type AWS Format tape file
HHC02245I 0:0480 device initialized
14.00.02 JOB? 129? RAKF0005 INVALID ATTEMPT TO ACCESS RESOURCE
14.00.02 JOB? 129? RAKF000A? HERC03? ,COPYTAP ,TAPEVOL ,TAP01
HHC00201I 0:0480 Tape file tapes/tap01.aws, type aws: tape closed
14.00.02 JOB? 129? IEC502E K 480,TAP01,SL,COPYTAP,STEP1
14.00.02 JOB? 129? IEC150I 913-38,IFG0194F,COPYTAP,STEP1,TAPOUT,480,,BAK.INPUT.TXT
14.00.02 JOB? 129? IEF450I COPYTAP STEP1 - ABEND S913 U0000 - TIME=14.00.02
14.00.02 JOB? 129? IEF404I COPYTAP - ENDED - TIME=14.00.02
14.00.02 JOB? 129? $HASP395 COPYTAP? ENDED
14.00.02? ? ? ? ? ?$HASP309? ? INIT? 1 INACTIVE *** C=A
14.00.02 JOB? 129? $HASP150 COPYTAP? ON PRINTER1? ? ? ? 66 LINES
14.00.02? ? ? ? ? ?$HASP160 PRINTER1 INACTIVE - CLASS=A
14.00.02 JOB? 129? $HASP250 COPYTAP? IS PURGED

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

Short back ground - very :)


MVS like all multi-user O/S's require a user to log in to it using their user name and password.

In the case of MVS it has more than one mechanism that handles this where the first is needed and others subject to MVS system set up:

TSO:?? requires your user ID (up to 8 Chars) and Password (again up to 8 Chars)? - For later versions of the OS these can be longer angain subject to set up.

RAKF (RACF) Requires that any job submitted must have a USER and PASSWORD keywords included.
??? This is because you could run a JCL script etc from another users PDS or a system wide one

Now if you have set up RAKF correctly the you do NOT bother adding the extra keywords USER and PASSWORD as these are supplied by the system during the submission processes i.e., via an TSO EDIT step etc with a SUB(MIT) as against just sending the JCL job via any other method including stored as a PDS member.


Just remember this for any given task there is always six or more ways of doing the same task under a mainframe O/S.


Vincent

Very retired computer person IBM, ICL, multiple mini and micro's included.

thanks for your help.

This worked for me:

//IEBGENE3 JOB 'LOAD TEXT DATA TO MVS',CLASS=A,MSGCLASS=A,
//? ? ? ? ?USER=HERC03,PASSWORD=PASS4U
//IEBGENE3 EXEC PGM=IEBGENER,REGION=128K
//SYSIN? ? DD? DUMMY
//SYSPRINT DD? SYSOUT=*
//SYSUT1? ?DD? *
BLA
BLE
? --- your ASCII data from the PC file goes here ---
BLI
//SYSUT2? ?DD? DSN=HERC03.IN.TXT,DISP=(NEW,CATLG),
//? ? ? ? ? ? ?UNIT=SYSDA,SPACE=(TRK,(6,6),RLSE),
//? ? ? ? ? ? ?DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//

?

Only issue is that the Dataset ended in SYSDA instead of PUB010, but I can manage to copy the dataset.

If I didn't define USER and PASSWORD, the dataset wasn't created;

1 //IEBGENE2 JOB 'LOAD TEXT DATA TO MVS',CLASS=A,MSGCLASS=A JOB 53
2 //IEBGENE2 EXEC PGM=IEBGENER,REGION=128K
3 //SYSIN DD DUMMY
4 //SYSPRINT DD SYSOUT=*
5 //SYSUT1 DD *
6 //SYSUT2 DD DSN=HERC03.IN.TXT,DISP=(NEW,CATLG),
// UNIT=SYSDA,SPACE=(TRK,(6,6),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//
IEF197I SYSTEM ERROR DURING ALLOCATION
IEF272I IEBGENE2 IEBGENE2 - STEP WAS NOT EXECUTED.
IEF285I JES2.JOB00053.SO0102 SYSOUT
IEF285I JES2.JOB00053.SI0101 SYSIN
IEF285I SYS1.UCAT.TSO KEPT
IEF285I VOL SER NOS= PUB000.

?

Thanks again

Carlos

?

?

how could I do that ? Remember I'm a beginner here