Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

EXIT(ADEXIT(,MODULE))

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
Biswajit D

New User


Joined: 17 Apr 2012
Posts: 50
Location: India

PostPosted: Mon May 20, 2013 11:30 am    Post subject: EXIT(ADEXIT(,MODULE))
Reply with quote

Hello,

Could anyone please guide me what is the purpose of EXIT(ADEXIT as a cobol compiler option?

I went through http://publib.boulder.ibm.com/infocenter/zos/v1r11/index.jsp?topic=/com.ibm.zos.r11.asma100/asmp102082.htm but I am still not clear about its use and usage. Any help would be highly appreciated.

Thank You.
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Mon May 20, 2013 12:12 pm    Post subject: Reply to: EXIT(ADEXIT(,MODULE))
Reply with quote

Just pure speculation on Your side,
if You do not know about ADATA most probably You will not need it.

in general EXITS HOOKS are provided so that the user will be able to alter the standard behavior when it ( the standard ) does not satisfy his needs

the ADEXIT will let the user process in any way he prefers the ADATA records/dataset.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Mon May 20, 2013 1:44 pm    Post subject: Reply to: EXIT(ADEXIT(,MODULE))
Reply with quote

As enrico says, unless you have a (technical) requirement to process the ADATA output, then you can safely ignore it, it will do nothing for you.
Back to top
View user's profile Send private message
Biswajit D

New User


Joined: 17 Apr 2012
Posts: 50
Location: India

PostPosted: Mon May 20, 2013 1:59 pm    Post subject: Reply to: EXIT(ADEXIT(,MODULE))
Reply with quote

We have a tool that was coded few years back that compiles a module using ADEXIT option and is supposed to process the output (at this point, I do not know what the output is. Just trying to get the tool up and running) to generate the report. Unfortunately there is no documentation available for the tool. I was just curious to know how and why we use this option.

Since the tool has not been working as it should have we are not using it. And again, since we are not using it for a long time, most of the datasets that were used by the tool got deleted icon_sad.gif .

I was trying to debug and ran into ADEXIT which is a new thing for me. Is there any documentation available as to how to use this compiler option? What all changes are needed in the compilation job, what details should be present in SYSADATA dataset?
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Mon May 20, 2013 2:04 pm    Post subject: Reply to: EXIT(ADEXIT(,MODULE))
Reply with quote

Yes, you want to look at the Programming Guide for your version of COBOL. Use, examples, JCL changes.
Back to top
View user's profile Send private message
Biswajit D

New User


Joined: 17 Apr 2012
Posts: 50
Location: India

PostPosted: Tue May 21, 2013 1:20 pm    Post subject:
Reply with quote

I could finally get the tool going. Thank You for the directions.

Just to share,
Pass the compiler option EXIT(ADEXIT(,EXITROUT) to IGYCRCTL, where EXITROUT is your exit routine.

Code:

//STEP050  EXEC PGM=IGYCRCTL,            IBM-DEBUG/COBOL COMPILER     
//             COND=(4,LT),                                           
//             PARM=('BUF(256K),F(I,E),ADATA,LIB,NOX,NOS,AR(E),NUMPROC(MIG),NOSEQ,LC(90),EXIT(ADEXIT(,EXITROUT)')                   

//STEPLIB   DD  DISP=SHR,DSN=PDS.WHERE.EXIT.ROUTINE.LOAD.MODULE.IS.PRESENT

//SYSADATA DD  DSN=YOUR.SYSADATA.OUTPUT,                       
//             DCB=(LRECL=32756,BLKSIZE=0,RECFM=VB),           
//             DISP=(NEW,CATLG,DELETE),                           
//             SPACE=(CYL,(5,5)),                                 
//             UNIT=SYSDA

Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Tue May 21, 2013 1:40 pm    Post subject: Reply to: EXIT(ADEXIT(,MODULE))
Reply with quote

Thanks for posting the information.

I think the compile/linkedit(binder) options you used are worth posting as well :-)
Back to top
View user's profile Send private message
Biswajit D

New User


Joined: 17 Apr 2012
Posts: 50
Location: India

PostPosted: Tue May 21, 2013 1:47 pm    Post subject:
Reply with quote

This is what I used.

Code:
STEP070  EXEC PGM=IEWBLINK,            IBM-DEBUG/LINKAGE EDITOR   
             COND=(4,LT),                                         
             PARM=(CALL,LET,LIST,XREF)                           
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to display value of an exit param... lind sh CICS 2 Sun Oct 09, 2016 12:28 pm
No new posts A sample of exit program for exit XMN... lind sh CICS 2 Mon Oct 03, 2016 5:07 pm
No new posts SORT - E15 and E35 using same user ex... Abhi Nature DFSORT/ICETOOL 12 Mon Oct 03, 2016 4:33 pm
No new posts Copybook structure in Load module Vai123 COBOL Programming 7 Fri Sep 16, 2016 8:29 pm
No new posts How to use my exit program. lind sh CICS 1 Tue Sep 13, 2016 1:54 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us