|
Hi Everyone !
I'm starting to learn about MVS, so I try to import data into MVS, to use as input for some tests, with ISAM and VSAM.
Since it's about 30.000 registers, IND$FILE and FTP fail, so I'll try to read it with a virtual tape.
To read my data I know I need a JCl to copy my dataset, from tape to disk.
So I wrote this JCL, to read a small script, from the card reader, into the disk.
Thing is RAKF, does not allow me to write on disk from card reader jobs. ( But it works OK, from a bach inside my MVS USER)
The messages are as follows:
RAKF0005 INVALID ATTEMPT TO ACCESS RESOURCE
RAKF000A PROD ,IEBGENER,DATASET ,HERC03.INPUT.TXT
IEC150I 913-38,IFG0194C,IEBGENER,IEBGENER,SYSUT2,241,PUB010,
IEC150I HERC03.INPUT.TXT
IEF472I IEBGENER IEBGENER - COMPLETION CODE - SYSTEM=913 USER=0000
The script is:
//IEBGENE2 JOB 'LOAD TEXT DATA TO MVS',CLASS=A,MSGCLASS=A
//IEBGENE2 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.INPUT.TXT,DISP=(NEW,CATLG),
//? ? ? ? ? ? ?UNIT=3350,VOL=SER=PUB010,SPACE=(TRK,(6,6),RLSE),
//? ? ? ? ? ? ?DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//
?
Can someone give me a clue on how to proceed ?
Thanks in advance
Carlos
|
Add USERID= and PASSWORD= to job card.
toggle quoted message
Show quoted text
On Wed, Nov 4, 2020 at 1:29 PM carlos feldman <carlfelster@...> wrote:
Hi Everyone !
I'm starting to learn about MVS, so I try to import data into MVS, to use as input for some tests, with ISAM and VSAM.
Since it's about 30.000 registers, IND$FILE and FTP fail, so I'll try to read it with a virtual tape.
To read my data I know I need a JCl to copy my dataset, from tape to disk.
So I wrote this JCL, to read a small script, from the card reader, into the disk.
Thing is RAKF, does not allow me to write on disk from card reader jobs. ( But it works OK, from a bach inside my MVS USER)
The messages are as follows:
RAKF0005 INVALID ATTEMPT TO ACCESS RESOURCE
RAKF000A PROD ,IEBGENER,DATASET ,HERC03.INPUT.TXT
IEC150I 913-38,IFG0194C,IEBGENER,IEBGENER,SYSUT2,241,PUB010,
IEC150I HERC03.INPUT.TXT
IEF472I IEBGENER IEBGENER - COMPLETION CODE - SYSTEM=913 USER=0000
The script is:
//IEBGENE2 JOB 'LOAD TEXT DATA TO MVS',CLASS=A,MSGCLASS=A
//IEBGENE2 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.INPUT.TXT,DISP=(NEW,CATLG),
// UNIT=3350,VOL=SER=PUB010,SPACE=(TRK,(6,6),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//
Can someone give me a clue on how to proceed ?
Thanks in advance
Carlos
--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?
|
Change the UNIT= TO SYSDA, delete the VOL=SER=.
Joe
Hi Everyone !
I'm starting to learn about MVS, so I try to import data into MVS, to use as input for some tests, with ISAM and VSAM.
Since it's about 30.000 registers, IND$FILE and FTP fail, so I'll try to read it with a virtual tape.
To read my data I know I need a JCl to copy my dataset, from tape to disk.
So I wrote this JCL, to read a small script, from the card reader, into the disk.
Thing is RAKF, does not allow me to write on disk from card reader jobs. ( But it works OK, from a bach inside my MVS USER)
The messages are as follows:
RAKF0005 INVALID ATTEMPT TO ACCESS RESOURCE
RAKF000A PROD ,IEBGENER,DATASET ,HERC03.INPUT.TXT
IEC150I 913-38,IFG0194C,IEBGENER,IEBGENER,SYSUT2,241,PUB010,
IEC150I HERC03.INPUT.TXT
IEF472I IEBGENER IEBGENER - COMPLETION CODE - SYSTEM=913 USER=0000
The script is:
//IEBGENE2 JOB 'LOAD TEXT DATA TO MVS',CLASS=A,MSGCLASS=A
//IEBGENE2 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.INPUT.TXT,DISP=(NEW,CATLG),
//? ? ? ? ? ? ?UNIT=3350,VOL=SER=PUB010,SPACE=(TRK,(6,6),RLSE),
//? ? ? ? ? ? ?DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//
?
Can someone give me a clue on how to proceed ?
Thanks in advance
Carlos
|
//SYSUT2? ?DD? DSN=HERC03.INPUT.TXT,DISP=(NEW,CATLG),
//? ? ? ? ? ? ?UNIT=SYSDA,SPACE=(TRK,(6,6),RLSE),
//? ? ? ? ? ? ?DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
Joe
Change the UNIT= TO SYSDA, delete the VOL=SER=.
Joe
Hi Everyone !
I'm starting to learn about MVS, so I try to import data into MVS, to use as input for some tests, with ISAM and VSAM.
Since it's about 30.000 registers, IND$FILE and FTP fail, so I'll try to read it with a virtual tape.
To read my data I know I need a JCl to copy my dataset, from tape to disk.
So I wrote this JCL, to read a small script, from the card reader, into the disk.
Thing is RAKF, does not allow me to write on disk from card reader jobs. ( But it works OK, from a bach inside my MVS USER)
The messages are as follows:
RAKF0005 INVALID ATTEMPT TO ACCESS RESOURCE
RAKF000A PROD ,IEBGENER,DATASET ,HERC03.INPUT.TXT
IEC150I 913-38,IFG0194C,IEBGENER,IEBGENER,SYSUT2,241,PUB010,
IEC150I HERC03.INPUT.TXT
IEF472I IEBGENER IEBGENER - COMPLETION CODE - SYSTEM=913 USER=0000
The script is:
//IEBGENE2 JOB 'LOAD TEXT DATA TO MVS',CLASS=A,MSGCLASS=A
//IEBGENE2 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.INPUT.TXT,DISP=(NEW,CATLG),
//? ? ? ? ? ? ?UNIT=3350,VOL=SER=PUB010,SPACE=(TRK,(6,6),RLSE),
//? ? ? ? ? ? ?DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//
?
Can someone give me a clue on how to proceed ?
Thanks in advance
Carlos
|
You can GET a permission? in RACF..... ?
?
The HLQ ??HERC03 , isn?t defined .
?
°¿¸é¡.
?
Before your execution change the HLQ to your? USERID
?
-----------------------------------
Marco Antonio Ferreira
Proteus Information Security Services
Mainframe Security Consultant
 (:+55
11 98362-2153 ?
marco.silva@...
?
¡°Esta mensagem ¨¦ destinada exclusivamente para a(s) pessoa(s) a quem ¨¦ dirigida, podendo conter informa??o confidencial e legalmente protegida. Se voc¨º n?o for destinat¨¢rio desta mensagem,
desde j¨¢ fica notificado de abster-se a divulgar, copiar, distribuir, examinar ou, de qualquer forma, utilizar a informa??o contida nesta mensagem. Caso voc¨º tenha recebido esta mensagem por engano, pedimos por favor que responda esse e-mail informando o acontecido
e posteriormente, apague-a.¡±
¡°This message is intended only for the person to whom it is addressed and may contain confidential and legally protected information. If you are not the addressee
of this message, from now on you are already notified to abstain to disclose, copy, distribute, examine or, in any way, use the information contained in this message. If you have received this message in error, please answer this e-mail stating what happened
and subsequently delete it.¡±
?
?
toggle quoted message
Show quoted text
From: [email protected] <[email protected]>
On Behalf Of carlos feldman via groups.io
Sent: quarta-feira, 4 de novembro de 2020 16:30
To: [email protected]
Subject: [H390-MVS] casic question
?
Hi Everyone !
I'm starting to learn about MVS, so I try to import data into MVS, to use as input for some tests, with ISAM and VSAM.
Since it's about 30.000 registers, IND$FILE and FTP fail, so I'll try to read it with a virtual tape.
To read my data I know I need a JCl to copy my dataset, from tape to disk.
So I wrote this JCL, to read a small script, from the card reader, into the disk.
Thing is RAKF, does not allow me to write on disk from card reader jobs. ( But it works OK, from a bach inside my MVS USER)
The messages are as follows:
RAKF0005 INVALID ATTEMPT TO ACCESS RESOURCE
RAKF000A PROD ,IEBGENER,DATASET ,HERC03.INPUT.TXT
IEC150I 913-38,IFG0194C,IEBGENER,IEBGENER,SYSUT2,241,PUB010,
IEC150I HERC03.INPUT.TXT
IEF472I IEBGENER IEBGENER - COMPLETION CODE - SYSTEM=913 USER=0000
The script is:
//IEBGENE2 JOB 'LOAD TEXT DATA TO MVS',CLASS=A,MSGCLASS=A
//IEBGENE2 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.INPUT.TXT,DISP=(NEW,CATLG),
//? ? ? ? ? ? ?UNIT=3350,VOL=SER=PUB010,SPACE=(TRK,(6,6),RLSE),
//? ? ? ? ? ? ?DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//
?
Can someone give me a clue on how to proceed ?
Thanks in advance
Carlos
|
how could I do that ? Remember I'm a beginner here
|
|
|
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
?
?
|
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.
toggle quoted message
Show quoted text
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
|
carlos feldman
Marco Silva