I'd like to take this opportunity to thank Sri Kolusu, of IBM, for taking the time to help with the open exit IFG0EX0B, in regards to IEBGENER/ICEGENER and DF/SORT. He has spent the last few days researching and testing.
He came up with a solution, and the exit is now working with IEBGENER/ICEGENER and DF/SORT. Below is the solution he came up with. "And the reason as to why the increased secondary quantity in the 3.4 is because you haven't forced the modified JFCB writeback into the DSCB There's a long discussion of RDJFCB in DFSMSdfp Advanced Services. Tip: If you set the bit JFCNWRIT in the JFCBTSDM field to 1 before you issue the OPEN macro instruction, the JFCB is not written back at the conclusion of open processing. OPEN TYPE=J normally moves your program's modified copy of the JFCB, to replace the system copy. To ensure that this move is done, your program must set bit zero of the JFCBMASK+4 field to 1. IBM recommends not setting on JFCNWRIT. So I would add the flag to set jfcbmask+4 bit 0 to 1 when the secondary gets modified. Here is the modified code at label STSQTY (in blue color) STSQTY EQU * STORE SECONDARY QTY STCM RODD,7,JFCBSQTY OI JFCBMASK+4,X'80' REQUEST JFCB WRITEBACK LA RINCODE,MODJFCB JFCB MODIFIED RETSQTY EQU * RETURN FROM SQTY BR RET RETURN " Confidentiality notice: This e-mail message, including any attachments, may contain legally privileged and/or confidential information. If you are not the intended recipient(s), or the employee or agent responsible for delivery of this message to the intended recipient(s), you are hereby notified that any dissemination, distribution, or copying of this e-mail message is strictly prohibited. If you have received this message in error, please immediately notify the sender and delete this e-mail message from your computer. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN