开云体育

Hi everyone: I'm working with PL/I under MUSIC/SP under HERCULES simulator. I want to sort a file, by several keys, But MUSIC Documentation says, the standard IBM libraries , still used today,PLISRTX are not available under music and that one can use SORT,MNSORT or DSORT. Thing is SORT is just one key sort subroutine , MNSORT, is an user interfase multiple key application and DSORT a multiple key subroutine, that can be called from FORTRAN, COBOL OR PL/I. But DSORT is missing in MUSIC. I managed to write a rexx script to call MNSORT, send parameters, but this is not possible from within PLI(f), with no spawn capability. I found thar PLISORTX and DSORT were part of the original MVS for IBM/360, but it is beyond my means to rebuild that libraries from source code. Does anyone know if it's possible to get those losto sort libraries and install them in MUSIC ? Regards -- Carlos Argentina

My next logical step after having used TAPEs is use Disk UDS My program starts with: But I have this error. Same thing happens with GUEST and $000 user. Where do I change this autorization, to be able to allocate UDS? (BTW &&TEMP UDS work OK ) Thanks in advance for your help. -- Carlos Argentina

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

hi everyone. which file/directory archiving method are you using ? Music/ SP mentions a) archiv/retrev ( not installed ) b) exarch/exrest (not installed) c) filarch/filrst/filchk ( filrst not installed, filechk does nothing ) d) mfarch/mfarc2/mfcheck/mfrest Option C seems to be for any user, but is incomplete you can create a file with all your PLI files , but not list or restore them. for instance /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 creates group.arc but this fails, with no message /COM /FILE 1 NAME(GROUP.ARC) LRECL(80) RECFM(FC) SHR /FILE 1 NAME(GROUP.ARC) SHR /INCLUDE *COM:FILECH INPUT=1 INFO=T NAMES=T Option D it's only for an admin user, and seems to be more like a daily backup task, I wasn't able to trigger a backup to a .mfarc file, for a specific directory or user. Currently I'm using ftp for backup ( only good for text files, I suppose that binaries can be corrupted ). What do you suggest. BTW I was able to compile and run a few PL/I for newer versions, in PL/I (F), with a few corrections: 1-lines must be between columns 2 and 72 ( obvious is IBM/360 card style) 2-Text MUST be CAPITALS. 3-You can't be a purist and "exit" or "break" a do while loop, you must use infamous (LOL) GO TO eg: on ENDFILE (SYSYN) GOTO END; 4- You can use matrixes and complex numbers !!! BUT, PL/I has no casting like c, so you must explicity convert your data to complex. For instance SQRT(-1) raises error, but SQRT (-1+0I) works like silk. Well. polimorfism or casting , wasn't invented at the time of the birth of Pl/I. -- Carlos Argentina