开云体育

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

Hello Carlos,

I was able to run your job. Here's what I did:

1) /vary 100,online before submitting the job
? ?(I think you need to do it only once);

2) submitted the job to batch;

3) at the M309 message, typed:
? ?
? ? devinit 100 tapes\TAP001.het

? ? (to mount the tape for the job);

4) when the system went in wait state, issued:

? ? devinit 100 *

? ? (to unmount the tape).

And the job ended normally.

There may be a better way to do it though. :-)

Cheers,

Rene FERLAND, Montreal

well,

Seems I'm not in my lucky day, I'm able to attach and detach tape units ( BTW UCB SEES MY TAPE:?12? 875590? 100? 01 20 00? 02 Tape? ? ? TAP001? ? ?0? 8751D0 ),

even can do devinit. but my program ( or music ) fails to link the program with the virtual unit.

In VM I Would define something like this to do the linking:

//TAPC80D8 DD  DSN=SIMOTIME.TAPEFILE.TAPC80D8,DISP=(MOD,DELETE,DELETE),
//             STORCLAS=MFI,
//             SPACE=(TRK,5),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800,DSORG=PS)

but here I don't know how to do this in Hercules and Music

--

Carlos

Argentina

"Batang"? Really?! You actually like that font?! YUCK! :)

Fish wrote:

"Batang"? Really?! You actually like that font?! YUCK! :)

I hate it too Fish! It is not the original font I used
(Liberation Mono). It was changed along the way. I would
assume my PDF does not contain the font as such so the
viewer does its "best" replacing it.

HTH!

Yes it did! :-) Thank you Fish.

Cheers,

Rene FERLAND, Montreal

Carlos

Argentina

Thanks fo the help everyone.

The killer was discovered and jailed.?

Trouble was I was using Hercules 3.07., that seems that never gets the tape online.

On Hercules 3.13 or Hercules 4, things work fine like this:

16:57 M306 /ID MUSJOB? ? ? ? ? GUEST? ? 005 500 000 R=MUSIC C=1 F=? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
16:57 M309 M 100,TAP001? ? ? ? <--------------------- MUSIC ASK FOR TAPE? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??
DEVINIT 100 TAP001.HET? ? ? ? ?<--------------------- TAPE MOUNTED? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
HHCTA004I 0100: TAP001.HET is a Hercules Emulated Tape file? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
HHCPN098I Device 0:0100 initialized? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
16:58 M309 D 100,TAP001? ? ? ? <--------- BATCH RAN, TAPE DISMOUNTED? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?
16:58 M300 BATCH IDLE? ? ? ? ? ?<--------- END OF JOB

--

Carlos

Argentina

I found in an old paper by Dave Edward how to do it in Music 3.07:

?

5- Execute:

? ? User: submit cfread.pli

Operator:

?08:22 M306 /ID MUSJOB? ? ? ? ? GUEST? ? 005 500 000 R=MUSIC C=1 F=? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

?08:22 M314 Put unit online then type "/VARY xxx ON" or cancel job with "/CAN"? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

?devinit 100 *? ? ? ? ? ? ? ? ? ? ? ?<====== OPERATOR REPLY? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

?HHCPN098I Device 0:0100 initialized? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

?/(000F) VARY 100 on? ? ? ? ? ? ? ? ?<====== OPERATOR REPLY? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

?08:23 M309 M 100,TAP001? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

?devinit 100 tap001.het? ? ? ? ? ? ? <====== OPERATOR REPLY? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ??

?HHCTA004I 0100: tap001.het is a Hercules Emulated Tape file? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

?HHCPN098I Device 0:0100 initialized? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

?08:23 M309 D 100,TAP001? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?

?08:23 M300 BATCH IDLE

--

Carlos

Argentina