Classification: Public
Quick and dirty - assumes the profile will put numbers in 73-80, and doesn't do
much in the way of error checking:
/* REXX */
parse source . . me .
arg dataset .
"ISPEXEC CONTROL ERRORS RETURN"
"ISREDIT MACRO"
edMac = rc
"ISPEXEC CONTROL ERRORS CANCEL"
if edMac = 0 then do
call macroMode
exit
end
"ISPEXEC LMINIT DATAID(DSN) DATASET('"dataset"') ENQ(SHR)"
"ISPEXEC LMOPEN DATAID(&DSN)"
Do until RC > 0
"ISPEXEC LMMLIST DATAID(&DSN) OPTION(LIST) MEMBER(MEMBER) STATS(NO)"
If RC = 8 Then
Leave
If RC = 0 Then
"ISPEXEC EDIT DATAID(&DSN) MEMBER(&MEMBER) MACRO(&ME)"
End
"ISPEXEC LMCLOSE DATAID(&DSN)"
"ISPEXEC LMFREE DATAID(&DSN)"
Exit
macroMode:
"ISREDIT NUM"
"ISREDIT UNNUM"
"ISREDIT END"
return
Run it in batch ISPF with an ISPLOG, and you'll get a list of members updated
(I called this MEMUPD):
TSO - Command - - %MEMUPD MY.DATASET
TSO - Command - - %MEMUPD
Edit - Save - ISRE006 MY.DATASET(MAKEBIG) - member saved.
TSO - Command - - %MEMUPD
Edit - Save - ISRE006 MY.DATASET(PARMTEST) - member saved.
TSO - Command - - %MEMUPD
Edit - Save - ISRE006 MY.DATASET(UTF16) - member saved.
Andy Styles
z/Series System Programmer
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
Chris Hoelscher
Sent: 11 January 2021 10:26
To: [email protected]
Subject: Re: Request for help with removing sequence numbers from PDS members
-- This email has reached the Bank via an external source --
Here is something I am doing (for other reasons) but it might help
Run IEBPTPCH against the old pds(e)
Walk thru the IEBPTPCH output - grabbing the member name and doing what you
need to do to each line or build iebgener control cards to clear the columns
When you hit a new member, dispose of the previous lines by making them the
sysut1 in the aforementioned iebcopy with sysut2 into the corresponding member
in the new pds(e)
Clear as mud?
Chris Hoelscher
Lead Sys DBA
IBM Global Technical Services on assignmemt to Humana Inc.
T 502.476.2538 or 502.407.7266
-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
Sean Gleann
Sent: Monday, January 11, 2021 4:06 AM
To: [email protected]
Subject: [IBM-MAIN] Request for help with removing sequence numbers from PDS
members
[External Email: Use caution with links and attachments]
This has almost certainly cropped up before but try as I might, I can't spot
anything obvious in the archives.
I have a need to strip sequence numbers from members in a PDS or PDSE.
The input PDS(E) has DCB characteristics of REFCM=FB,LRECL-80, and contains an
unknown number of members. Of those members, some will have records with 'old
data' in character positions 73-80 (that is - sequence numbers, or whatever
remains of them).
I want to be able to copy this input PDS(E) to a new one with the same DCB
info, but all records in all members must have spaces in positions 73-80.
I thought that ICETOOL might be able to do this but as far as I can see,
ICETOOL needs to be told which member names to process. That information is
readily available while developing and testing a solution, but not when the
result is used in a more general scenario.
Can anyone point me at some sort of solution that I might adapt, please?
Perhaps there is something on the CBT tape that might help...
Regards
Sean
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
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
[email protected] with the message: INFO IBM-MAIN
Lloyds Banking Group plc. Registered Office: The Mound, Edinburgh EH1 1YZ.
Registered in Scotland no. SC95000. Telephone: 0131 225 4555.
Lloyds Bank plc. Registered Office: 25 Gresham Street, London EC2V 7HN.
Registered in England and Wales no. 2065. Telephone 0207626 1500.
Bank of Scotland plc. Registered Office: The Mound, Edinburgh EH1 1YZ.
Registered in Scotland no. SC327000. Telephone: 03457 801 801.
Lloyds Bank Corporate Markets plc. Registered office: 25 Gresham Street, London
EC2V 7HN. Registered in England and Wales no. 10399850.
Scottish Widows Schroder Personal Wealth Limited. Registered Office: 25 Gresham
Street, London EC2V 7HN. Registered in England and Wales no. 11722983.
Lloyds Bank plc, Bank of Scotland plc and Lloyds Bank Corporate Markets plc are
authorised by the Prudential Regulation Authority and regulated by the
Financial Conduct Authority and Prudential Regulation Authority.
Scottish Widows Schroder Personal Wealth Limited is authorised and regulated by
the Financial Conduct Authority.
Lloyds Bank Corporate Markets Wertpapierhandelsbank GmbH is a wholly-owned
subsidiary of Lloyds Bank Corporate Markets plc. Lloyds Bank Corporate Markets
Wertpapierhandelsbank GmbH has its registered office at Thurn-und-Taxis Platz
6, 60313 Frankfurt, Germany. The company is registered with the Amtsgericht
Frankfurt am Main, HRB 111650. Lloyds Bank Corporate Markets
Wertpapierhandelsbank GmbH is supervised by the Bundesanstalt für
Finanzdienstleistungsaufsicht.
Halifax is a division of Bank of Scotland plc.
HBOS plc. Registered Office: The Mound, Edinburgh EH1 1YZ. Registered in
Scotland no. SC218813.
This e-mail (including any attachments) is private and confidential and may
contain privileged material. If you have received this e-mail in error, please
notify the sender and delete it (including any attachments) immediately. You
must not copy, distribute, disclose or use any of the information in it or any
attachments. Telephone calls may be monitored or recorded.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
