HI all,
Intially I execute a rexx exec and get the list of datsets ( say 10).
Now for each dataset I have to submit a job with the parms corresponding that dataset. ( so I have to submit the job 10 times with 10 different parms).
I wanted to know as how can we submit a job through REXX and pass the parameters to the JOB
/* EITHER - if you DON'T want to trap jobnames/jesnumbers */
"ALLOC DD(SYSJOB) SYSOUT(A) WRITER(INTRDR) REUSE"
"EXECIO" job.0 "DISKW SYSJOB (STEM job. FINIS"
/* OR - if you DO want to trap jobnames/jesnumbers */
CALL MSG "OFF"
"DELETE TEMP.JOB"
"ALLOC DD(SYSJOB) DS(TEMP.JOB) NEW REUSE",
"UNIT(VIO) LRECL(80) RECFM(F B) SPACE(1)TRACKS"
"EXECIO" job.0 "DISKW SYSJOB (STEM job. FINIS"
CALL MSG "ON"; CALL OUTTRAP "O."
"SUBMIT TEMP.JOB"
CALL MSG "OFF"; CALL OUTTRAP "OFF"
DO i = 1 TO o.0
PARSE VAR o.i WITH . "JOB" jobname.i"("jesnum.i")" .
END
DO i = 1 TO o.0
SAY "IKJ56250I JOB"jobname.i"("jesnum.i") SUBMITTED "
END
"DELETE TEMP.JOB"
I need your help on the same situation.This my first rexx code ever.
I am working on one task(i need to add some logic).
My rexx pgm recalls (mass) the migrated VSAM files.
Now i wanted to change my code from MASS recall to one after one for this i added "HRECALL '" || dsnm || "' WAIT".
I have to add one more logic (logic to program/JCL. Pass number to program to do recalls starting with nth record of the input file ),don't now how to pass the nth record.Can u please give me an idea on this.
Here i am sending the some of the code.
do until RC <> 0
"EXECIO 1 DISKR in01"
if RC = 2 then
Iterate
if RC ¬= 0 then do
Say "Read Error on in01. RC:"RC
Exit (16)
end
check_migrate:
/* Check if vsam file has been migrated */
/* If it has, issue HRECALL */
do v = 1 to vsamlist.0
If Pos(dbnm,vsamlist.v) > 0 then do
& Pos(tsnm,vsamlist.v) > 0 then do
dsnm = Strip(vsamlist.v)
"HRECALL '" || dsnm || "' WAIT"
total_recall = total_recall + 1
say '* Recall ' dsnm
end
end
Return
Now i wanted to change my code from MASS recall to one after one for this i added "HRECALL '" || dsnm || "' WAIT".
why would You want to destroy all the optimization which will be carried on by HSM
it might be irrlevant when recalling from dasd, but when recalling from tape
hsm will group recalls by tape volumes
( it will recall all the datasets on the same tape with just one tape mount )
Your way will result in a longer elapsed, more tape mounts, more tape units being used!
Overall the worst performance by any point of view
