|
View previous topic :: View next topic
|
| Author |
Message |
ssardo
New User
Joined: 23 Mar 2007
Posts: 3
Location: Bollate - Italy
|
|
|
|
Hi to all.
I've to develop an ISREDIT macro, written in Rexx, that calls a panel where a user has to insert some values; from these values the Rexx will identify a specific PROC in a library.
Then the Rexx should "START" that PROC passing it some parameters (the parameters are managed by the PROC).
Is there a way to do so?
...or any workaround?
The onky workaround I have in my mind is to build the needed job internally in the rexx module, than submit it in someway, but I think "SUBmit" command works only with the underlying dataset....
Thanks for any help! |
|
| Back to top |
|
 |
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1312
Location: Bamberg, Germany
|
|
|
|
| Should be possible IMHO. |
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1204
Location: Dublin, Ireland
|
|
|
|
| Quote: |
The onky workaround I have in my mind is to build the needed job internally in the rexx module, than submit it in someway, but I think "SUBmit" command works only with the underlying dataset....
|
You can build the job to invoke the PROC in a temporary (ZTEMPF) dataset and use an edit macro to submit from this dataset - e.g.:
| Code: |
address tso
"ALLOC FI(JCLFILE) DA('"ZTEMPF"') NEW REUSE UNIT(SYSDA) DELETE " ,
"LRECL(80) RECFM (F B) BLKSIZE(3200) "
"EXECIO * DISKW JCLFILE (STEM jcl. FINIS)"
address ispexec
"edit dataset('"ZTEMPF"') macro(mysubmit)"
address tso
"FREE FI(JCLFILE) "
|
The mysubmit macro:
| Code: |
/* Rexx mysubmit*/
address ispexec
"ISREDIT MACRO"
"ISREDIT SUB"
"ISREDIT END"
EXIT |
Garry. |
|
| Back to top |
|
|
ssardo
New User
Joined: 23 Mar 2007
Posts: 3
Location: Bollate - Italy
|
|
|
|
Wow! :-)
Thanks a lot, Garry.
I'll test this solution asap, and I'll let you know. |
|
| Back to top |
|
|
ssardo
New User
Joined: 23 Mar 2007
Posts: 3
Location: Bollate - Italy
|
|
|
|
It works fine!
Thanks again, to all
[/code] |
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1204
Location: Dublin, Ireland
|
|
|
|
Glad to have been able to help. Thanks for letting us know 
Garry. |
|
| Back to top |
|
|
Willy Jensen
Active Member
Joined: 01 Sep 2015
Posts: 726
Location: Denmark
|
|
|
|
You don't actually have to do a submit, you can write directly to the internal reader as shown in the sample:
| Code: |
j.1= '//BR14 JOB (1),'ZZZ',CLASS=A,COND=(0,LT),REGION=0M'
j.2= '//A EXEC PGM=IEFBR14 '
j.0=2
cc=bpxwdyn('alloc rtddn(dd1) sysout(a) writer(intrdr)')
"execio" j.0 "diskw" dd1 "(stem j. finis)"
cc=bpxwdyn('free dd('dd1')') |
If you are generating the job using ISPF skeletons, then you can just allocate the ISPFILE DD with the 'writer' operand. |
|
| Back to top |
|
|
|
|
