¿ªÔÆÌåÓý

ctrl + shift + ? for shortcuts
© 2025 Groups.io
  1. H390-MVS
  2. Messages
Single Messages Topics Expanded Polls

Re: casic question

 

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.

On 05/11/2020 13:46, carlos feldman wrote:

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
Join [email protected] to automatically receive all group messages.