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 ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
