Here is a quick example of how SDSF can be used to provide the "Resubmit"
action on panels like "H", "ST" or "O".
To keep things brief, I have omitted environmental and error checking -
examples of which can be found in the SDSF manuals.
/* REXX */
/* Example SDSF REXX to re-submit JCL */
/* from output queue bypassing the */
/* EDIF panel from "SJ" */
/* */
parse arg panel primary token command .
sdsfjcldsn = "SDSF.JCL"
if sysdsn(sdsfjcldsn) <> "OK" then do
address TSO "ALLOC F(SDSFJCL) DA("sdsfjcldsn") NEW CATALOG ",
"RECFM(F B) LRECL(80) BLKSIZE(3120) UNIT(SYSALLDA) ",
"DSORG(PS) TRACKS SPACE(10,10)"
end
else do
address TSO "ALLOC F(SDSFJCL) DA("sdsfjcldsn") SHR REU"
end
x = ISFCALLS("ON")
address SDSF "ISFBROWSE "panel "TOKEN('"token"') (JCL)"
if ISFLINE.0 > 0 then do
address TSO "EXECIO * DISKW SDSFJCL (FINIS STEM ISFLINE."
address TSO "SUBMIT "sdsfjcldsn
end
address TSO "FREE F(SDSFJCL)"
x = ISFCALLS("OFF")
exit
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of ITschak Mugzach
Sent: Thursday, June 21, 2018 11:19 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: 2 possible RFE --- ISPF & SDSF.
The issue is applicable for jcl & instream data. The submitted JCL may include
variables which after substitution may occupy larger space. SJ does not
substitute. It uses the post substitution version of the JCL.
ITschak
On Thu, Jun 21, 2018 at 11:34 AM, Rob Scott <rsc...@rocketsoftware.com>
wrote:
> >> On occasion I have been sorely vexed when I hastily issued SUBMIT
> >> from
> the SJ panel and discovered my sysins truncated to 80 characters.
> SUBMIT from SJ should preserve the attributes of the original job on resubmit.
>
> I must admit to being slightly puzzled by this statement.
>
> JCL is, by definition, a sequence of 80-byte card images and any
> instream SYSIN will be taken as a sequence of 80-byte characters.
>
> Maybe I am missing something here - please let me know if so.
>
>
> The SDSF "SJ" command acts by allocating the "special" JES dataset
> name for the original JCL and then uses ISPF "EDIF" (without a command
> routine) to display the contents.
>
> The subsequent "SUBMIT" is not under SDSF control - it is the same
> "SUBMIT" command used by ISPF.
>
>
> As far as the "submit as an SDSF action from NP" idea, the best I
> could advise at the moment would be to use the SDSF REXX interface and the "%"
> prefix in the NP column input to execute it.
>
> Rob Scott
> Rocket Software
>
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Paul Gilmartin
> Sent: Wednesday, June 20, 2018 6:06 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: 2 possible RFE --- ISPF & SDSF.
>
> On Tue, 19 Jun 2018 07:03:21 -0500, John McKown wrote:
> >
> >1) I think it would be nice if I could do a "SUBMIT" command in ISPF
> >option
> >2 when I have a list of UNIX files displayed, rather than members of
> >a
> PDS.
> >Yes, I know that I could do an RYO REXX exec. I just don't wanna {grin}.
> >
> Yes. Likewise for 3.17.
>
> >2) In SDSF, I quite often want to resubmit a job, as is, which is in
> >the output queue. At present, I do an SJ on it, followed by
> >"submit;end;;". I would also like a SDSF line command, preferably
> >named SUBMIT, which would do this for me. Again, RYO is a possibility, but
> >... .
> >
> Yes. And sometimes finding the job ID can be tricky. Pedro Vera
> suggested screen scraping. Crude but effective.
>
> On occasion I have been sorely vexed when I hastily issued SUBMIT from
> the SJ panel and discovered my sysins truncated to 80 characters.
> SUBMIT from SJ should preserve the attributes of the original job on resubmit.
>
> -- gil
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> ================================ Rocket Software, Inc. and
> subsidiaries ■ 77 Fourth Avenue, Waltham MA
> 02451 ■ Main Office Toll Free Number: +1 855.577.4323 Contact Customer
> Support:
> https://na01.safelinks.protection.outlook.com/?url=https%3A%2F%2Fmy.ro
> cketsoftware.com%2F&data=02%7C01%7CRScott%40ROCKETSOFTWARE.COM%7C6d52a
> 64e9c7a4b9fa74208d5d7605ba1%7C79544c1eed224879a082b67a9a672aae%7C0%7C0
> %7C636651731237844746&sdata=Rqo6fO5u29%2FgAL9zVLgi7b49PpAumBAGP8lSL3xi
> f58%3D&reserved=0
> RocketCommunity/RCEmailSupport
> Unsubscribe from Marketing Messages/Manage Your Subscription
> Preferences -
> https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.ro
> cketsoftware.com%2Fmanage-your-email-preferences&data=02%7C01%7CRScott
> %40ROCKETSOFTWARE.COM%7C6d52a64e9c7a4b9fa74208d5d7605ba1%7C79544c1eed2
> 24879a082b67a9a672aae%7C0%7C0%7C636651731237844746&sdata=TNutTRQ70bHf2
> iip2UIVYqK49%2FkJC7rC%2BEkXPwgS6E8%3D&reserved=0
> Privacy Policy -
> https://na01.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.ro
> cketsoftware.com%2F&data=02%7C01%7CRScott%40ROCKETSOFTWARE.COM%7C6d52a
> 64e9c7a4b9fa74208d5d7605ba1%7C79544c1eed224879a082b67a9a672aae%7C0%7C0
> %7C636651731237844746&sdata=ifzSB3TuUs47OVs%2Fd1AqgVnAU236Mke2SECIbUeV
> v6Q%3D&reserved=0
> company/legal/privacy-policy
> ================================
>
> This communication and any attachments may contain confidential
> information of Rocket Software, Inc. All unauthorized use, disclosure
> or distribution is prohibited. If you are not the intended recipient,
> please notify Rocket Software immediately and destroy all copies of
> this communication. Thank you.
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions, send
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
--
ITschak Mugzach
*|** IronSphere Platform* *|* *Information Security Contiguous Monitoring for
Legacy **| *
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
================================
Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■
Main Office Toll Free Number: +1 855.577.4323
Contact Customer Support:
https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport
Unsubscribe from Marketing Messages/Manage Your Subscription Preferences -
http://www.rocketsoftware.com/manage-your-email-preferences
Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy
================================
This communication and any attachments may contain confidential information of
Rocket Software, Inc. All unauthorized use, disclosure or distribution is
prohibited. If you are not the intended recipient, please notify Rocket
Software immediately and destroy all copies of this communication. Thank you.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
