Well, so did I, but it finally sunk in that doing so was no longer necessary except for code intended to run on obsolete releases.
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Lennie Dymoke-Bradshaw <lenni...@rsmpartners.com> Sent: Monday, April 29, 2019 6:15 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Processing Partition organization type record Fair point. Answer is, I learnt this stuff before they invented DESERV. Lennie Dymoke-Bradshaw | Security Lead | RSM Partners Ltd Web: http://secure-web.cisco.com/1dQy-Zlq6oATkP3o24qWIzuHRzaGNiVVj3O_lRN1CYyG5n49lshrSxwKdE1f9gWPx3m9SrcufqHS2od0jzXurfVe2NvUuCeW2SgU18lKOi9Vo-bViOmEGCsdGSH3JczQLcTEjltrhdgfVKwXF-x0NGY2luEqvqW8faP0n_fK0xNwo3AiPfyNAjL8nld78bjk1DfIBy19SzP6fKOJMoSGlCzCvYOVNGA3l-D9lqzBFNxzNxlEmeAdEJdRfnKlj-ra2VNhf7t3-MgQsJGs2MiJq2fFY2Suva33YYP3k7mBet6AMRqEgbhQg3NORTNUryPomxscB3FE_lyi_tw22rLeOzWij0L3S6pzSNrJBFwuuq3HWms3BYX0SyjCl9llZW1l0nW3TjbLVJ588ArJrWX5wBfaSqse-SmEv4IBm4IfIrulK84Ll917SbYQs0XdOvDx_/http%3A%2F%2Fwww.rsmpartners.com 'Dance like no one is watching. Encrypt like everyone is.' -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Seymour J Metz Sent: 29 April 2019 23:05 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [IBM-MAIN] Processing Partition organization type record > First you open the directory and read and decode the blocks to get the member > names. Why not just us DESERV? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Lennie Dymoke-Bradshaw <lenni...@rsmpartners.com> Sent: Monday, April 29, 2019 5:58 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Processing Partition organization type record I think one option to tackle this is to have two DD statements. One will be used to read the directory. The other can specify QSAM and can read and process the member using GET and PUTX. (If a member is to be written that is longer than its previous version then you may wish to use a third QSAM DD to use PUT.) First you open the directory and read and decode the blocks to get the member names. This can be done using QSAM. You then use RDJFCB on the second DD to obtain the JFCB and then modify that JFCB to specify each member in turn. Then use OPEN TYPE=J to specify the modified JFCB. Then read and process the member. So processing each member will require an OPENJ and a CLOSE. Lennie Dymoke-Bradshaw | Security Lead | RSM Partners Ltd Web: http://secure-web.cisco.com/1PdzwE63lXd_PKHb2WKUtgwEQUeSTsrN-JcCoUAM_eE-8DMuTfEjrdorXZlGxrChAl99A58h7BoN1S4nFJAL5X_Ss-wMOyTDHNsv-dDFcwOCWMvmME6KQS6-ECl5EzeYoNMKLNjuqneKpBsJLtlLpBz50_oHx6zzP1iW0hT_Qcx1E-pQVaXbywskTOIuN6RartAs6DBWzk4MFSoh5fUkBRDZljxg5szo-Xxf1FHrKKlrOW7uy11XyX7jDWeHWpD2smrTxxpeeq77_C6l3OC7xsYEIBTsdxPIy8B8qsaG3XuB70HKVU5d6lQZ3NdI4vJ0o8iEo-ZoLQ5085Z-pgClBwVGeb0egruddKqOl4bXNhZAwC5WmZxgEai7h6NSguCRO8d4XQgxmuetU5UtH9glsNbZjgkWkj6nvlEJOD7ZD7Rxs1V-yJIoEtkD43KRni6TA/http%3A%2F%2Fwww.rsmpartners.com 'Dance like no one is watching. Encrypt like everyone is.' -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Joseph Reichman Sent: 29 April 2019 13:28 To: IBM-MAIN@LISTSERV.UA.EDU Subject: [IBM-MAIN] Processing Partition organization type record 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 ---------------------------------------------------------------------- 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
