I don’t think so I do find to get the right sysadata member then why cannt i do get afterwards and have DFSMS deblock It for me
> On Apr 29, 2019, at 5:08 PM, Seymour J Metz <[email protected]> wrote: > > The MACRF for BPAM is perfectly reasonable. A better question might be why > IBM chose to not implement QPAM, or better yet, VPAM a la TSS/360. > > > -- > Shmuel (Seymour J.) Metz > http://mason.gmu.edu/~smetz3 > > ________________________________________ > From: IBM Mainframe Discussion List <[email protected]> on behalf of > Joseph Reichman <[email protected]> > Sent: Monday, April 29, 2019 9:18 AM > To: [email protected] > Subject: Re: Processing Partition organization type record > > 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://secure-web.cisco.com/1VYpoEVQhQmPBLZqYxybUBq5HapYiUZGUdxP13P9dQ41YmuALGJd3QsR5oQlT7Z_fIZft8NvSV1454GeQWJMFvYvXfjG1joN6mdc7bKXucxI87zzTmfHDVGE9yoG39vdonOBJoflddUyza5lu4UTkp7jav1GIo_Ov_0qFr3Id_IPvL9v6d08qvRBOExkds-ZYRPg0kcyv6KYu8onE7yoVryvWz1Z1iwE2LGwVASewWUej1aGhmSaTHbJ6D44DCGnh41Wr-q_VHCRV1WaTcZ3I1jCBkg1Q9jAt_7PCnNBc7yoNwdWcA5KWXHhMQ87kkcguOp3qMUmRiOs9guCr_kiIA6hkkjLF9SsvHcqy6yptFbvZvtIA7fT3RyVH5ix-DXBbnIa1lzPElno3jevbYr6t6ljGm4V4byzwtA4kufQIV2Zz7RrsiKc5ZFmp_jlt4pw_/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.ibm.zos.v2 >>> r3.idad400/retmem99.htm >>>> >>>> Another way is to write an application which uses the TSO ISPF LM* >>>> services. >>>> >>>> >>> https://secure-web.cisco.com/1VYpoEVQhQmPBLZqYxybUBq5HapYiUZGUdxP13P9dQ41YmuALGJd3QsR5oQlT7Z_fIZft8NvSV1454GeQWJMFvYvXfjG1joN6mdc7bKXucxI87zzTmfHDVGE9yoG39vdonOBJoflddUyza5lu4UTkp7jav1GIo_Ov_0qFr3Id_IPvL9v6d08qvRBOExkds-ZYRPg0kcyv6KYu8onE7yoVryvWz1Z1iwE2LGwVASewWUej1aGhmSaTHbJ6D44DCGnh41Wr-q_VHCRV1WaTcZ3I1jCBkg1Q9jAt_7PCnNBc7yoNwdWcA5KWXHhMQ87kkcguOp3qMUmRiOs9guCr_kiIA6hkkjLF9SsvHcqy6yptFbvZvtIA7fT3RyVH5ix-DXBbnIa1lzPElno3jevbYr6t6ljGm4V4byzwtA4kufQIV2Zz7RrsiKc5ZFmp_jlt4pw_/https%3A%2F%2Fwww.ibm.com%2Fsupport%2Fknowledgecenter%2Fen%2FSSLTBW_2.3.0%2Fcom.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://secure-web.cisco.com/1ugfDY2hkHTY3ezxywZqxKJtKp7uXdj8-6UKn7MQARb1yWHmHAHpELqPKGbwISDRO5D1R2-ZX9BJXNetERJRRfiU49RtDhKPitzZuP1xsxZynm0WmSwQ-OLI87TCfUesMNbjbG3ksXgfg5O3Oq2hKJlsZtR15-hiv-abGgjDHCo7XTYTtXkjs3X6lK2X-dO-u3-yww-owj6W9uXw9I-7AiGVzQCK-GYKwXdf5X8A9PQIU7TSt6G9HJ3o6M7F-tOzdtBzX3cPIoCNn0jO33y93lORFEtJRQtrZxeVzJifdFvTsKVUHloQ7gw_wgp0BDzYXyX8jsR-hJZg10-IP6hiG6DrsFFw1_cFzkLl2szawCauelJsyuY1o7WbD_XVUk1L2wmeezy92EhZRfeI2g1J3-vLq2VhF2Wr_56BlZSvgD0EK_DEEBp0M8GHB0J46yAaO/http%3A%2F%2Fwww.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 > > ---------------------------------------------------------------------- > 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
