> -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of Frank Swarbrick > Sent: Wednesday, September 16, 2009 11:04 AM > To: [email protected] > Subject: Reading DD card information > > I believe I have seen something like the following: > //FJSTEST JOB NOTIFY=&SYSUID > //STEP01 EXEC PGM=MYPGM > //DUMMME DD DUMMY,DSN='THIS.IS.A.TEST' > > What does MYPGM need to do in order to retrieve the DSN value of the DD > named DUMMME? > > A general pointer in the right direction would be nice. > Specific examples would be great! :-)
The DUMMY parameter overrides the DSN specification, so the DSN in the internal control block will be 'NULLFILE'. I don't think there is a way to get that DSN value if you use DUMMY. I have seen and used this technique: //FJSTEST JOB NOTIFY=&SYSUID //STEP01 EXEC PGM=MYPGM //DUMMME DD DSN='THIS.IS.A.TEST',DISP=(NEW,DELETE,DELETE), // UNIT=VIO,SPACE=(0,0) This file will actually be allocated but then deleted at step termination. As long as you use a quoted DSN value, you can pretty much put anything in there that you want that fits in 44 bytes. And as was previously posted, RDJFCB would be the macro to retrieve the value. AFAIK there isn't a 'standard' callable routine available to HLL's to retrieve that information, so you'll need to code an assembler sub to get it. There are probably several examples of such a subroutine on the CBT files somewhere, but I don't have a specific pointer for you. HTH Peter Peter 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: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
