"pipe listpds" dsn "| stem members."
OREXXMan
JCL is the buggy whip of 21st century computing.
We want Pipelines in the z/OS base.
On Fri, May 11, 2018 at 9:00 AM, Carmen Vitullo <cvitu...@hughes.net> wrote:
> outrap with LISTD works well
> soemthing like this works well
>
>
>
> X = Listdsi(DSN 'DIRECTORY NORECALL')
> If X=16 Then Do
> If SYSREASON = 9 Then Do
> Say '** Data set has been migrated .. Abort'
> Exit
> End
> If SYSREASON = 5 Then Do
> Say '** Data set not cataloged .. Abort'
> Exit
> End
> Else Do
> Say '** Servere error in LISTDSI...Rc=16 - SYSREASON=' SYSREASON
> Exit
> End
> End
>
>
> or even LM services ?
> a clist example
>
>
>
>
>
>
>
> CONTROL PROMPT NOFLUSH NOMSG END(ENDO)
> ISPEXEC CONTROL ERRORS RETURN
> CONTROL END(ENDO)
> ISPEXEC LMINIT DATASET('&DSN') +
> DATAID(PDS) ENQ(SHR) ORG(ORG)
> ISPEXEC LMOPEN DATAID(&PDS) OPTION(INPUT)
> SET &MEMPGM =
> GETMBR: +
> ISPEXEC LMMLIST DATAID(&PDS) OPTION(LIST) MEMBER(MEMPGM)
> SET &CC = &LASTCC
> IF &CC = 0 THEN DO
> SET &LEN=&LENGTH(&MEMPGM)
> SET &MEM=&SUBSTR(1:&LEN,&MEMPGM)
> SET &MEMPGM=&MEM
> ISPEXEC VPUT (MEMPGM)...........
> and so on
>
>
>
> Carmen Vitullo
>
> ----- Original Message -----
>
> From: "Mike Wawiorko" <0000014ab5cdfb21-dmarc-requ...@listserv.ua.edu>
> To: IBM-MAIN@LISTSERV.UA.EDU
> Sent: Friday, May 11, 2018 7:56:24 AM
> Subject: Re: [TSO-REXX] Sdsf rexx
>
> OUTTRAP with LISTD dsname M ?
>
> I'm pretty sure others will have better suggestions.
>
> Mike Wawiorko
>
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of Barkow, Eileen
> Sent: 11 May 2018 13:42
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: [TSO-REXX] Sdsf rexx
>
>
> ...
> Is there any way to get the member names in a PDSE with REXX?
> I need to extract the member names in a PDSE and plug them into a job
> stream.
>
> ...
>
> This e-mail and any attachments are confidential and intended solely for
> the addressee and may also be privileged or exempt from disclosure under
> applicable law. If you are not the addressee, or have received this e-mail
> in error, please notify the sender immediately, delete it from your system
> and do not copy, disclose or otherwise act upon any part of this e-mail or
> its attachments.
> Internet communications are not guaranteed to be secure or virus-free. The
> Barclays Group does not accept responsibility for any loss arising from
> unauthorised access to, or interference with, any Internet communications
> by any third party, or from the transmission of any viruses. Replies to
> this e-mail may be monitored by the Barclays Group for operational or
> business reasons.
> Any opinion or other information in this e-mail or its attachments that
> does not relate to the business of the Barclays Group is personal to the
> sender and is not given or endorsed by the Barclays Group.
> Barclays Services Limited provides support and administrative services
> across Barclays group. Barclays Services Limited is an appointed
> representative of Barclays Bank UK plc, Barclays Bank plc and Clydesdale
> Financial Services Limited. Barclays Bank UK plc and Barclays Bank plc are
> authorised by the Prudential Regulation Authority and regulated by the
> Financial Conduct Authority and the Prudential Regulation Authority.
> Clydesdale Financial Services Limited is authorised and regulated by the
> Financial Conduct Authority.
>
> ----------------------------------------------------------------------
> 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
