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
**** your program *
/data
your data follows
/eof ( optional )
?
If you want to use different files for different modules, you have to generate all the intermediate modules, and then linkedit ,
?
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
?
--------------------------------------------
plitest-2.run: ( loads and run )
/file sysprint n(\pli\plitest-2.bat\plitest-2.prn) old append lrecl(133)
/inc xmpl1f
MYPROG n(\pli\plitest-2.bat\MYPROG.lmod)
A=1? B=2? C=3 ;
/END
?
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
Markus Loew
René Ferland
carlos feldman