Many thanks for this. Could be very useful, especially the demonstration of the use of the FUNCTION-POINTER type.
Peter -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of David S. Sent: Friday, November 06, 2015 6:03 PM To: [email protected] Subject: Re: Accessing TIOT->JFCB segments from COBOL (June 2014) [I realize this thread is kind of old, but I have yet to find a better COBOL solution anywhere else so I thought I'd post it. This was originally posted to the "Mainframe (COBOL, etc) Experts" LinkedIn Group, which I manage for group owner Vikas Kumar, see http://linkd.in/1S4BarK ] Here's a COBOL example to pass a JFCB token to the actual SWAREQ routine and receive back a pointer to the JFCB, exactly the same as an Assembler program coded with an SWAREQ macro. This code displays the JOBLIB concatenation, but the technique for obtaining the JFCB address using a JFCB token from the TIOT is universal. It runs exactly the same chain as the SWAREQ macro (CVT -> JESCT -> JESPEXT) to obtain the SWAREQ routine address from JESQBSVA, to which it then passes the JFCB token from the TIOT and receives back a pointer to the JFCB, which contains the DSN. See "Accessing the Scheduler Work Area" in the MVS Authorized Assembler Services Guide: <Snipped> -- This message and any attachments are intended only for the use of the addressee and may contain information that is privileged and confidential. If the reader of the message is not the intended recipient or an authorized representative of the intended recipient, you are hereby notified that any dissemination of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail and delete the message and any attachments from your system. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
