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
|
What exactly are you trying to do?
Joe
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
?
|
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.
toggle quoted message
Show quoted text
On Sun, Nov 8, 2020 at 7:18 AM carlos feldman <carlfelster@...> wrote:
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
Does anybody have any advise on what to do ?
--
Mike A Schwab, Springfield IL USA
Where do Forest Rangers go to get away from it all?
|
Your problem?is with the HERC03 userid...
It doesnt?have access to the master catalog in RAKF.
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
?
Does anybody have any advise on what to do ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
|
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
?
Does anybody have any advise on what to do ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
|
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
|
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
|
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
|
Re: Tur(n)key TK4- clock 1 hour fast-bug?
D'oh!?
I had a quick look through PARMLIB, but I missed (PARMTZ). It was set E one hour of GMT, which would match if Volker Bandke set it for Germany, I guess.
Fixed in parmlib, TZOFFSET put back to 0
Thank you :-)
Roops
On Thu., Nov. 5, 2020, 00:05 Kevin Monceaux, < Kevin@...> wrote: On Wed, Nov 04, 2020 at 11:45:47PM +0000, Rupert Reynolds wrote:
> I have fixed it by changing to TZOFFSET -0100 in tk4-.cnf but this feels
> like a kludge, as the times should match by default.
That always felt like a kludge to me also.? I prefer to keep time zone
adjustments out of my Hercules configuration files and adjust the time zone
in SYS1.PARMLIB(PARMTZ) instead.
> Is it a DST error, perhaps?
No, MVS 3.8J doesn't automatically adjust for daylight saving time.? Its
time zone setting needs to be adjusted when we spring forward or fall back.
--
Kevin
Bruceville, TX
What's the definition of a legacy system? One that works!
Errare humanum est, ignoscere caninum.
|
Re: Tur(n)key TK4- clock 1 hour fast-bug?
On Wed, Nov 04, 2020 at 11:45:47PM +0000, Rupert Reynolds wrote: I have fixed it by changing to TZOFFSET -0100 in tk4-.cnf but this feels
like a kludge, as the times should match by default. That always felt like a kludge to me also. I prefer to keep time zone adjustments out of my Hercules configuration files and adjust the time zone in SYS1.PARMLIB(PARMTZ) instead. Is it a DST error, perhaps? No, MVS 3.8J doesn't automatically adjust for daylight saving time. Its time zone setting needs to be adjusted when we spring forward or fall back. -- Kevin Bruceville, TX What's the definition of a legacy system? One that works! Errare humanum est, ignoscere caninum.
|
Tur(n)key TK4- clock 1 hour fast-bug?
I was just wondering whether anyone hs found the cause of this, and whether it needs fixing.
Windows host with correct time and date, using timezone UTC+00:00 (London time)
I have fixed it by changing to TZOFFSET -0100 in tk4-.cnf but this feels like a kludge, as the times should match by default.?
Is it a DST error, perhaps?
Roops
|
//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
|
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
|
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?
|
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
|
Re: Fullscreen debugger for MVS 3.8J?
On 11/3/20 12:23 AM, Wally Mclaughlin
wrote:
When I co-wrote Top Secret Security for MVS in
1981 ...
I still have a Tessie poster in my closet.? :-)
--
Drew Derbyshire
"Klaatu barada nikto" -- "The Day the Earth Stood Still"
|
Re: Fullscreen debugger for MVS 3.8J?
Sorry to delay replying.? Busy week! Thanks for all the replies.
Harry Mernick was a senior programmer in? an office of (mostly) systems programmers at Nasty Wetmonster in London. He was due to retire in the 1990s.
We also had Steffen Fraas, who was well known in the JES3 world.
I remember hearing of ACE TEST, but I never got to try it.
DDT sounds good. I'll look at it when I've backed up :-)
The alternative is to write my own. But my memory of 3270 datastreams is half gone-it took me an hour or 2 just to clear the screen and get "Hello, world!" in full screen mode :-)
I'll report back if I mske any progress.
Roops
Hi Roops
The MVSDDT debugger Joe mentioned comes pre-installed and ready to use with TK4-. See TSO HELP member MVSDDT for usage information. It is _the_ best debugger for MVS 3.8 systems I know of.
Cheers
´³¨¹°ù²µ±ð²Ô
|
Ren¨¦ Ferland
carlos feldman
Marco Silva