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
