Hi everyone!
I'm tryi9ng to learn to use tapes in Music/SP 6.2 running in hercules 3.17:
The last time I used a tape was in 1980 under CM/S and it was mounted for my by the sysop.
?
I made a small pl/I program which writes some 80 bytes blocks and I'm having this message "Put unit online then type "/VARY xxx ON" or cancel job with "/CAN"" when I run it, then issue "/vary 100 on" but I get the same message again.
Following the instructions from mr. Coghlan on installeing VMARC, I created a tapefile with devinit and gave a volume name with hetinit.
?
I tested the program with 2 different tape names "TAP001" and "VOL01":
?
this are the files:
I hope some one can advise me on how to solve this issue.
t3.pli:
======
/INFO MUSIC USERID(GUEST) PW(PASS4U) TIME(5) ROUTE(MUSIC)
/FILE DD1 TAPE VOL(TAP001) RSIZ(80) RECF(F) BLK(800)
/FILE SYSPRINT N(LIST) NEW(REPL)
/COM /FILE DD1 N(TAP001) LRECL(80) NEW(REPL)
/SYS REGION=500
/INC PL1F
/OPT XREF,SOURCE,NEST,ATR
?TAPE: PROCEDURE OPTIONS (MAIN);
?DCL DD1 FILE OUTPUT RECORD SEQUENTIAL ;
?DCL 1 BFR,
? ? ? ?2? A CHAR(80) ;
?PUT SKIP LIST ('PROGRAM START');
?BFR.A=(8)'1234567890';
?PUT SKIP DATA(BFR);
?DO I=1 TO 10 ;
? ? ?WRITE FILE (DD1) FROM (BFR);
? ? ?END;
?PUT SKIP LIST ('PROGRAM END');
?END;
?
HERCULES.CNF file:
**
?
?#? TAPE Devices
0100-0101? ? 3420? ? *
?
?
ISSUING? HETMAP T100.HET I GET:
?
?
?Hercules HET and AWS tape map program Version 3.07
(c)Copyright 1999-2010 by Roger Bowler, Jan Jaeger, and others
---------------------
Filename? ? ? ? ? ? : T100.HET
---------------------
Label? ? ? ? ? ? ? ?: 'VOL1'
Volume Serial? ? ? ?: 'TAP001'
Improved Data Rec.? : ' '
Owner Code? ? ? ? ? : '? ? ? ? ? '
---------------------
Label? ? ? ? ? ? ? ?: 'HDR1'
Dataset ID? ? ? ? ? : '00000000000000000'
Volume Serial? ? ? ?: '000000'
Volume Sequence? ? ?: '0000'
Dataset Sequence? ? : '0000'
GDG Number? ? ? ? ? : '0000'
GDG Version? ? ? ? ?: '00'
Creation Date? ? ? ?: '000000'
Expiration Date? ? ?: '000000'
Dataset Security? ? : '0'
Block Count Low? ? ?: '000000'
System Code? ? ? ? ?: '0000000000000'
Block Count High? ? : '0000'
---------------------
File #? ? ? ? ? ? ? : 1
Blocks? ? ? ? ? ? ? : 2
Min Blocksize? ? ? ?: 80
Max Blocksize? ? ? ?: 80
Uncompressed bytes? : 160
Min Blocksize-Comp? : 15
?
Devlist in Hercules:
?
0:0100 3420 TAP100.HET [1:00000000]
0:0101 3420 *
0:0201 3370 disks\MUSICX.3370 [0,307200] open
0:0202 3370 disks\MUSIC1.3370 [0,558000] open?
?
Submitting T3.pli to music queue gets the following messages on console:
**
08:31 M306 /ID MUSJOB? ? ? ? ? GUEST? ? 005 500 000 R=MUSIC C=1 F=
08:31 M314 Put unit online then type "/VARY xxx ON" or cancel job with "/CAN"
08:31 M408 CMD FROM? 28 $000000? ? ? ? ?: /VARY 100 ON? <------------ VARY ON ISSUED IN CONSOLE
08:31 M314 Put unit online then type "/VARY xxx ON" or cancel job with "/CAN"
?
I have to cancel to get the batch done, since the tape is never accesible to the program.
--
Carlos
Argentina
carlos feldman