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.v2r3.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.v2r3.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
