sudarshan.srivathsav
New User
Joined: 10 Jul 2012 Posts: 24 Location: USA
|
|
|
|
All,
Iam using DYNALLOC macro to create a DD name for a dsn in my assembler program, but unlike the regular DD names in JCL which comes up as JES2 messages in JESYSMSG .
Example: JES2 ALLOCATED TO SYSOUT
Is there a way to get a similar message for the DD name that iam dynamically allocating in my assembler program?
Any help would be appreciated.
Thanks,
Sudarshan |
|
steve-myers
Active Member
Joined: 30 Nov 2013 Posts: 917 Location: The Universe
|
|
|
|
Yes, the message is already there. As far as I know you don't have to do anything special.
Just to verify this, I wrote this little program.
Code: |
TESTDYN1 CSECT
USING *,12
SAVE (14,12),,*
LR 12,15
LA 1,DYNPARM
DYNALLOC ,
FREEZE RETURN (14,12),T,RC=0
DYNPARM DC A(X'80000000'+DYNRB)
DYNRB DC AL1(S99RBEND-S99RB,S99VRBAL,0,0)
DC 2AL2(0)
DC A(TXTPP,0,0)
TXTPP DC A(TXT01,X'80000000'+TXT02)
TXT01 DC AL2(DALSYSOU,1,1),C'Z'
TXT02 DC AL2(DALDDNAM,1,L'DDNAME)
DDNAME DC C'TESTDYN1'
DC 0D'0'
PUSH PRINT
PRINT NOGEN
IEFZB4D0 ,
IEFZB4D2 ,
POP PRINT
END TESTDYN1
|
After I ran it,
Code: |
IEF237I JES2 ALLOCATED TO TESTDYN1 |
appeared in the JESYSMSG data set for my TSO session.
The MSGLEVEL JOB statement parameter must be set to capture these messages. |
|