View previous topic :: View next topic
|
Author |
Message |
Biswajit D
New User
Joined: 17 Apr 2012 Posts: 50 Location: India
|
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
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 |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
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 |
|
|
Biswajit D
New User
Joined: 17 Apr 2012 Posts: 50 Location: India
|
|
|
|
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 .
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 |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
Yes, you want to look at the Programming Guide for your version of COBOL. Use, examples, JCL changes. |
|
Back to top |
|
|
Biswajit D
New User
Joined: 17 Apr 2012 Posts: 50 Location: India
|
|
|
|
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 |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
Thanks for posting the information.
I think the compile/linkedit(binder) options you used are worth posting as well :-) |
|
Back to top |
|
|
Biswajit D
New User
Joined: 17 Apr 2012 Posts: 50 Location: India
|
|
|
|
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 |
|
|
|