IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

DYNALLOC macro in Assember -Is there a way to capture in JES


IBM Mainframe Forums -> PL/I & Assembler
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sudarshan.srivathsav

New User


Joined: 10 Jul 2012
Posts: 24
Location: USA

PostPosted: Wed May 07, 2014 10:11 pm
Reply with quote

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
Back to top
View user's profile Send private message
steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 917
Location: The Universe

PostPosted: Wed May 07, 2014 11:02 pm
Reply with quote

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.
Back to top
View user's profile Send private message
sudarshan.srivathsav

New User


Joined: 10 Jul 2012
Posts: 24
Location: USA

PostPosted: Wed May 07, 2014 11:30 pm
Reply with quote

Thanks Steve
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> PL/I & Assembler

 


Similar Topics
Topic Forum Replies
No new posts PRINTOUT macro PL/I & Assembler 0
No new posts Rexx to capture output from TSO HSEND... CLIST & REXX 9
No new posts create rexx edit Macro that edits the... CLIST & REXX 3
No new posts Option DYNALLOC second parameter. DFSORT/ICETOOL 11
No new posts To capture the job from savers CLIST & REXX 4
Search our Forums:

Back to Top