A different approach is unloading the PDS and process the flat file with Rexx. Or if you have SAS, run PROC SOURCE and process the sequential file, either with SAS of Rexx.
Kees. > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of Joseph Reichman > Sent: 29 April, 2019 14:47 > To: [email protected] > Subject: Re: Processing Partition organization type record > > Thanks don’t think there is a easy way out > I am running the code under IKJEFT01 in background as a batch job I need > to process all the members Actually it is the SYSADATA file a VB PO I have > to read the ADATA for each member doesn’t seem like any easy way out > > Thanks > > > > > > On Apr 29, 2019, at 8:39 AM, John McKown <[email protected]> > wrote: > > > > On Mon, Apr 29, 2019 at 7:28 AM Joseph Reichman <[email protected]> > > wrote: > > > >> Hi > >> > >> I have to process a DSORG type dataset processing each member > >> > >> I initially do a FIND and go through Each member > >> > >> Seems lime with this access method I have to use READ instead of GET > >> > >> And thus do my own deb locking processing In Rexx I would do the > allocate > >> and unallocate and this would use QSAM > >> > >> In Assembler this more difficult with SVC 99 > >> > >> If anybody has any ideas they are willing to share I would appreciate > it > >> > >> Thanks > >> > >> > > Do efficiently process every member of a PDS or PDSE, you do need to use > > BPAM, which uses READ & CHECK. Using SVC 99 to allocate each member is > > possible, but will have horrible overhead. Have you looked at the IBM > > example code for this? > > > > > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2 > r3.idad400/retmem99.htm > > > > Another way is to write an application which uses the TSO ISPF LM* > > services. > > > > > https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.3.0/com.ibm.zos.v2 > r3.f54sg00/lminit.htm > > > > > > > > > > > > > > -- > > This is clearly another case of too many mad scientists, and not enough > > hunchbacks. > > > > > > Maranatha! <>< > > John McKown > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ******************************************************** For information, services and offers, please visit our web site: http://www.klm.com. This e-mail and any attachment may contain confidential and privileged material intended for the addressee only. If you are not the addressee, you are notified that no part of the e-mail or any attachment may be disclosed, copied or distributed, and that any other action related to this e-mail or attachment is strictly prohibited, and may be unlawful. If you have received this e-mail by error, please notify the sender immediately by return e-mail, and delete this message. Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its employees shall not be liable for the incorrect or incomplete transmission of this e-mail or any attachments, nor responsible for any delay in receipt. Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch Airlines) is registered in Amstelveen, The Netherlands, with registered number 33014286 ******************************************************** ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
