Its all complex why did IBM have to have MACRF=R with DSORG=PO was there any good reason ?
I would have add another step truth is I want to keep track of the members as they represent the CSECTS wonder if anyone submitted a RFE for this ever > On Apr 29, 2019, at 9:13 AM, Vernooij, Kees (ITOP NM) - KLM > <[email protected]> wrote: > > 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
