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
