You can't do a GET after a FIND because GET is a QSAM macro (MACRF=G) and FIND is a BPAM macro (MARF=RP). Deblocking is a facility of QSAM, not of BPAM or BSAM. You might submit an RFC to IBM for a Queued Partition Access Method, but you'll need a business case.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Joseph Reichman <reichman...@gmail.com> Sent: Monday, April 29, 2019 6:39 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Processing Partition organization type record 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 <sme...@gmu.edu> 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 <IBM-MAIN@LISTSERV.UA.EDU> on behalf of > Joseph Reichman <reichman...@gmail.com> > Sent: Monday, April 29, 2019 9:18 AM > To: IBM-MAIN@LISTSERV.UA.EDU > 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 >> <kees.verno...@klm.com> 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:IBM-MAIN@LISTSERV.UA.EDU] On >>> Behalf Of Joseph Reichman >>> Sent: 29 April, 2019 14:47 >>> To: IBM-MAIN@LISTSERV.UA.EDU >>> 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 <john.archie.mck...@gmail.com> >>> wrote: >>>> >>>> On Mon, Apr 29, 2019 at 7:28 AM Joseph Reichman <reichman...@gmail.com> >>>> 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN >>> >>> ---------------------------------------------------------------------- >>> For IBM-MAIN subscribe / signoff / archive access instructions, >>> send email to lists...@listserv.ua.edu 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
