Re: Finding JES2 node name

[Rob Scott]

Tim

I was not suggesting that you use SDSF - just confirming that SDSF uses SSI-54 
to gather that information rather than JES control block chasing.

One advantage of SSI-54 is that you can direct to a secondary JES subsystem.

Rob Scott
Rocket Software

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of Tim 
Hare
Sent: 18 November 2020 05:19
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Finding JES2 node name

EXTERNAL EMAIL





The code is not just to _find_ the node, but we want to use the node name for 
other purposes in this program. So SDSF isn't going to help here.

As for other methods of using IEFSSREQ and/or control block chain chaining why 
are they better than the ASASYMBM/F program interface?

--
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

Re: Reference for NIH or Mellon multi-access SPOOL?

[Seymour J Metz]

I don't know, but if anybody has copies of any of. e.g.,  the Share projects 
mods tapes, I urge you to make them known to the CBTtape and Hercules 
communities.

Thanks.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3



From: IBM Mainframe Discussion List  on behalf of 
Clark Morris 
Sent: Tuesday, November 17, 2020 9:16 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Reference for NIH or Mellon multi-access SPOOL?

[Default] On 17 Nov 2020 09:24:13 -0800, in bit.listserv.ibm-main
sme...@gmu.edu (Seymour J Metz) wrote:

>Can anybody point me to documentation on the provenance of the NIH (HASP II 
>V3) or Mellon (HASP II V4) mods for mult-access SPOOL? There are citation 
>needed tags in 
>https://secure-web.cisco.com/1NMdsAmWJzHy3OIMdnHW4RUIliT2f2Ks4pe2mlBWQdAHkqGZTmvFsTg7_A7SxM1xaGU_1upyTBi1nkh4eW_U-At6CaQe5I3WEMw_qlCmNW9Te4UlwQ5QwRlkgAg33f12NvoVSO4q9qfzUff6xHCiY4DSQDsaLiex7j_SAqGZExYoFXRa708oBfdAZ9GP4uxnTMQ21F6jmb3sRJu1YywOb7dHN1I36JK1Rbw2cE2ItJ0paUtldTpIYP6A4HSPWRRSY7FQTbi0d-tPOsI7jHqhHHJZ1UaYJ00ZLCoiKR1v35i1ORuR1VyAHLUqJciIu_bpwwlekkMYXoNam_znjpUfJdPT0q4SBK2g8zabFSxllkFLZ1hcFktTERtNFBuQkQynadr19YCHS88_L0jMH83LFCgUaowYFqyhMu3fW7lHsdHoAYCvwngqUK84mT8wV7-ej/https%3A%2F%2Fen.wikipedia.org%2Fwiki%2FJob_Entry_Subsystem_2%2F3
> and I'd like to include some. Thanks.

Are cumulative JES2 mods tapes online? the MICHMODS MVT tapes of
varying vintages? These might have what you want as might contemporary
SHARE proceedings because they probably would have been subjects of
sessions.  The Mellon Bank mods may also be on early CBT tapes if they
predate MVS.

Clark Morris

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my shell script gets "FSUM7351 not found" error

[Seymour J Metz]

Did you need the read bit on the entire path, or only the execute bit?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3



From: IBM Mainframe Discussion List  on behalf of 
Frank Swarbrick 
Sent: Tuesday, November 17, 2020 4:24 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my shell 
script gets "FSUM7351 not found" error

OK, issue resolved.  I not only had to set the read and execute bits on the 
program itself (curl), but also on the entire directory path.  Not sure what 
the difference is in regard to executing the program directly vs inside a 
script, but hey.


From: MVS OpenEdition  on behalf of Pommier, Rex 

Sent: Tuesday, November 17, 2020 12:47 PM
To: mvs...@vm.marist.edu 
Subject: Re: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my shell 
script gets "FSUM7351 not found" error

Except Frank said the other user could run curl directly, just not if he was 
using Frank's script.

-Original Message-
From: MVS OpenEdition  On Behalf Of Kirk Wolf
Sent: Tuesday, November 17, 2020 1:10 PM
To: mvs...@vm.marist.edu
Subject: [External] Re: [MVS-OE] Other user trying to run my shell script gets 
"FSUM7351 not found" error

Perhaps the user doesn't have read/search/execute permissions to the full 
directory path of /u/dvfjs/rocket/bin/curl  ?

Kirk Wolf
Dovetailed Technologies
http://secure-web.cisco.com/1lyBFXiveOds6XamK3ZgQmj8A7-ybpz8sz21wX2PPg7b0fQfZiVzOAq2aIdMQt2YtbZW3F9lFUYCwahSfc9lZA4FEjMRfIaLAZIyh3zjGSyeG5OMziI3LEmko0rELjoIMRGE-MnAy7zdVyShSCjTbphBNHy7qaHA3zDOloSe-CPHx3jiiMkbRWkTy3cxRxsBHN8oK2CUOeLKuBq_3IxW3umtjD7E16Vz35v3Hhhl2w68ihmgf6F_6F2FExu4nsrr46vy0S1bW3aygSIy85l1rTEy5U3YbJMsLPAOpReHzePb64_uuTeEuOmbitquoOOvi3n-7p7dpkQLeRhgiiVU9PldzauUpBNexw4c6eIRBAylqA7UGeebw5bo9yjVopq4u0rojPakPp1WGt7IJah0e-PhbnEZ1FOMY4oBKeLQxrJGt5tFfsoWJlRed6rHFV87K/http%3A%2F%2Fdovetail.com


On Mon, Nov 16, 2020 at 12:51 PM Frank Swarbrick < frank.swarbr...@outlook.com> 
wrote:

