What i usuaaly do is running ispf search utility on the the pds where the seach key is a blank. It is later easy to process using rexxx. Btw, you don't need ispf to run the utility and it can be part of your rexx (as i do).
ITschak בתאריך יום ב׳, 29 באפר׳ 2019, 16:14, מאת Vernooij, Kees (ITOP NM) - KLM < [email protected]>: > 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 > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
