This win the award for best answer
Joe Reichman 170-10 73 rd ave Fresh meadows NY 11366 > On Apr 29, 2019, at 5:58 PM, Lennie Dymoke-Bradshaw > <[email protected]> wrote: > > 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
