I finally could write a decent batch job in music for compiling, linking and run several modules, as different jobs.
creating .obj and .lmod modules.
The trick is calling different tasks by submitting this script:
?
/INFO MUSIC USERID(GUEST) PW(PASS4U) TI(5) PA(50) R(MUSIC)
/COM 1-ST COMPILATION
/SYS REGION=500,CD=PLI\PLITESTB
/file SYSPUNCH N(TEST_2.OBJ) NEW(REPL)
/INC PL1F
/OPT NOXREF,NONEST,NOSOURCE,NOATR,DECK
/JOB NOGO
/INC TEST2.PLI
/END
/INFO MUSIC USERID(GUEST) PW(PASS4U) TI(5) PA(50) R(MUSIC)
/COM -2nd COMPILATION
/SYS REGION=500,CD=PLI\PLITESTB
/file SYSPUNCH N(MAX3.OBJ) NEW(REPL)
/INC PL1F
/OPT NOXREF,NONEST,NOSOURCE,NOATR,DECK
/JOB NOGO
/INC MAX3.PLI
/END
/INFO MUSIC USERID(GUEST) PW(PASS4U) TI(5) PA(50) R(MUSIC)
/COM link step
/SYS CD=PLI\PLITESTB
/file lmod n(plitestb.lmod) new(REPL) lr(128) recfm(f) space(100)
/file sublibos pds(*pl1f,*mus,*os)
/load lked
/job map,nogo,print,stats,mode=os,name=pltstb
.org 4a00
/inc test_2.obj
/inc max3.obj
/END
/INFO MUSIC USERID(GUEST) PW(PASS4U) TI(5) PA(50) R(MUSIC)
/COM go step
/SYS CD=PLI\PLITESTB
/inc xmpl1f
pltstb N(PLITESTB.lmod)
?A=1? B=2? C=3 ;
/END
?
this other script does not work in SIM390 with music, I havent tested under H-390, but the OS dislikes this job definition:
?
/ID SAVE-JOB-123456 $000 000 999 999 999
/PASSWORD=MUSIC
/SYS REGION=500
/FILE SYSPRINT N(PLITEST-2.PRN)? NEW(REPL) LRECL(133)
/COM /file SYSPUNCH N(PLITEST-2.LMOD) NEW(REPL)
/COM /FILE SYSUT3? ?N(PLITEST-2.SUT3) NEW(REPL) LRECL(80)
/INC PL1F
/OPT NOSOURCE,DECK,NONEST,NOATTR
/INC PLITEST-2.PLI
/DATA
A=1 B=2 C=3;
/END
?
Seems you have to use /INFO instead of /ID, to the OS recognizes your sepparate jobs:
?
If you want to compile and link several modules in a single Lmod in a single job, you can do:
?
/INFO MUSIC USERID(GUEST) PW(PASS4U) TI(5) PA(50) R(MUSIC)
/COM 1-ST COMPILATION
/SYS REGION=500,CD=PLI\PLITESTB
/file SYSPUNCH N(TEST_2.OBJ) NEW(REPL)
/INC PL1F
/OPT NOXREF,NONEST,NOSOURCE,NOATR,DECK
/JOB NOGO
/INC TEST2.PLI
/END
/INFO MUSIC USERID(GUEST) PW(PASS4U) TI(5) PA(50) R(MUSIC)
/COM -2nd COMPILATION
/SYS REGION=500,CD=PLI\PLITESTB
/file SYSPUNCH N(MAX3.OBJ) NEW(REPL)
/INC PL1F
/OPT NOXREF,NONEST,NOSOURCE,NOATR,DECK
/JOB NOGO
/INC MAX3.PLI
/END
/INFO MUSIC USERID(GUEST) PW(PASS4U) TI(5) PA(50) R(MUSIC)
/COM link step
/SYS CD=PLI\PLITESTB
/file lmod n(plitestb.lmod) new(REPL) lr(128) recfm(f) space(100)
/file sublibos pds(*pl1f,*mus,*os)
/load lked
/job map,nogo,print,stats,mode=os,name=pltstb
.org 4a00
/inc test_2.obj
/inc max3.obj
/END
--?
Carlos
Argentina
carlos feldman