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: www.rsmpartners.com 'Dance like no one is watching. Encrypt like everyone is.' -----Original Message----- From: IBM Mainframe Discussion List <[email protected]> On Behalf Of Joseph Reichman Sent: 29 April 2019 13:28 To: [email protected] 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 [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
