PL/I for AIX

Originally posted by: JustAFreeName

Hi all!

I have a simple request.

Kontext: PL/1 running on z/OS.

I'm processing files. The files are referenced via DDNAME JCL.

For logging it would be helpful to obtain the real DSN-Name which is accessed through the DDNAME.

To make myself clear, here an example:

//STEP     EXEC PGM=PGMXXX,PARM=('...')
//SYSPRINT DD  SYSOUT=*
//IXMLMBR  DD  DISP=SHR,DSN=AG.AW.ACE.CONNECT.TO.DATASRC.XML.MASTER(XMLIN)

I want to log from PGMXXX

"Processing InputFile AG.AW.ACE.CONNECT.TO.DATASRC.XML.MASTER(XMLIN)"

Is there an PL1 interface which gets the DSN-Name for the DDNAME IXMLMBR?

Any answer is welcomed.

Thy, JustAFreeName

Originally posted by: JustAFreeName

Hi all!

After searching the internet, I found an answer to my question.

The PL/1 Language Reference Manual, Chapter 19 "Built-in functions" describes FILEDDWORD();

FILEDDWORD( IXMLMBR, 'FILENAME');

It returns the full qualitifed DSN.

Question is answered, no further acrion required.

Thx.

Originally posted by: Patrick_Vogt (SKY)

Thank you ! Something i need sometimes and found somewhere else (Assembler macros) but i did not know that it is that easy on PL/I.