开云体育

HTH!

Yes it did! :-) Thank you Fish.

Cheers,

Rene FERLAND, Montreal

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.

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

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

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

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

Thanks for the comment Peter.

Actually I'm using only H-390, because of FTP and telnet, from the windows/linux environment, which are very similar to the ones I'm used to work in Unixes, like unix, qnx, linux. It's a pain in the neck to learn a new editor on each operating system.

But I'll tak into account if I use Hercules in some moment.
--

Carlos

Argentina

Seems you have to use /INFO instead of /ID, to the OS recognizes your
sepparate jobs:

Carlos

Argentina

Hi Markus,

One of the things I like the most in SIM-390 with music is I can use, as in unix, FTP to transfer my graphical workstation ( linux or windows ) files? to the server to be compiled.

I use total commander, one pannel IBM and the other PC, and edit with notepad++?

Take into account this is PL/I(f) so do use , capital letters,no tabs, and text from columns 2 to 72, and last but not least may be it's my installation symbol '?' does now work so I have to use NOT nor NE, for the compiler to accept the line.

I use this header for one file compile and run :

/info music time(4) pages(50) route(system) /* if you would submit this job and want a printout in the system printer file in windows */

/sys region=500

/file sysprint n(parse.prn) new(repl)

/inc PL1F

/opt? noxref,nest, s, noatr

?

something like this:

plitest-2.cmp: (compile as many files as you like )

/SYS REGION=512

/FILE SYSPRINT N(\PLI\PLITEST-2.bat\PLITEST-2.PRN) NEW(REPL) LRECL(133)

/file SYSPUNCH N(\PLI\PLITEST-2.bat\plitest-2.obj) NEW(REPL)

/INC PL1F

/OPT NOSOURCE,DECK,NOGO

/INC \PLI\PLITEST-2\PLITEST-2.PLI

------------------------------------

plitest-2.lnk: (link all your modules into a load module):

/file 6 n(\pli\plitest-2\plitest-2.prn) old append? lrecl(133)

/file lmod n(\pli\plitest-2\MYPROG.LMOD) NEW(REP) lr(128)

/etc recfm(f) space(100)

/file sublibos pds(*pl1f,*mus,*os)

/load lked

/job map,nogo,print,stats,mode=os,name=MYPROG

.org 4a00

/INC \pli\plitest-2\PLITEST-2.OBJ

--------------------------------------------

Al of the three modules controlled by a rexx script:

go.rexx:

/INC REXX

PUSH '/INCLUDE PLITEST-2.CMP'

EXEC

PUSH '/INCLUDE PLITEST-2.LNK'

EXEC

PUSH '/INCLUDE PLITEST-2.RUN'

EXEC

PUSH '/FILE F1 N(PLITEST-2.OBJ)? OLD DELETE'

PUSH '/FILE F2 N(MYPROG.LMOD)? ? OLD DELETE'

EXEC

--

Carlos

Argentina

hi René, I'm testing your suggestion. But have to suspend because of other tasks, at home. But I copied the script i the $pgm directory and modified the file attributes with MKPUBLXO. Thing is Guest user can run it:

/FILE 1 N(GUEST:GROUP.ARC) OLD

/INCLUDE *COM:FILRST

IN=1,ALL=T,REPL=T,FIXUP=' ',LIST=T,SETUI=T,NAME='GUEST:\PLI\*'

?has this output:

?

--

Carlos

Argentina

thanks René,

This works, my only complain is that you have to have administrator prvileges, to run this job.

I've? used FARC, that can be used by any user, to generate backup

/INFO MUSIC R(SYSTEM)

/COM **** FARC PROCESSING

/FILE 1 NAME(GROUP.ARC) NEW(REP) RECFM(FC) LRECL(80)

/COM /FILE 6 N(GROUP.PRN) NEW(REP) LRECL(133)

/INCLUDE *COM:FILARC

OUTPUT=1

GUEST:*.PLI

?

this output file can be tested with mfcheck ( no user restrictions )

but since FILRST ( for all users) is missing from MUSIC, you must use MFREST ( only $000 ) via submit:

/INFO MUSIC USERID($000) PW(CUL8TR) TIME(5) ROUTE(SYSTEM)

/FILE 1 N(GUEST:GROUP.ARC) OLD

/INCLUDE *COM:MFREST

IN=1,ALL=T,REPL=T,FIXUP=' ',LIST=T,SETUI=T

?

Do you think that this missing program, that executes some privileged instructions, FILRST can be get from someone else ?

?

?

?

--

Carlos

Argentina