Hello Paul, That is almost exactly my approach, however I wanted to chase the Control Blocks, just in case someone "accidentally" sets the Parm to YES in Production, when SYSOUT has been assigned to SPOOL. I want to keep them honest.
Thanks .......Cameron Note I will be OOO on PTO March 23 throough March 31 2024 inclusive. From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Paul Feller Sent: Tuesday, March 26, 2024 11:59 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: How can I determine MVS FQDSN from DD Name in Batch COBOL Program? I'm going to suggest something a little different. Let me say that I'm not against what Cameron is trying to do. I've done the run the control block thing and I've done the RDJFCB thing. In the original email the statement was made. "But in I'm going to suggest something a little different. Let me say that I'm not against what Cameron is trying to do. I've done the run the control block thing and I've done the RDJFCB thing. In the original email the statement was made. "But in emergency, support could override SYSOUT=* with SYSOUT=mydatasetName and my program will be able to determine we can honour the DISPLAYs." I'm assuming that the override would be some type of JCL change. Well what about just adding a parm to the JCL that is used to indicate to do the display or not to do the display. Keep the SYSOUT as a FQDN, maybe a GDG that only has two or three versions. So now the COBOL code checks the parm to indicate how to handle the display stuff. Just a little different way of looking at things. Paul -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU>> On Behalf Of Kirk Wolf Sent: Tuesday, March 26, 2024 10:46 AM To: IBM-MAIN@LISTSERV.UA.EDU<mailto:IBM-MAIN@LISTSERV.UA.EDU> Subject: Re: How can I determine MVS FQDSN from DD Name in Batch COBOL Program? IMO, a assembler subroutine that does RDJFCB is a better option than chasing control blocks. I wrote one that we call from our C++ product and its about 120 lines of assembler code, with XPLINK linkage. However, we use EDCDSECT to convert the JFCB dsect to a C header so that you can look at anything you want from C/C++. It's been very reliable for many years in all sorts of use cases. Kirk Wolf Dovetailed Technologies http:// <http://dovetail.com<https://isolate.menlosecurity.com/1/3735928037/http:/dovetail.com>>coztoolkit.com<https://isolate.menlosecurity.com/1/3735928037/http:/coztoolkit.com> ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu<mailto: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<mailto:lists...@listserv.ua.edu> with the message: INFO IBM-MAIN ________________________________ American Express made the following annotations ________________________________ This e-mail was sent to you by a representative of Amex Bank of Canada, P.O. Box 3204, Station "F", Toronto, ON, M1W 3W7, www.americanexpress.ca. If you no longer wish to receive these e-mails, please notify the sender by reply e-mail. This e-mail is solely for the intended recipient and may contain confidential or privileged information. If you are not the intended recipient, any disclosure, copying, use, or distribution of the information included in this e-mail is prohibited. If you have received this e-mail in error, please notify the sender by reply e-mail and immediately and permanently delete this e-mail and any attachments. Thank you. American Express a fait les remarques suivantes Ce courriel vous a ?t? envoy? par un repr?sentant de la Banque Amex du Canada, C.P. 3204, succursale F, Toronto (Ontario) M1W 3W7, www.americanexpress.ca. Si, par la suite, vous ne souhaitez plus recevoir ces courriels, veuillez en aviser les exp?diteurs par courriel. Ce courriel est r?serv? au seul destinataire indiqu? et peut renfermer des renseignements confidentiels et privil?gi?s. Si vous n'?tes pas le destinataire pr?vu, toute divulgation, duplication, utilisation ou distribution du courriel est interdite. Si vous avez re?u ce courriel par erreur, veuillez en aviser l'exp?diteur par courriel et d?truire imm?diatement le courriel et toute pi?ce jointe. Merci. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN