Re: Reading DD card information



Interesting. I'd seen APARM mentioned but I could never figure out what it is actually for.

Of course this uses the AIB interface and I can't for the life of me to get it to work, but I'll try it out another day when I have more patience.

Thanks!
Frank

On 9/17/2009 at 11:46 AM, in message
<6133ad1f0909171046u2b5966abk77f64a0f191701b3@xxxxxxxxxxxxxx>, Don Leahy
<don.leahy@xxxxxxxxx> wrote:
Another way to pass parms to a program invoked via DFSRRC00 is to use
the APARM parameter. The APARM contents can be retrieved via an INQY
ENVIRON call in the application program. (The parm is limited to 32
bytes in length).

On Thu, Sep 17, 2009 at 11:42 AM, Frank Swarbrick
<frank.swarbrick@xxxxxxxxxxxxxx> wrote:
For a regular batch program, yes. Unfortunately most of our programs are
IMS, and as far as I know you cannot pass PARM data down to the application
program.

For those who don't know IMS, this is how an IMS batch program is executed:

//STEP01 EXEC PGM=DFSRRC00,
// PARM=(DLI,DDADMP,DDMPPSB)

DFSRRC00 is the IMS driver program, which calls DL/I application program
called DDADMP using a DL/I PSB called DDMPPSB.

Obviously I could use a separate dataset to contain the plan et all, but
then I can't use symbolic parms.

Frank

On 9/17/2009 at 9:36 AM, in message
<6133ad1f0909170836q22bed236w6d4ece6d36a8222e@xxxxxxxxxxxxxx>, Don Leahy
<don.leahy@xxxxxxxxx> wrote:
FWIW, I usually specify the plan via a PARM. Would this not suit your
purpose?

On Thu, Sep 17, 2009 at 11:27 AM, Frank Swarbrick
<frank.swarbrick@xxxxxxxxxxxxxx> wrote:
How on earth did you guess what I wanted to use this for? This is exactly
it. I want a way to set a DB2 plan using symbolics and have the program be
able to read it.

So do you have some code that you use to extract the DSN from the DB2PLAN
DD?

Someone suggested the DYNALLOC macro, and I've been fiddling with that but
not yet got it figured out. (Not being an assembler programmer...)
Haven't tried the other method yet.

Thanks!
Frank

On 9/17/2009 at 9:11 AM, in message
<LISTSERV%200909171011054643.04D9@xxxxxxxxxxx>, Victor Gil
<Victor.Gil@xxxxxxxxxxxxxx> wrote:
Frank,

The ONLY way I've found to pass a short string [up to 8 bytes] via
a "temporary" DD is:

// SET PLAN=PLANNAME
//DB2PLAN DD DISP=(,PASS),SPACE=(0,0),DSN=&&amp;&PLAN

the above DSN will be formatted by JES as

//DB2PLAN DD DSN=SYSxxxxx.Txxxxxx.RAxxx.xxxxxxxx.PLANNAME.Hxx

from where you CAN get the desired PLANNAME.

For longer strings consider multiple temporary DDs.

HTH,
-Victor-

On Wed, 16 Sep 2009 09:04:24 -0600, Frank Swarbrick
<frank.swarbrick@xxxxxxxxxxxxxx> wrote:

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! :-)

Thanks,
Frank




The information contained in this electronic communication and any
document attached hereto or transmitted herewith is confidential and
intended for the exclusive use of the individual or entity named above. If
the
reader of this message is not the intended recipient or the employee or
agent
responsible for delivering it to the intended recipient, you are hereby
notified
that any examination, use, dissemination, distribution or copying of this
communication or any part thereof is strictly prohibited. If you have
received
this communication in error, please immediately notify the sender by reply e-
mail and destroy this communication. Thank you.

--

Frank Swarbrick
Applications Architect - Mainframe Applications Development
FirstBank Data Corporation - Lakewood, CO USA
P: 303-235-1403

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html





The information contained in this electronic communication and any document
attached hereto or transmitted herewith is confidential and intended for the
exclusive use of the individual or entity named above. If the reader of
this
message is not the intended recipient or the employee or agent responsible
for delivering it to the intended recipient, you are hereby notified that
any
examination, use, dissemination, distribution or copying of this
communication or any part thereof is strictly prohibited. If you have
received this communication in error, please immediately notify the sender
by
reply e-mail and destroy this communication. Thank you.

--

Frank Swarbrick
Applications Architect - Mainframe Applications Development
FirstBank Data Corporation - Lakewood, CO USA
P: 303-235-1403

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


--

Frank Swarbrick
Applications Architect - Mainframe Applications Development
FirstBank Data Corporation - Lakewood, CO USA
P: 303-235-1403

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html





The information contained in this electronic communication and any document attached hereto or transmitted herewith is confidential and intended for the exclusive use of the individual or entity named above. If the reader of this message is not the intended recipient or the employee or agent responsible for delivering it to the intended recipient, you are hereby notified that any examination, use, dissemination, distribution or copying of this communication or any part thereof is strictly prohibited. If you have received this communication in error, please immediately notify the sender by reply e-mail and destroy this communication. Thank you.

--

Frank Swarbrick
Applications Architect - Mainframe Applications Development
FirstBank Data Corporation - Lakewood, CO USA
P: 303-235-1403

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
.



Relevant Pages

  • Re: Reading DD card information
    ... The information contained in this electronic communication and any ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ...
    (bit.listserv.ibm-main)
  • Re: QUESTION ABOUT ICKDSF - ICK31505I
    ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ... erase or destroy the material. ...
    (bit.listserv.ibm-main)
  • Re: NO RESPONSE TO MY EARLIER POST ON HSM - REPOST
    ... NO RESPONSE TO MY EARLIER POST ON HSM - REPOST ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ...
    (bit.listserv.ibm-main)
  • Re: Amazing article.
    ... Applications Architect - Mainframe Applications Development ... The information contained in this communication (including any ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ...
    (bit.listserv.ibm-main)
  • Re: multiple jobs / same name
    ... Applications Architect - Mainframe Applications Development ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ...
    (bit.listserv.ibm-main)