Good ole IDCAMS anyone?
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.4.0/com.ibm.zos.v2r4.idai200/dgt3i231.htm
On Sat, Oct 17, 2020 at 5:34 PM Chris Hoelscher <choelsc...@humana.com>
wrote:
> I have employed this REXX script for years:
>
> /* REXX */
> DSNAME = 'my PDS'
> DSN = STRIP(DSNAME, 'BOTH', '''') /* IN CASE IT'S IN QUOTES */
> QUOTE = "'"
> QDSN = QUOTE||DSN||QUOTE /* FULLY QUOTED DSN */
>
> ADDRESS ISPEXEC
> "LMINIT DATAID( MYDATAID) DATASET(" QDSN ") ENQ(SHRW)"
> "LMOPEN DATAID("MYDATAID") OPTION(OUTPUT)"
> "LMMDEL DATAID("MYDATAID") MEMBER(*)"
> "LMCLOSE DATAID("MYDATAID")"
> "LMFREE DATAID("MYDATAID")"
>
> SAY DSN " IS NOW EMPTY"
>
> Chris Hoelscher
> Lead Sys DBA
> IBM Global Technical Services on assignmemt to Humana Inc.
> T 502.476.2538 or 502.407.7266
>
>
> The information transmitted is intended only for the person or entity to
> which it is addressed
> and may contain CONFIDENTIAL material. If you receive this
> material/information in error,
> please contact the sender and delete or destroy the material/information.
>
> Humana Inc. and its subsidiaries comply with applicable Federal civil
> rights laws and
> do not discriminate on the basis of race, color, national origin,
> ancestry, age, disability, sex,
> marital status, gender, sexual orientation, gender identity, or religion.
> Humana Inc. and its subsidiaries do not
> exclude people or treat them differently because of race, color, national
> origin, ancestry, age,
> disability, sex, marital status, gender, sexual orientation, gender
> identity, or religion.
>
> English: ATTENTION: If you do not speak English, language assistance
> services, free
> of charge, are available to you. Call 1‐877‐320‐1235 (TTY: 711).
>
> Español (Spanish): ATENCIÓN: Si habla español, tiene a su disposición
> servicios
> gratuitos de asistencia lingüística. Llame al 1‐877‐320‐1235 (TTY: 711).
>
> 繁體中文(Chinese):注意:如果您使用繁體中文,您可以免費獲得語言援助
> 服務。請致電 1‐877‐320‐1235 (TTY: 711)。
>
> Kreyòl Ayisyen (Haitian Creole): ATANSION: Si w pale Kreyòl Ayisyen, gen
> sèvis èd
> pou lang ki disponib gratis pou ou. Rele 1‐877‐320‐1235 (TTY: 711).
>
> Polski (Polish): UWAGA: Jeżeli mówisz po polsku, możesz skorzystać z
> bezpłatnej
> pomocy językowej. Zadzwoń pod numer 1‐877‐320‐1235 (TTY: 711).
>
> 한국어 (Korean): 주의: 한국어를 사용하시는 경우, 언어 지원 서비스를 무료로
> 이용하실 수 있습니다. 1‐877‐320‐1235 (TTY: 711)번으로 전화해 주십시오.
>
>
> ----------------------------------------------------------------------
> 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