> Any thoughts on this?  I can execute this job and have no issue.  I'm
> trying to let another developer run it.  He's able to run
> /u/dvfjs/rocket/bin/curl directly (in STDPARM, following "SH ".)  But
> if he executes my shell script (/u/dvfjs/jira_test) he gets
> "/u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4: FSUM7351 not found".
>
> I've set the read and execution bits for user, group and other for
> both curl and the jira_test shell script.  Since the "echo" commands
> are working for him, he's obviously able to execute my shell script
> itself.  What else might I be missing?  The other developer has an
> OMVS segment, but he doesn't have an initial working directory or default 
> shell configured yet.
> Could that be the issue?  If so, what specifically is causing this
> particular issue?
>
> JCL:
> //DVRJZTST JOB ,'Test',CLASS=C,REGION=0M,NOTIFY=&SYSUID
> //*
> //UNIX EXEC PGM=BPXBATCH
> //STDOUT   DD SYSOUT=*
> //STDERR   DD SYSOUT=*
> //STDPARM  DD *
> SH /u/dvfjs/jira_test
> /*
>
> /u/dvfjs/jira_test:
> #!/bin/sh -x
>
> echo **before**
> /u/dvfjs/rocket/bin/curl --help
> echo **after**
>
> File attributes:
> -sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/jira_test
> - untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971  77 Nov 16
> 12:24 /u/dvfjs/jira_test
> -sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/rocket/bin/curl
> - untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971 21266432 Nov
> 1  2019 /u/dvfjs/rocket/bin/curl
>
> STDERR:
> FSUM1012 The initial working directory was not specified.
> FSUM1006 A shell was not specified. Processing continues using the
> default shell name.
> + echo **before**
> + /u/dvfjs/rocket/bin/curl --help
> /u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4:
> + echo **after**
>
> STDOUT:
> **before**
> **after**
>
>
>
> --
> For MVS-OE subscribe / signoff / archive access instructions, send
> email to lists...@vm.marist.edu with the message: INFO MVS-OE
>

--
For MVS-OE subscribe / signoff / archive access instructions, send email to 
lists...@vm.marist.edu with the message: INFO MVS-OE


The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on it, 
is strictly prohibited and may be unlawful.  If you have received this 
communication in error, please notify us immediately by replying to this 
message and destroy the material in its entirety, whether in electronic or hard 
copy format.  Thank you.


--
For MVS-OE subscri

Re: Finding JES2 node name

[Charles Mills]

> not just to _find_ the node, but we want to use the node name

Not sure I understand your point. Once you find the node name you are free to 
copy it to one or more variables in your program and use it however you choose.

> IEFSSREQ and/or control block chain chaining why are they better than the 
> ASASYMBM/F

No idea. You asked for a method; I gave you a method. Feel free to use any 
method you prefer.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tim Hare
Sent: Tuesday, November 17, 2020 9:19 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Finding JES2 node name

The code is not just to _find_ the node, but we want to use the node name for 
other purposes in this program. So SDSF isn't going to help here.

As for other methods of using IEFSSREQ and/or control block chain chaining why 
are they better than the ASASYMBM/F program interface?

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my shell script gets "FSUM7351 not found" error

[Paul Gilmartin]

On Wed, 18 Nov 2020 13:36:26 +, Seymour J Metz wrote:

>Did you need the read bit on the entire path, or only the execute bit?
>
It should depend on whether the path involves a wildcard expansion.

And /path/to/script requires execute permission on script;
sh  /path/to/script does not.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Improve OMVS cp performance?

[Kirk Wolf]

Hey David,

Thank you for rescuing this thread from the ash heap of old hardware model
numbers and tape formats :-)

We already have on our list to add ISPF-style enqueue serialization to
putpds.  It just didn't make the first release.
Currently putpds allocates the data set with DISP=OLD  (SYSDSN EXCL).


On Tue, Nov 17, 2020 at 11:02 PM David Crayford  wrote:

> This is really cool. We could use this right now for our SCLM/Git
> Integration tooling.
>
> Q: How does it handle member ENQs. Does it ENQ using SPFEDIT or SYSDSN?
> One of the problems we ran into with "cp" copying an entire data set is
> it fails if one member is in use.
> We worked around this by writing a cp_pds_to_dir command.
>
> On 13/11/2020 9:54 pm, Kirk Wolf wrote:
> > I wanted to update this thread with a bit of news.   We have had the
> > enjoyable experience of working with Lionel and Henri (please check out:
> > http://zigi.rocks) on requirements for some new shell commands for the
> Co:Z
> > Toolkit V6.2.0, which we released this week.
> >
> > The new commands (getpds and putpds) use BPAM+BSAM along with our
> existing
> > Co:Z record <-> stream processing framework to allow you to copy PDS
> > members to and from z/OS UNIX files.  Also included are extensive options
> > for ISPF stats processing.
> >
> > The performance (when compared to "/bin/cp") is better than we could have
> > expected.  The following example copies all of the members of SYS1.MACLIB
> > to text files in the current directory:
> >
> > $ getpds //sys1.maclib .
> > getpds(SYS1.MACLIB)[N]: 2015 members/2435218 records/194817440 bytes
> read;
> >  194011101 bytes written in 1.791 seconds
> (103.307
> > MBytes/sec).
> >
> > For more information:
> > https://dovetail.com/docs/zos-utilities/dsp-ref_getpds.html
> > https://dovetail.com/docs/zos-utilities/dsp-ref_putpds.html
> > https://dovetail.com/docs/cozinstall/changes.html
> > Co:Z is available free under our Community License
> > .
> >
> > Kirk Wolf
> > http://dovetail.com
> >
> >
> > On Mon, Jun 22, 2020 at 9:30 AM Paul Gilmartin <
> > 000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
> >
> >> On Wed, 17 Jun 2020 07:14:39 -0500, Lionel B Dyck wrote:
> >>
> >>> Kirk - thank you for the ideas.
> >>>
> >>> What I'm doing is in the ZIGI (see https://zigi.rocks) where I need to
> >> copy PDS members to/from USS so that Git can manage them. With small
> >> projects this isn't an issue but with larger projects it could take
> enough
> >> time for you to go to lunch ☹
> >>> Btw. I voted your RFE.
> >>>
> >> I notice that replies this thread have focused on Classic PDS as the
> >> performance culprit.  Has someone tried the benchmarks:
> >>
> >>  cp UNIX -> UNIX  vs.  cp PDS -> PDS
> >>
> >> ... and compared performance?  I suspect Classic OS was optimized
> >> for a few large data sets; UNIX for many small files.
> >>
> >> Might there be an argument here for maintaining the data where it
> >> works best and omitting the copying?
> >>
> >>> -Original Message-
> >>> From: Kirk Wolf
> >>> Sent: Wednesday, June 17, 2020 7:03 AM
> >>>
> >>> FWIW: It's a pity that the IBM C library doesn't have any support for
> >> BLDL/NOTE/POINT processing of PDS/Es -- see my old RFE and vote if you
> >>> agree:
> >>>
> >>
> https://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe&CR_ID=80811
> >>
> >> -- gil
> >>
> >> --
> >> For IBM-MAIN subscribe / signoff / archive access instructions,
> >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >>
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my shell script gets "FSUM7351 not found" error

[Frank Swarbrick]

Unknown, since I tested it only with both bits set.


From: IBM Mainframe Discussion List  on behalf of 
Seymour J Metz 
Sent: Wednesday, November 18, 2020 6:36 AM
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my shell 
script gets "FSUM7351 not found" error

Did you need the read bit on the entire path, or only the execute bit?


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3



From: IBM Mainframe Discussion List  on behalf of 
Frank Swarbrick 
Sent: Tuesday, November 17, 2020 4:24 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my shell 
script gets "FSUM7351 not found" error

OK, issue resolved.  I not only had to set the read and execute bits on the 
program itself (curl), but also on the entire directory path.  Not sure what 
the difference is in regard to executing the program directly vs inside a 
script, but hey.


From: MVS OpenEdition  on behalf of Pommier, Rex 

Sent: Tuesday, November 17, 2020 12:47 PM
To: mvs...@vm.marist.edu 
Subject: Re: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my shell 
script gets "FSUM7351 not found" error

Except Frank said the other user could run curl directly, just not if he was 
using Frank's script.

-Original Message-
From: MVS OpenEdition  On Behalf Of Kirk Wolf
Sent: Tuesday, November 17, 2020 1:10 PM
To: mvs...@vm.marist.edu
Subject: [External] Re: [MVS-OE] Other user trying to run my shell script gets 
"FSUM7351 not found" error

Perhaps the user doesn't have read/search/execute permissions to the full 
directory path of /u/dvfjs/rocket/bin/curl  ?

Kirk Wolf
Dovetailed Technologies
http://secure-web.cisco.com/1lyBFXiveOds6XamK3ZgQmj8A7-ybpz8sz21wX2PPg7b0fQfZiVzOAq2aIdMQt2YtbZW3F9lFUYCwahSfc9lZA4FEjMRfIaLAZIyh3zjGSyeG5OMziI3LEmko0rELjoIMRGE-MnAy7zdVyShSCjTbphBNHy7qaHA3zDOloSe-CPHx3jiiMkbRWkTy3cxRxsBHN8oK2CUOeLKuBq_3IxW3umtjD7E16Vz35v3Hhhl2w68ihmgf6F_6F2FExu4nsrr46vy0S1bW3aygSIy85l1rTEy5U3YbJMsLPAOpReHzePb64_uuTeEuOmbitquoOOvi3n-7p7dpkQLeRhgiiVU9PldzauUpBNexw4c6eIRBAylqA7UGeebw5bo9yjVopq4u0rojPakPp1WGt7IJah0e-PhbnEZ1FOMY4oBKeLQxrJGt5tFfsoWJlRed6rHFV87K/http%3A%2F%2Fdovetail.com


On Mon, Nov 16, 2020 at 12:51 PM Frank Swarbrick < frank.swarbr...@outlook.com> 
wrote:

> Any thoughts on this?  I can execute this job and have no issue.  I'm
> trying to let another developer run it.  He's able to run
> /u/dvfjs/rocket/bin/curl directly (in STDPARM, following "SH ".)  But
> if he executes my shell script (/u/dvfjs/jira_test) he gets
> "/u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4: FSUM7351 not found".
>
> I've set the read and execution bits for user, group and other for
> both curl and the jira_test shell script.  Since the "echo" commands
> are working for him, he's obviously able to execute my shell script
> itself.  What else might I be missing?  The other developer has an
> OMVS segment, but he doesn't have an initial working directory or default 
> shell configured yet.
> Could that be the issue?  If so, what specifically is causing this
> particular issue?
>
> JCL:
> //DVRJZTST JOB ,'Test',CLASS=C,REGION=0M,NOTIFY=&SYSUID
> //*
> //UNIX EXEC PGM=BPXBATCH
> //STDOUT   DD SYSOUT=*
> //STDERR   DD SYSOUT=*
> //STDPARM  DD *
> SH /u/dvfjs/jira_test
> /*
>
> /u/dvfjs/jira_test:
> #!/bin/sh -x
>
> echo **before**
> /u/dvfjs/rocket/bin/curl --help
> echo **after**
>
> File attributes:
> -sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/jira_test
> - untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971  77 Nov 16
> 12:24 /u/dvfjs/jira_test
> -sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/rocket/bin/curl
> - untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971 21266432 Nov
> 1  2019 /u/dvfjs/rocket/bin/curl
>
> STDERR:
> FSUM1012 The initial working directory was not specified.
> FSUM1006 A shell was not specified. Processing continues using the
> default shell name.
> + echo **before**
> + /u/dvfjs/rocket/bin/curl --help
> /u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4:
> + echo **after**
>
> STDOUT:
> **before**
> **after**
>
>
>
> --
> For MVS-OE subscribe / signoff / archive access instructions, send
> email to lists...@vm.marist.edu with the message: INFO MVS-OE
>

--
For MVS-OE subscribe / signoff / archive access instructions, send email to 
lists...@vm.marist.edu with the message: INFO MVS-OE


The information contained in this message is confidential, protected from 
disclosure and may be legally privileged.  If the reader of this message is not 
the intended recipient or an employee or agent responsible for delivering this 
message to the intended recipient, you are hereby notified that any disclosure, 
distribution, copying, or any action taken or action omitted in reliance on i

Re: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my shell script gets "FSUM7351 not found" error

[Kirk Wolf]

You need directory search (x) permission for every directory in the path in
order to access a file or subdirectory with a known name.

So in your example, the user must have search (x) permission on all of
these:

/u
/u/dvfjs
/u/dvfjs/rocket
/u/dvfjs/rocket/bin

Kirk Wolf

On Tue, Nov 17, 2020 at 3:25 PM Frank Swarbrick 
wrote:

> OK, issue resolved.  I not only had to set the read and execute bits on
> the program itself (curl), but also on the entire directory path.  Not sure
> what the difference is in regard to executing the program directly vs
> inside a script, but hey.
>
> 
> From: MVS OpenEdition  on behalf of Pommier, Rex <
> rpomm...@sfgmembers.com>
> Sent: Tuesday, November 17, 2020 12:47 PM
> To: mvs...@vm.marist.edu 
> Subject: Re: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my
> shell script gets "FSUM7351 not found" error
>
> Except Frank said the other user could run curl directly, just not if he
> was using Frank's script.
>
> -Original Message-
> From: MVS OpenEdition  On Behalf Of Kirk Wolf
> Sent: Tuesday, November 17, 2020 1:10 PM
> To: mvs...@vm.marist.edu
> Subject: [External] Re: [MVS-OE] Other user trying to run my shell script
> gets "FSUM7351 not found" error
>
> Perhaps the user doesn't have read/search/execute permissions to the full
> directory path of /u/dvfjs/rocket/bin/curl  ?
>
> Kirk Wolf
> Dovetailed Technologies
> http://dovetail.com
>
>
> On Mon, Nov 16, 2020 at 12:51 PM Frank Swarbrick <
> frank.swarbr...@outlook.com> wrote:
>
> > Any thoughts on this?  I can execute this job and have no issue.  I'm
> > trying to let another developer run it.  He's able to run
> > /u/dvfjs/rocket/bin/curl directly (in STDPARM, following "SH ".)  But
> > if he executes my shell script (/u/dvfjs/jira_test) he gets
> > "/u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4: FSUM7351 not found".
> >
> > I've set the read and execution bits for user, group and other for
> > both curl and the jira_test shell script.  Since the "echo" commands
> > are working for him, he's obviously able to execute my shell script
> > itself.  What else might I be missing?  The other developer has an
> > OMVS segment, but he doesn't have an initial working directory or
> default shell configured yet.
> > Could that be the issue?  If so, what specifically is causing this
> > particular issue?
> >
> > JCL:
> > //DVRJZTST JOB ,'Test',CLASS=C,REGION=0M,NOTIFY=&SYSUID
> > //*
> > //UNIX EXEC PGM=BPXBATCH
> > //STDOUT   DD SYSOUT=*
> > //STDERR   DD SYSOUT=*
> > //STDPARM  DD *
> > SH /u/dvfjs/jira_test
> > /*
> >
> > /u/dvfjs/jira_test:
> > #!/bin/sh -x
> >
> > echo **before**
> > /u/dvfjs/rocket/bin/curl --help
> > echo **after**
> >
> > File attributes:
> > -sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/jira_test
> > - untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971  77 Nov 16
> > 12:24 /u/dvfjs/jira_test
> > -sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/rocket/bin/curl
> > - untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971 21266432 Nov
> > 1  2019 /u/dvfjs/rocket/bin/curl
> >
> > STDERR:
> > FSUM1012 The initial working directory was not specified.
> > FSUM1006 A shell was not specified. Processing continues using the
> > default shell name.
> > + echo **before**
> > + /u/dvfjs/rocket/bin/curl --help
> > /u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4:
> > + echo **after**
> >
> > STDOUT:
> > **before**
> > **after**
> >
> >
> >
> > --
> > For MVS-OE subscribe / signoff / archive access instructions, send
> > email to lists...@vm.marist.edu with the message: INFO MVS-OE
> >
>
> --
> For MVS-OE subscribe / signoff / archive access instructions, send email
> to lists...@vm.marist.edu with the message: INFO MVS-OE
>
>
> The information contained in this message is confidential, protected from
> disclosure and may be legally privileged.  If the reader of this message is
> not the intended recipient or an employee or agent responsible for
> delivering this message to the intended recipient, you are hereby notified
> that any disclosure, distribution, copying, or any action taken or action
> omitted in reliance on it, is strictly prohibited and may be unlawful.  If
> you have received this communication in error, please notify us immediately
> by replying to this message and destroy the material in its entirety,
> whether in electronic or hard copy format.  Thank you.
>
>
> --
> For MVS-OE subscribe / signoff / archive access instructions,
> send email to lists...@vm.marist.edu with the message: INFO MVS-OE
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

---

Re: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my shell script gets "FSUM7351 not found" error

[Frank Swarbrick]

Yep. Thanks.

Can you explain the difference between executing a script that executes the 
program, which requires this, while running the program directly (with a fully 
qualified path) does not?


From: IBM Mainframe Discussion List  on behalf of 
Kirk Wolf 
Sent: Wednesday, November 18, 2020 10:13 AM
To: IBM-MAIN@LISTSERV.UA.EDU 
Subject: Re: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my shell 
script gets "FSUM7351 not found" error

You need directory search (x) permission for every directory in the path in
order to access a file or subdirectory with a known name.

So in your example, the user must have search (x) permission on all of
these:

/u
/u/dvfjs
/u/dvfjs/rocket
/u/dvfjs/rocket/bin

Kirk Wolf

On Tue, Nov 17, 2020 at 3:25 PM Frank Swarbrick 
wrote:

> OK, issue resolved.  I not only had to set the read and execute bits on
> the program itself (curl), but also on the entire directory path.  Not sure
> what the difference is in regard to executing the program directly vs
> inside a script, but hey.
>
> 
> From: MVS OpenEdition  on behalf of Pommier, Rex <
> rpomm...@sfgmembers.com>
> Sent: Tuesday, November 17, 2020 12:47 PM
> To: mvs...@vm.marist.edu 
> Subject: Re: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my
> shell script gets "FSUM7351 not found" error
>
> Except Frank said the other user could run curl directly, just not if he
> was using Frank's script.
>
> -Original Message-
> From: MVS OpenEdition  On Behalf Of Kirk Wolf
> Sent: Tuesday, November 17, 2020 1:10 PM
> To: mvs...@vm.marist.edu
> Subject: [External] Re: [MVS-OE] Other user trying to run my shell script
> gets "FSUM7351 not found" error
>
> Perhaps the user doesn't have read/search/execute permissions to the full
> directory path of /u/dvfjs/rocket/bin/curl  ?
>
> Kirk Wolf
> Dovetailed Technologies
> http://dovetail.com
>
>
> On Mon, Nov 16, 2020 at 12:51 PM Frank Swarbrick <
> frank.swarbr...@outlook.com> wrote:
>
> > Any thoughts on this?  I can execute this job and have no issue.  I'm
> > trying to let another developer run it.  He's able to run
> > /u/dvfjs/rocket/bin/curl directly (in STDPARM, following "SH ".)  But
> > if he executes my shell script (/u/dvfjs/jira_test) he gets
> > "/u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4: FSUM7351 not found".
> >
> > I've set the read and execution bits for user, group and other for
> > both curl and the jira_test shell script.  Since the "echo" commands
> > are working for him, he's obviously able to execute my shell script
> > itself.  What else might I be missing?  The other developer has an
> > OMVS segment, but he doesn't have an initial working directory or
> default shell configured yet.
> > Could that be the issue?  If so, what specifically is causing this
> > particular issue?
> >
> > JCL:
> > //DVRJZTST JOB ,'Test',CLASS=C,REGION=0M,NOTIFY=&SYSUID
> > //*
> > //UNIX EXEC PGM=BPXBATCH
> > //STDOUT   DD SYSOUT=*
> > //STDERR   DD SYSOUT=*
> > //STDPARM  DD *
> > SH /u/dvfjs/jira_test
> > /*
> >
> > /u/dvfjs/jira_test:
> > #!/bin/sh -x
> >
> > echo **before**
> > /u/dvfjs/rocket/bin/curl --help
> > echo **after**
> >
> > File attributes:
> > -sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/jira_test
> > - untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971  77 Nov 16
> > 12:24 /u/dvfjs/jira_test
> > -sh|DVFJS:/u/dvfjs:>ls -FalTHp /u/dvfjs/rocket/bin/curl
> > - untaggedT=off -rwxr-xr-x     1 DVFJSDEPT9971 21266432 Nov
> > 1  2019 /u/dvfjs/rocket/bin/curl
> >
> > STDERR:
> > FSUM1012 The initial working directory was not specified.
> > FSUM1006 A shell was not specified. Processing continues using the
> > default shell name.
> > + echo **before**
> > + /u/dvfjs/rocket/bin/curl --help
> > /u/dvfjs/rocket/bin/curl: /u/dvfjs/jira_test 4:
> > + echo **after**
> >
> > STDOUT:
> > **before**
> > **after**
> >
> >
> >
> > --
> > For MVS-OE subscribe / signoff / archive access instructions, send
> > email to lists...@vm.marist.edu with the message: INFO MVS-OE
> >
>
> --
> For MVS-OE subscribe / signoff / archive access instructions, send email
> to lists...@vm.marist.edu with the message: INFO MVS-OE
>
>
> The information contained in this message is confidential, protected from
> disclosure and may be legally privileged.  If the reader of this message is
> not the intended recipient or an employee or agent responsible for
> delivering this message to the intended recipient, you are hereby notified
> that any disclosure, distribution, copying, or any action taken or action
> omitted in reliance on it, is strictly prohibited and may be unlawful.  If
> you have received this communication in error, please notify us immediately
> by replying to this message and destroy the material in its entirety,
> whether in electronic or hard cop

Finding the STEIN of another address space

[Lennie Dymoke-Bradshaw]

Greetings,

I have some cross-memory code written many years ago.
It uses the ASVT to get the ASID of various address spaces and then uses the
ASID in a SSAR to establish a cross-memory link (having first issued an
AXSET AX=ONE).

All works fine until faced with an address space with a reusable ASID. Then
the SSAR gets a program check X'0013' and abends with a 0D3-0013 abend. This
is all documented in the extended addressability manual here.
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.ie
aa500/ieaa500101.htm

So in order to correct my code I need to replace the SSAR instruction with
an SSAIR instruction, whenever the target address space is reusable. This
requires that I locate the STEIN (Second Table Entry Instance Number) of the
target address space and specify it as a SASTEIN in the high order 4 bytes
of the 64-byte register specified on the SSAIR instruction.

How can I find the STEIN of the target address space?

Lennie Dymoke-Bradshaw

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Finding the STEIN of another address space

[Binyamin Dissen]

ASSBISQN 

On Wed, 18 Nov 2020 18:04:26 - Lennie Dymoke-Bradshaw
<032fff1be9b4-dmarc-requ...@listserv.ua.edu> wrote:

:>I have some cross-memory code written many years ago.
:>It uses the ASVT to get the ASID of various address spaces and then uses the
:>ASID in a SSAR to establish a cross-memory link (having first issued an
:>AXSET AX=ONE).

:>All works fine until faced with an address space with a reusable ASID. Then
:>the SSAR gets a program check X'0013' and abends with a 0D3-0013 abend. This
:>is all documented in the extended addressability manual here.
:>https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.ie
:>aa500/ieaa500101.htm

:>So in order to correct my code I need to replace the SSAR instruction with
:>an SSAIR instruction, whenever the target address space is reusable. This
:>requires that I locate the STEIN (Second Table Entry Instance Number) of the
:>target address space and specify it as a SASTEIN in the high order 4 bytes
:>of the 64-byte register specified on the SSAIR instruction.

:>How can I find the STEIN of the target address space?

--
Binyamin Dissen 
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Finding the STEIN of another address space

[Lennie Dymoke-Bradshaw]

Thank you Binyamin.
After posting I had found the ASTE1IN which looks to be the same value as
ASSBISQN, but is not a programming interface. Looks like your answer is
better.

Lennie

-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of
Binyamin Dissen
Sent: 18 November 2020 19:06
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Finding the STEIN of another address space

ASSBISQN 

On Wed, 18 Nov 2020 18:04:26 - Lennie Dymoke-Bradshaw
<032fff1be9b4-dmarc-requ...@listserv.ua.edu> wrote:

:>I have some cross-memory code written many years ago.
:>It uses the ASVT to get the ASID of various address spaces and then uses
the :>ASID in a SSAR to establish a cross-memory link (having first issued
an :>AXSET AX=ONE).

:>All works fine until faced with an address space with a reusable ASID.
Then :>the SSAR gets a program check X'0013' and abends with a 0D3-0013
abend. This :>is all documented in the extended addressability manual here.
:>https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.
ie
:>aa500/ieaa500101.htm

:>So in order to correct my code I need to replace the SSAR instruction with
:>an SSAIR instruction, whenever the target address space is reusable. This
:>requires that I locate the STEIN (Second Table Entry Instance Number) of
the :>target address space and specify it as a SASTEIN in the high order 4
bytes :>of the 64-byte register specified on the SSAIR instruction.

:>How can I find the STEIN of the target address space?

--
Binyamin Dissen  http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel


Should you use the mailblocks package and expect a response from me, you
should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems, especially
those from irresponsible companies.

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

How to get CEEDUMP with DFSORT?

[Gibney, Dave]

   My programmers have gotten pretty good with CEEDUMPs for their COBOL errors. 
And, when our COBOL invokes Syncsort with RC16= ABE and IOERR   = NOABE we 
do get a CEEDUMP.
  I have TERMTHDACT(DUMP,CESE,256)   for my LE parms

   Would setting DFSORT ESTAE=NO let the CEEDUMP happen. I see the odds of 
having an application data error to be much larger that an actual problem with 
DFSORT

Dave Gibney
Information Technology Services
Washington State University


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Finding JES2 node name

[Tim Hare]

I guess I'm asking if IEFSSREQ is somehow better than AMASYMBF for retrieving 
the node value.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Using PCOMM with SSL ?

[Tim Hare]

If you can export the cert in z/OS then you ought to be able to use one of the 
RACF certificate displays to determine who signed it.

I _think_ you can export this in Base64 format, move it to Windows as text, and 
import it into the Windows certificate store.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [MVS-OE] [External] Re: [MVS-OE] Other user trying to run my shell script gets "FSUM7351 not found" error

[Kirk Wolf]

On Wed, Nov 18, 2020 at 11:16 AM Frank Swarbrick <
frank.swarbr...@outlook.com> wrote:

> Yep. Thanks.
>
> Can you explain the difference between executing a script that executes
> the program, which requires this, while running the program directly (with
> a fully qualified path) does not?
>
> No, I don't see any reason why there should be a difference (for the same
user)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [MVS-OE] Other user trying to run my shell script gets "FSUM7351 not found" error

[Paul Gilmartin]

On 2020-11-18, at 10:16:41, Frank Swarbrick wrote:
> 
> Can you explain the difference between executing a script that executes the 
> program, which requires this, while running the program directly (with a 
> fully qualified path) does not?
>  
I can hardly imagine a case where a program with a non-searchable
directory in its path can be "[run] directly (with a fully qualified
path)" but not from "a script that executes the program."  Does the
script also use a fully qualified path?

I'm skeptical without seeing a detailed example such as:

myscript:
#! /bin/sh -x
/u/dvfjs/rocket/bin/curl

chmod a-x /u/dvfjs/rocket/bin
ls -lid /u/dvfjs/rocket/bin/curl # should get permission denied.

cat myscript
chmod a+rx myscript
ls -lid myscript
./myscript# should get permission denied.

# while:
/u/dvfjs/rocket/bin/curl # should likewise get permission denied.

# If it succeeds it's because the z/OS kernel breaks
# (more precisely fails to enforce) the rules.
# That should be subject to APAR.

> 
> From: Kirk Wolf 
> Sent: Wednesday, November 18, 2020 10:13 AM
> 
> You need directory search (x) permission for every directory in the path in
> order to access a file or subdirectory with a known name.
> 
> So in your example, the user must have search (x) permission on all of
> these:
> 
> /u
> /u/dvfjs
> /u/dvfjs/rocket
> /u/dvfjs/rocket/bin

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How to get CEEDUMP with DFSORT?

[Sri h Kolusu]

>Would setting DFSORT ESTAE=NO let the CEEDUMP happen. I see the
> odds of having an application data error to be much larger that an
> actual problem with DFSORT

Dave,

You can use NOESTAE to turn off DFSORT ESTAE processing.

//DFSPARM DD *
  DEBUG NOABEND,NOESTAE
/*

Check this link which explains in detail about DEBUG statement

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.icea100/debcst.htm


Thanks,
Kolusu
DFSORT Development
IBM Corporation


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Using PCOMM with SSL ?

[Charles Mills]

RACDCERT LISTCHN will show the whole signing chain. For the Windows client you 
do not need any intermediate certificates, nor do you need the server 
certificate*, you just need the root certificate.

*Unless it is self-signed, in which case it IS (also) its own root certificate.

If you do not know the label to put into LISTCHN, LISTRING should give it to 
you.

If the root certificate is from a well-known CA (DigiCert, GoDaddy, Comodo, 
etc.) then you can download it from their Web site at no charge. Make sure it 
is the correct root certificate -- the one shown by LISTCHN -- they will have 
several.

If the root certificate is from your internal PKI group then they should be 
very familiar with sending it to you in PC-compatible format. This should not 
be their first rodeo. 

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Tim Hare
Sent: Wednesday, November 18, 2020 12:36 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Using PCOMM with SSL ?

If you can export the cert in z/OS then you ought to be able to use one of the 
RACF certificate displays to determine who signed it.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How to get CEEDUMP with DFSORT?

[Gibney, Dave]

Thank you, I had read this. I expect that doing this will return me to the 
CEEDUMP behavior I had the other sort product. I was hoping for an option where 
the DFSORT termination would continue on to the LE termination. That was my 
specific question. Will, or can I get the CEEDUMP?

I still think I am better off setting ESTAE=NO as a default. I would rather my 
programmers can fix the error from the first run, rather than needing another 
failing run with debug options.

In, what I think  far more unlikely event of an actual issue with DFSORT, I can 
use debug to turn it back on during a re-run.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Sri h Kolusu
> Sent: Wednesday, November 18, 2020 12:55 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How to get CEEDUMP with DFSORT?
> 
> >Would setting DFSORT ESTAE=NO let the CEEDUMP happen. I see the
> > odds of having an application data error to be much larger that an
> > actual problem with DFSORT
> 
> Dave,
> 
> You can use NOESTAE to turn off DFSORT ESTAE processing.
> 
> //DFSPARM DD *
>   DEBUG NOABEND,NOESTAE
> /*
> 
> Check this link which explains in detail about DEBUG statement
> 
> https://urldefense.com/v3/__https://www.ibm.com/support/knowledgece
> nter/SSLTBW_2.3.0/com.ibm.zos.v2r3.icea100/debcst.htm__;!!JmPEgBY0HM
> szNaDT!6VeI0seG5oOxO7NGRT0Ou_uqBdrfQoKGUqwV4hcW7D2_hMzPvok
> bAJx0zRG2tQ$
> 
> 
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: REXX environment persistence

[Attila Fogarasi]

As nobody else has replied, my guess is that the z/OS USS Rexx
implementation required this persistence of the Rexx environment.  In USS
you create the Rexx environment first with a call to BPXWRBLD which calls
IRXINIT under the covers and returns.  Then your USS application can do a
series of calls to IRXEXEC or IRXJCL to execute Rexx execs  so the
environment can't be cleaned up when going to the equivalent of the USS
"Ready" prompt.  No idea where this is documented but an understandable
consequence of the implementation

On Mon, Nov 9, 2020 at 10:34 AM Binyamin Dissen 
wrote:

> I have a REXX function which adds a host environment (and deletes it as
> well).
>
> If the REXX does not call the DELETE but merely ends (there does not
> appear to
> be a defined way to dynamically get control at the end of the EXEC) and the
> session goes to READY, the next REXX invocation has the residual
> environment
> defined.
>
> I would not expect such persistence. Is it defined anywhere?
>
> I attempted to update MODETABT to specify an EXECTERM (which also appears
> to
> persist) but that did not get control.
>
> --
> Binyamin Dissen 
> http://www.dissensoftware.com
>
> Director, Dissen Software, Bar & Grill - Israel
>
>
> Should you use the mailblocks package and expect a response from me,
> you should preauthorize the dissensoftware.com domain.
>
> I very rarely bother responding to challenge/response systems,
> especially those from irresponsible companies.
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Is there a JES2 command to submit a job?

[Charles Mills]

Is there a JES2 command to submit a job from a PDS or PROCLIB, roughly
analogous to TSO SUBMIT?

I want to run a predefined job, unmodified, once a day. (No, I don't have a
real scheduler.) I figured I could do something with $T A,I=86400,'command'
but I don't see what the command would be. It seems like an obvious thing
for JES2 to be able to do.

Do I use $VS,'S proc' and run it like a started task that just happens to
end after a minute or so?

I vaguely recall there is a way to submit a job (via TSO or whatever) such
that it gets held and then could be released with a JES2 command but also
left in the input queue for another release? Am I on the right track? Or ...
?

Thanks. Sorry for the newbie question. I'm a newbie operator.

Charles 

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[Paul Gilmartin]

On Wed, 18 Nov 2020 15:00:59 -0800, Charles Mills wrote:

>Is there a JES2 command to submit a job from a PDS or PROCLIB, roughly
>analogous to TSO SUBMIT?
>
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.bpxa400/jclsub.htm

plus crontab

>I vaguely recall there is a way to submit a job (via TSO or whatever) such
>that it gets held and then could be released with a JES2 command but also
>left in the input queue for another release? Am I on the right track? Or ...
>?
SDSF "SJ"?

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[John McKown]

We did something like that before we had CA-7 (actually Runtrack). We used
the $TA command to start a task which then submitted the actual JCL. The
started task JCL looked something like:

//OPER  PROC JOBLIB=PROD.JOBS.JCLLIB,MEMBER=NOTHING
//OPER EXEC PGM=IEBGENER
//SYSIN DD  DUMMY
//SYSPRINT DD SYSOUT=Z PURGE CLASS
//SYSUT2 DD SYSOUT=(*,INTRDR)
//SYSUT1 DD DISP=SHR,DSN=&JOBLIB(&MEMBER)
//* END OF PROC

The $TA  would include the $VS command like: $VS,'S OPER,MEMBER=SOMEJOB'

If necessary, we could change the default JOBLIB to something else. I can't
remember what RACF id the job ran under. This was long ago, I think before
the STARTED class in RACF.

On Wed, Nov 18, 2020 at 5:01 PM Charles Mills  wrote:

> Is there a JES2 command to submit a job from a PDS or PROCLIB, roughly
> analogous to TSO SUBMIT?
>
> I want to run a predefined job, unmodified, once a day. (No, I don't have a
> real scheduler.) I figured I could do something with $T A,I=86400,'command'
> but I don't see what the command would be. It seems like an obvious thing
> for JES2 to be able to do.
>
> Do I use $VS,'S proc' and run it like a started task that just happens to
> end after a minute or so?
>
> I vaguely recall there is a way to submit a job (via TSO or whatever) such
> that it gets held and then could be released with a JES2 command but also
> left in the input queue for another release? Am I on the right track? Or
> ...
> ?
>
> Thanks. Sorry for the newbie question. I'm a newbie operator.
>
> Charles
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[John McKown]

I  do something like that for my personal stuff. And it is good in that you
can have a separate crontab  for submitting different jobs with different
RACF IDs. The only "problem" is, unless  I am out of date, most z/OS people
are still fairly ignorant  of z/OS UNIX and are reluctant to use  it. A few
years ago I had another sysprog complain  about it because, in his words,
"It isn't Windows!"

On Wed, Nov 18, 2020 at 5:36 PM Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Wed, 18 Nov 2020 15:00:59 -0800, Charles Mills wrote:
>
> >Is there a JES2 command to submit a job from a PDS or PROCLIB, roughly
> >analogous to TSO SUBMIT?
> >
>
> https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2r3.bpxa400/jclsub.htm
>
> plus crontab
>
> >I vaguely recall there is a way to submit a job (via TSO or whatever) such
> >that it gets held and then could be released with a JES2 command but also
> >left in the input queue for another release? Am I on the right track? Or
> ...
> >?
> SDSF "SJ"?
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[David Mingee]

Also, You can enter SUB next to the member name while in ISPF.  Just enter SUB 
vs. B or E or V

Subject: Re: Is there a JES2 command to submit a job?

I  do something like that for my personal stuff. And it is good in that you can 
have a separate crontab  for submitting different jobs with different RACF IDs. 
The only "problem" is, unless  I am out of date, most z/OS people are still 
fairly ignorant  of z/OS UNIX and are reluctant to use  it. A few years ago I 
had another sysprog complain  about it because, in his words, "It isn't 
Windows!"

On Wed, Nov 18, 2020 at 5:36 PM Paul Gilmartin < 
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:

> On Wed, 18 Nov 2020 15:00:59 -0800, Charles Mills wrote:
>
> >Is there a JES2 command to submit a job from a PDS or PROCLIB, 
> >roughly analogous to TSO SUBMIT?
> >
>
> https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zo
> s.v2r3.bpxa400/jclsub.htm
>
> plus crontab
>
> >I vaguely recall there is a way to submit a job (via TSO or whatever) 
> >such that it gets held and then could be released with a JES2 command 
> >but also left in the input queue for another release? Am I on the 
> >right track? Or
> ...
> >?
> SDSF "SJ"?
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions, send 
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[Joseph Reichman]

What about submit command you can use 
IKJTSOEV to set up a tso environment in a batch job and then use the tso 
service routine 

L.  rX,CVTPTR
L   Rx,CVTTVT(,RX)
L.  Rx,TSVTASF-TSVT(RX)



> On Nov 18, 2020, at 6:37 PM, John McKown  wrote:
> 
> We did something like that before we had CA-7 (actually Runtrack). We used
> the $TA command to start a task which then submitted the actual JCL. The
> started task JCL looked something like:
> 
> //OPER  PROC JOBLIB=PROD.JOBS.JCLLIB,MEMBER=NOTHING
> //OPER EXEC PGM=IEBGENER
> //SYSIN DD  DUMMY
> //SYSPRINT DD SYSOUT=Z PURGE CLASS
> //SYSUT2 DD SYSOUT=(*,INTRDR)
> //SYSUT1 DD DISP=SHR,DSN=&JOBLIB(&MEMBER)
> //* END OF PROC
> 
> The $TA  would include the $VS command like: $VS,'S OPER,MEMBER=SOMEJOB'
> 
> If necessary, we could change the default JOBLIB to something else. I can't
> remember what RACF id the job ran under. This was long ago, I think before
> the STARTED class in RACF.
> 
>> On Wed, Nov 18, 2020 at 5:01 PM Charles Mills  wrote:
>> 
>> Is there a JES2 command to submit a job from a PDS or PROCLIB, roughly
>> analogous to TSO SUBMIT?
>> 
>> I want to run a predefined job, unmodified, once a day. (No, I don't have a
>> real scheduler.) I figured I could do something with $T A,I=86400,'command'
>> but I don't see what the command would be. It seems like an obvious thing
>> for JES2 to be able to do.
>> 
>> Do I use $VS,'S proc' and run it like a started task that just happens to
>> end after a minute or so?
>> 
>> I vaguely recall there is a way to submit a job (via TSO or whatever) such
>> that it gets held and then could be released with a JES2 command but also
>> left in the input queue for another release? Am I on the right track? Or
>> ...
>> ?
>> 
>> Thanks. Sorry for the newbie question. I'm a newbie operator.
>> 
>> Charles
>> 
>> --
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[Steve Smith]

The classic way is to use a reader proc, traditionally named RDR, which may
well still be included in z/OS.  But usually a variation that reads members
from a PDS is more useful.

Check out  // SCHEDULE TIME= in JCL.  I use it all the time.

sas

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How to get CEEDUMP with DFSORT?

[Sri h Kolusu]

> Thank you, I had read this. I expect that doing this will return me
> to the CEEDUMP behavior I had the other sort product. I was hoping
> for an option where the DFSORT termination would continue on to the
> LE termination. That was my specific question. Will, or can I get the
CEEDUMP?

Dave,

Generally if you have an error in COBOL , then Language environment  SPIE
takes over and generates the CEEDUMP.  So if your shop has IBM-supplied
default  TRAP(ON,SPIE) , you would get CEEDUMP.

> I still think I am better off setting ESTAE=NO as a default. I would
> rather my programmers can fix the error from the first run, rather
> than needing another failing run with debug options.

If you intend to go with turning of ESTAE , then make sure that you only do
it for ICEAM2 environment so that only program invoked sorts have their
ESTAE disabled. Please do not turn it off for ICEAM1 environment.

Thanks,
Kolusu
DFSORT Development
IBM Corporation



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[Mark Jacobs]

JES2 at the z/OS 2.4 level has a $SUBMIT command, with the infrastructure to 
dynamically add datasets and such to use for job submission. The commands 
manual has information about it.

Mark Jacobs

Sent from ProtonMail, Swiss-based encrypted email.

GPG Public Key - 
https://api.protonmail.ch/pks/lookup?op=get&search=markjac...@protonmail.com

‐‐‐ Original Message ‐‐‐

On Wednesday, November 18th, 2020 at 6:00 PM, Charles Mills  
wrote:

> Is there a JES2 command to submit a job from a PDS or PROCLIB, roughly
>
> analogous to TSO SUBMIT?
>
> I want to run a predefined job, unmodified, once a day. (No, I don't have a
>
> real scheduler.) I figured I could do something with $T A,I=86400,'command'
>
> but I don't see what the command would be. It seems like an obvious thing
>
> for JES2 to be able to do.
>
> Do I use $VS,'S proc' and run it like a started task that just happens to
>
> end after a minute or so?
>
> I vaguely recall there is a way to submit a job (via TSO or whatever) such
>
> that it gets held and then could be released with a JES2 command but also
>
> left in the input queue for another release? Am I on the right track? Or ...
>
> ?
>
> Thanks. Sorry for the newbie question. I'm a newbie operator.
>
> Charles
>
> 
>
> For IBM-MAIN subscribe / signoff / archive access instructions,
>
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[Charles Mills]

Thanks. This will work. Kind of convoluted -- a $T A command to issue a $VS 
command to issue an S command to start an STC that submits a job, but hey, it's 
mainframe. If it was easy we wouldn't get the big bucks.

Idle musing: why doesn't JES2 have a command to submit a job, either from a 
named DSN or from a defined PROCLIB? Seems like an incredibly obvious feature. 
I spent 30 minutes in the commands manual going "I know it has to be in here 
somewhere."

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Wednesday, November 18, 2020 3:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a JES2 command to submit a job?

We did something like that before we had CA-7 (actually Runtrack). We used
the $TA command to start a task which then submitted the actual JCL. The
started task JCL looked something like:

//OPER  PROC JOBLIB=PROD.JOBS.JCLLIB,MEMBER=NOTHING
//OPER EXEC PGM=IEBGENER
//SYSIN DD  DUMMY
//SYSPRINT DD SYSOUT=Z PURGE CLASS
//SYSUT2 DD SYSOUT=(*,INTRDR)
//SYSUT1 DD DISP=SHR,DSN=&JOBLIB(&MEMBER)
//* END OF PROC

The $TA  would include the $VS command like: $VS,'S OPER,MEMBER=SOMEJOB'

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[David Spiegel]

Hi Charles,
All of the previous responses did not address your situation.

Here is a solution that only old-timers like myself would think of:
S 
RDR,DSN=mypds(mymember),UNIT=,VOL=,DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920),DISP=SHR


RDR is available in SYs1.PROCLIB and has been since dinosaurs roamed the 
earth.


Regards,
David

On 2020-11-18 18:00, Charles Mills wrote:

Is there a JES2 command to submit a job from a PDS or PROCLIB, roughly
analogous to TSO SUBMIT?

I want to run a predefined job, unmodified, once a day. (No, I don't have a
real scheduler.) I figured I could do something with $T A,I=86400,'command'
but I don't see what the command would be. It seems like an obvious thing
for JES2 to be able to do.

Do I use $VS,'S proc' and run it like a started task that just happens to
end after a minute or so?

I vaguely recall there is a way to submit a job (via TSO or whatever) such
that it gets held and then could be released with a JES2 command but also
left in the input queue for another release? Am I on the right track? Or ...
?

Thanks. Sorry for the newbie question. I'm a newbie operator.

Charles

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[Paul Gilmartin]

On Wed, 18 Nov 2020 17:39:33 -0600, John McKown wrote:

> most z/OS people
>are still fairly ignorant  of z/OS UNIX and are reluctant to use  it. A few
>years ago I had another sysprog complain  about it because, in his words,
>"It isn't Windows!"
> 
What's z/OS?  Chopped liver or Windows?


On Wed, 18 Nov 2020 18:58:54 -0500, David Spiegel wrote:
>
>All of the previous responses did not address your situation.
> S 
> RDR,DSN=mypds(mymember),UNIT=,VOL=,DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920),DISP=SHR

>On 2020-11-18 18:00, Charles Mills wrote:
>>
>> * once a day.*  (No, I don't have a real scheduler.) 

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[Charles Mills]

Right! I remember that. I remember that was how you ran anything. You started a 
real reader: it fired up the 2540 and read in the job. And then you did a S WTR 
(?) to print the output. OS/360 on a 360/40.

Sometimes nostalgia actually is the answer.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Spiegel
Sent: Wednesday, November 18, 2020 3:59 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a JES2 command to submit a job?

Hi Charles,
All of the previous responses did not address your situation.

Here is a solution that only old-timers like myself would think of:
S 
RDR,DSN=mypds(mymember),UNIT=,VOL=,DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920),DISP=SHR

RDR is available in SYs1.PROCLIB and has been since dinosaurs roamed the 
earth.

Regards,
David

On 2020-11-18 18:00, Charles Mills wrote:
> Is there a JES2 command to submit a job from a PDS or PROCLIB, roughly
> analogous to TSO SUBMIT?
>
> I want to run a predefined job, unmodified, once a day. (No, I don't have a
> real scheduler.) I figured I could do something with $T A,I=86400,'command'
> but I don't see what the command would be. It seems like an obvious thing
> for JES2 to be able to do.
>
> Do I use $VS,'S proc' and run it like a started task that just happens to
> end after a minute or so?
>
> I vaguely recall there is a way to submit a job (via TSO or whatever) such
> that it gets held and then could be released with a JES2 command but also
> left in the input queue for another release? Am I on the right track? Or ...
> ?
>
> Thanks. Sorry for the newbie question. I'm a newbie operator.
>
> Charles
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> .

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[Charles Mills]

Thanks. Looks perfect. $T SUBMITLIB to set it up.

Unfortunately, environment is V2R3.

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Mark Jacobs
Sent: Wednesday, November 18, 2020 3:57 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a JES2 command to submit a job?

JES2 at the z/OS 2.4 level has a $SUBMIT command, with the infrastructure to 
dynamically add datasets and such to use for job submission. The commands 
manual has information about it.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[Charles Mills]

Available in V2R3!

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Charles Mills
Sent: Wednesday, November 18, 2020 4:24 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a JES2 command to submit a job?

Thanks. Looks perfect. $T SUBMITLIB to set it up.

Unfortunately, environment is V2R3.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[Seymour J Metz]

Subject to security constraints.  


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3



From: IBM Mainframe Discussion List  on behalf of 
David Spiegel 
Sent: Wednesday, November 18, 2020 6:58 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a JES2 command to submit a job?

Hi Charles,
All of the previous responses did not address your situation.

Here is a solution that only old-timers like myself would think of:
S
RDR,DSN=mypds(mymember),UNIT=,VOL=,DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920),DISP=SHR

RDR is available in SYs1.PROCLIB and has been since dinosaurs roamed the
earth.

Regards,
David

On 2020-11-18 18:00, Charles Mills wrote:
> Is there a JES2 command to submit a job from a PDS or PROCLIB, roughly
> analogous to TSO SUBMIT?
>
> I want to run a predefined job, unmodified, once a day. (No, I don't have a
> real scheduler.) I figured I could do something with $T A,I=86400,'command'
> but I don't see what the command would be. It seems like an obvious thing
> for JES2 to be able to do.
>
> Do I use $VS,'S proc' and run it like a started task that just happens to
> end after a minute or so?
>
> I vaguely recall there is a way to submit a job (via TSO or whatever) such
> that it gets held and then could be released with a JES2 command but also
> left in the input queue for another release? Am I on the right track? Or ...
> ?
>
> Thanks. Sorry for the newbie question. I'm a newbie operator.
>
> Charles
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> .

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[Sri h Kolusu]

> Is there a JES2 command to submit a job from a PDS or PROCLIB, roughly
> analogous to TSO SUBMIT?

Charles,

You can use the SCHEDULE command to run the job at a particular time. Here
is a detailed explanation of the parms along with examples

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.ieab600/iea3b6_schedule_examples_of_schedule_statements.htm

To make it run every day at the specified time, just add another step to
generate the SCHEDULE command for next day execution.

Something like this

//LASTSTEP EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DISP=SHR,DSN=Your.PDS(subjob)
//SORTOUT  DD SYSOUT=(*,INTRDR)
//SYSINDD *
  OPTION COPY
  INREC IFOUTLEN=80,
IFTHEN=(WHEN=INIT,
 OVERLAY=(81:DATE1(/)+1)),
IFTHEN=(WHEN=(01,22,CH,EQ,C'// SCHEDULE HOLDUNTL=('),
BUILD=(C'// SCHEDULE HOLDUNTL=(''',
   C'17:00''',
   C',''',
   86,02,  $ MM
   88,01,  $ /
   89,02,  $ DD
   85,01,  $ /
   81,04,  $ 
   C''')'))
/*



I had a sample member in my pds(subjob) and it has the following contents

//SCHEDJOB JOB (B004273,BIN#,BLDG#,DEPT#),&SYSUID,
// MSGCLASS=H,MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID
/*
// SCHEDULE HOLDUNTL=('17:00','11/18/2020')
/*
//STEP0100 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD *
ABC
//SYSUT2   DD SYSOUT=*
//SYSINDD DUMMY
/*

To this we will add the last step as shown above. That last step will
change the SCHEDULE command to "Current date+1" as hold and it will submit
the job to INTRDR. So as soon this job ran the next day's job will be in
the INPUT queue waiting for it to be executed.

So you submit the job once and it will take care of submitting itself
everyday until you cancel


Further if you have any question please let me know

Thanks.
Kolusu
DFSORT Development
IBM Corporation


IBM Mainframe Discussion List  wrote on
11/18/2020 04:00:59 PM:

> From: Charles Mills 
> To: IBM-MAIN@LISTSERV.UA.EDU
> Date: 11/18/2020 04:01 PM
> Subject: [EXTERNAL] Is there a JES2 command to submit a job?
> Sent by: IBM Mainframe Discussion List 
>
> Is there a JES2 command to submit a job from a PDS or PROCLIB, roughly
> analogous to TSO SUBMIT?
>
> I want to run a predefined job, unmodified, once a day. (No, I don't have
a
> real scheduler.) I figured I could do something with $T
A,I=86400,'command'
> but I don't see what the command would be. It seems like an obvious thing
> for JES2 to be able to do.
>
> Do I use $VS,'S proc' and run it like a started task that just happens to
> end after a minute or so?
>
> I vaguely recall there is a way to submit a job (via TSO or whatever)
such
> that it gets held and then could be released with a JES2 command but also
> left in the input queue for another release? Am I on the right track?
Or ...
> ?
>
> Thanks. Sorry for the newbie question. I'm a newbie operator.
>
> Charles
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Is there a JES2 command to submit a job?

[Seymour J Metz]

Obvious answer: because HASP is Half ASP. But you don't need a JES2  command; 
IBM provides a proc called RDR that copies its input to an internal reader.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3



From: IBM Mainframe Discussion List  on behalf of 
Charles Mills 
Sent: Wednesday, November 18, 2020 6:58 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a JES2 command to submit a job?

Thanks. This will work. Kind of convoluted -- a $T A command to issue a $VS 
command to issue an S command to start an STC that submits a job, but hey, it's 
mainframe. If it was easy we wouldn't get the big bucks.

Idle musing: why doesn't JES2 have a command to submit a job, either from a 
named DSN or from a defined PROCLIB? Seems like an incredibly obvious feature. 
I spent 30 minutes in the commands manual going "I know it has to be in here 
somewhere."

Charles


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of John McKown
Sent: Wednesday, November 18, 2020 3:37 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Is there a JES2 command to submit a job?

We did something like that before we had CA-7 (actually Runtrack). We used
the $TA command to start a task which then submitted the actual JCL. The
started task JCL looked something like:

//OPER  PROC JOBLIB=PROD.JOBS.JCLLIB,MEMBER=NOTHING
//OPER EXEC PGM=IEBGENER
//SYSIN DD  DUMMY
//SYSPRINT DD SYSOUT=Z PURGE CLASS
//SYSUT2 DD SYSOUT=(*,INTRDR)
//SYSUT1 DD DISP=SHR,DSN=&JOBLIB(&MEMBER)
//* END OF PROC

The $TA  would include the $VS command like: $VS,'S OPER,MEMBER=SOMEJOB'

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How to get CEEDUMP with DFSORT?

[Seymour J Metz]

ESPIE only catches program checks, it doesn't catch ABENDs. A COBOL program can 
get an ABEND not related to a program check.


--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3



From: IBM Mainframe Discussion List  on behalf of Sri 
h Kolusu 
Sent: Wednesday, November 18, 2020 6:55 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: How to get CEEDUMP with DFSORT?

> Thank you, I had read this. I expect that doing this will return me
> to the CEEDUMP behavior I had the other sort product. I was hoping
> for an option where the DFSORT termination would continue on to the
> LE termination. That was my specific question. Will, or can I get the
CEEDUMP?

Dave,

Generally if you have an error in COBOL , then Language environment  SPIE
takes over and generates the CEEDUMP.  So if your shop has IBM-supplied
default  TRAP(ON,SPIE) , you would get CEEDUMP.

> I still think I am better off setting ESTAE=NO as a default. I would
> rather my programmers can fix the error from the first run, rather
> than needing another failing run with debug options.

If you intend to go with turning of ESTAE , then make sure that you only do
it for ICEAM2 environment so that only program invoked sorts have their
ESTAE disabled. Please do not turn it off for ICEAM1 environment.

Thanks,
Kolusu
DFSORT Development
IBM Corporation



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How to get CEEDUMP with DFSORT?

[Clark Morris]

[Default] On 18 Nov 2020 15:56:00 -0800, in bit.listserv.ibm-main
skol...@us.ibm.com (Sri h Kolusu) wrote:

>> Thank you, I had read this. I expect that doing this will return me
>> to the CEEDUMP behavior I had the other sort product. I was hoping
>> for an option where the DFSORT termination would continue on to the
>> LE termination. That was my specific question. Will, or can I get the
>CEEDUMP?

The normal setup for SYNCSORT used to the if invoked by JCL the SORT
would abend upon error while if invoked by a program it would quit
with a return code of 16 (in COBOL the code would be in SORT-RETURN. I
am fairly certain given the COBOL manual the same is true for DFSORT.
One simple way to see what would happen is to set up a simple COBOL
program to sort a file on a signed packed decimal field and have
invalid data in the test file.  The program should test SORT-RETURN
for 16 and abend if found.

Clark Morris
>
>Dave,
>
>Generally if you have an error in COBOL , then Language environment  SPIE
>takes over and generates the CEEDUMP.  So if your shop has IBM-supplied
>default  TRAP(ON,SPIE) , you would get CEEDUMP.
>
>> I still think I am better off setting ESTAE=NO as a default. I would
>> rather my programmers can fix the error from the first run, rather
>> than needing another failing run with debug options.
>
>If you intend to go with turning of ESTAE , then make sure that you only do
>it for ICEAM2 environment so that only program invoked sorts have their
>ESTAE disabled. Please do not turn it off for ICEAM1 environment.
>
>Thanks,
>Kolusu
>DFSORT Development
>IBM Corporation
>
>
>
>--
>For IBM-MAIN subscribe / signoff / archive access instructions,
>send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How to get CEEDUMP with DFSORT?

[Gibney, Dave]

In the case my programmers found, there was a call for a user abend with value 
of 36.  As I think on this, I have no idea for sure that behavior from Syncsort 
would have been different.  I have no idea when the last time this condition 
occurred such that the program on question issued the error.
As Seymour points out, this wasn't a program check.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Seymour J Metz
> Sent: Wednesday, November 18, 2020 4:34 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How to get CEEDUMP with DFSORT?
> 
> ESPIE only catches program checks, it doesn't catch ABENDs. A COBOL
> program can get an ABEND not related to a program check.
> 
> 
> --
> Shmuel (Seymour J.) Metz
> https://urldefense.com/v3/__http://mason.gmu.edu/*smetz3__;fg!!JmPEg
> BY0HMszNaDT!4a5aKwIYxypubpSNbCni7fJq78ixXIwCgmamg2e3Cm9TZN2OD
> Z0G--UwaQggKA$
> 
> 
> 
> From: IBM Mainframe Discussion List  on
> behalf of Sri h Kolusu 
> Sent: Wednesday, November 18, 2020 6:55 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How to get CEEDUMP with DFSORT?
> 
> > Thank you, I had read this. I expect that doing this will return me
> > to the CEEDUMP behavior I had the other sort product. I was hoping
> > for an option where the DFSORT termination would continue on to the
> > LE termination. That was my specific question. Will, or can I get the
> CEEDUMP?
> 
> Dave,
> 
> Generally if you have an error in COBOL , then Language environment  SPIE
> takes over and generates the CEEDUMP.  So if your shop has IBM-supplied
> default  TRAP(ON,SPIE) , you would get CEEDUMP.
> 
> > I still think I am better off setting ESTAE=NO as a default. I would
> > rather my programmers can fix the error from the first run, rather
> > than needing another failing run with debug options.
> 
> If you intend to go with turning of ESTAE , then make sure that you only do
> it for ICEAM2 environment so that only program invoked sorts have their
> ESTAE disabled. Please do not turn it off for ICEAM1 environment.
> 
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
> 
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How to get CEEDUMP with DFSORT?

[Gibney, Dave]

Thank you and understood about the different environments.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Sri h Kolusu
> Sent: Wednesday, November 18, 2020 3:56 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How to get CEEDUMP with DFSORT?
> 
> > Thank you, I had read this. I expect that doing this will return me
> > to the CEEDUMP behavior I had the other sort product. I was hoping
> > for an option where the DFSORT termination would continue on to the
> > LE termination. That was my specific question. Will, or can I get the
> CEEDUMP?
> 
> Dave,
> 
> Generally if you have an error in COBOL , then Language environment  SPIE
> takes over and generates the CEEDUMP.  So if your shop has IBM-supplied
> default  TRAP(ON,SPIE) , you would get CEEDUMP.
> 
> > I still think I am better off setting ESTAE=NO as a default. I would
> > rather my programmers can fix the error from the first run, rather
> > than needing another failing run with debug options.
> 
> If you intend to go with turning of ESTAE , then make sure that you only do
> it for ICEAM2 environment so that only program invoked sorts have their
> ESTAE disabled. Please do not turn it off for ICEAM1 environment.
> 
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
> 
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How to get CEEDUMP with DFSORT?

[Sri h Kolusu]

> In the case my programmers found, there was a call for a user abend
> with value of 36.  As I think on this, I have no idea for sure that
> behavior from Syncsort would have been different.

Dave,

I believe I sent out the migration documents which lists the equivalent
parms for DFSORT. In this particular case if you want DFSORT to behave like
the other product , then please refer to sdniopt.txt file and the parm you
are looking for is ERET parm. It is equivalent for PGMRC16/NORC16/RC16

Thanks,
Kolusu
DFSORT Development
IBM Corporation



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

IBM IP Printway, NetSpool, from LRS's VPS/DRS?

[Gibney, Dave]

   Again, with our downsizing, and nearing EOL of my systems, I need to drop 
VPS and DRS.
I am looking at the base IBM support in this area, The AOP. stuff.
Has anyone else done this? A Redbook by chance?

  And, yes, I know about McKinney and in some ways wish we'd gone there  a 
couple decades ago. The guy who supported this area at that time couldn't get 
the batch AFP to PCL working to our needs. So, we didn't.

   LRS has been silent, when asked about any short term renewal.

Dave Gibney
Information Technology Services
Washington State University


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: How to get CEEDUMP with DFSORT?

[Gibney, Dave]

I have hat set per the instructions. I really am now leaning towards my 
programmers wouldn't have got the CEEDUMP in this case, has they still been 
using the other sort product.
But, since DFSORT is new, it is a viable culprit. And, really, the program's 
diagnostic messages should have been sufficient for them to solve their issue 
without the CEEDUMP anyway.

> -Original Message-
> From: IBM Mainframe Discussion List  On
> Behalf Of Sri h Kolusu
> Sent: Wednesday, November 18, 2020 5:15 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: How to get CEEDUMP with DFSORT?
> 
> > In the case my programmers found, there was a call for a user abend
> > with value of 36.  As I think on this, I have no idea for sure that
> > behavior from Syncsort would have been different.
> 
> Dave,
> 
> I believe I sent out the migration documents which lists the equivalent
> parms for DFSORT. In this particular case if you want DFSORT to behave like
> the other product , then please refer to sdniopt.txt file and the parm you
> are looking for is ERET parm. It is equivalent for PGMRC16/NORC16/RC16
> 
> Thanks,
> Kolusu
> DFSORT Development
> IBM Corporation
> 
> 
> 
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: IBM IP Printway, NetSpool, from LRS's VPS/DRS?

[Jackson, Rob]

We replaced VPS with NPF, the "free" component of CommServer (not AOP).  We did 
not have DRS, but we do print from CICS using virtual printers defined to 
SuperSession.  It was a hundred-some-odd printers, and there wasn't much to it.

https://www.ibm.com/support/knowledgecenter/SSLTBW_2.3.0/com.ibm.zos.v2r3.halp001/abstract.htm

First Horizon Bank
Mainframe Technical Support


-Original Message-
From: IBM Mainframe Discussion List  On Behalf Of 
Gibney, Dave
Sent: Wednesday, November 18, 2020 8:21 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: IBM IP Printway, NetSpool, from LRS's VPS/DRS?

[External Email. Exercise caution when clicking links or opening attachments.]

   Again, with our downsizing, and nearing EOL of my systems, I need to drop 
VPS and DRS.
I am looking at the base IBM support in this area, The AOP. stuff.
Has anyone else done this? A Redbook by chance?

  And, yes, I know about McKinney and in some ways wish we'd gone there  a 
couple decades ago. The guy who supported this area at that time couldn't get 
the batch AFP to PCL working to our needs. So, we didn't.

   LRS has been silent, when asked about any short term renewal.

Dave Gibney
Information Technology Services
Washington State University


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Confidentiality notice: 
This e-mail message, including any attachments, may contain legally privileged 
and/or confidential information. If you are not the intended recipient(s), or 
the employee or agent responsible for delivery of this message to the intended 
recipient(s), you are hereby notified that any dissemination, distribution, or 
copying of this e-mail message is strictly prohibited. If you have received 
this message in error, please immediately notify the sender and delete this 
e-mail message from your computer.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Improve OMVS cp performance?

[David Crayford]

On 18/11/2020 11:47 pm, Kirk Wolf wrote:

Hey David,

Thank you for rescuing this thread from the ash heap of old hardware model
numbers and tape formats :-)


Topic drift makes this forum almost unreadable these days!



We already have on our list to add ISPF-style enqueue serialization to
putpds.  It just didn't make the first release.
Currently putpds allocates the data set with DISP=OLD  (SYSDSN EXCL).


Awesome. We have coz installed on all LPARS on multiple plexes. I'll 
install the lastest version locally and wait until the next release

with ISPF-style ENQs before requesting a global roll-out.

Cheers




On Tue, Nov 17, 2020 at 11:02 PM David Crayford  wrote:


This is really cool. We could use this right now for our SCLM/Git
Integration tooling.

Q: How does it handle member ENQs. Does it ENQ using SPFEDIT or SYSDSN?
One of the problems we ran into with "cp" copying an entire data set is
it fails if one member is in use.
We worked around this by writing a cp_pds_to_dir command.

On 13/11/2020 9:54 pm, Kirk Wolf wrote:

I wanted to update this thread with a bit of news.   We have had the
enjoyable experience of working with Lionel and Henri (please check out:
http://zigi.rocks) on requirements for some new shell commands for the

Co:Z

Toolkit V6.2.0, which we released this week.

The new commands (getpds and putpds) use BPAM+BSAM along with our

existing

Co:Z record <-> stream processing framework to allow you to copy PDS
members to and from z/OS UNIX files.  Also included are extensive options
for ISPF stats processing.

The performance (when compared to "/bin/cp") is better than we could have
expected.  The following example copies all of the members of SYS1.MACLIB
to text files in the current directory:

$ getpds //sys1.maclib .
getpds(SYS1.MACLIB)[N]: 2015 members/2435218 records/194817440 bytes

read;

  194011101 bytes written in 1.791 seconds

(103.307

MBytes/sec).

For more information:
https://dovetail.com/docs/zos-utilities/dsp-ref_getpds.html
https://dovetail.com/docs/zos-utilities/dsp-ref_putpds.html
https://dovetail.com/docs/cozinstall/changes.html
Co:Z is available free under our Community License
.

Kirk Wolf
http://dovetail.com


On Mon, Jun 22, 2020 at 9:30 AM Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> wrote:


On Wed, 17 Jun 2020 07:14:39 -0500, Lionel B Dyck wrote:


Kirk - thank you for the ideas.

What I'm doing is in the ZIGI (see https://zigi.rocks) where I need to

copy PDS members to/from USS so that Git can manage them. With small
projects this isn't an issue but with larger projects it could take

enough

time for you to go to lunch ☹

Btw. I voted your RFE.


I notice that replies this thread have focused on Classic PDS as the
performance culprit.  Has someone tried the benchmarks:

  cp UNIX -> UNIX  vs.  cp PDS -> PDS

... and compared performance?  I suspect Classic OS was optimized
for a few large data sets; UNIX for many small files.

Might there be an argument here for maintaining the data where it
works best and omitting the copying?


-Original Message-
From: Kirk Wolf
Sent: Wednesday, June 17, 2020 7:03 AM

FWIW: It's a pity that the IBM C library doesn't have any support for

BLDL/NOTE/POINT processing of PDS/Es -- see my old RFE and vote if you

agree:


https://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe&CR_ID=80811

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN