MVSFORUMS.com

[jinesh18]

i am using the HEWLH096 utility to link-edit. I have a Cobol program which calls a utility (assembler code). i have the load module of the assembler utility. I have sucessfuly comiled the cobol code but in the same JCL, i have a problem in the link-edit step.

FOr link-editing i am using the utility HEWLH096. Can neone tell me in which card should i specify the PDS where my load module ( of the assembler code) is and how to wite that card in the JCL. Actually this JCL has been generated by a tool. For the LKED step i already have a SYSLIN card //SYSLIN DD DSN=&&LOADSET,DISP=(OLD,PASS). Now how shld i specify the PDS where my load module.

Actually the compile and Link edit jcl runs sucsessfuly with a MAXCC=4. But when the run jcl is submitted it gives an s806 abend.

PLZ REPLY THIS IS VERY URGENT FOR ME.

[Cogito-Ergo-Sum]

There are two ways of looking at this problem.

One, SYSLMOD is the DD name where the load module is created. You need to find a means to pass the PDS name for the load module to SYSLMOD DD name.

Two, since you are getting a S806 abend, find out for exactly which program you are getting that ABEND. Maybe, you have to specify some other PDS (CEE.SCEERUN for example).

PLEASE curtail the note for urgency.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

[Cogito-Ergo-Sum]

BTW, HEWLH096, IEWL, HEWL are aliases for the program IEWBLINK.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

[jinesh18]

THANKS Cogito-Ergo-Sum FOR THE PROMPT REPLY.
1. tHE S806 ABEND IS FOR THE ASSEMBLER UTILITY THAT I AM TRYING TO CALL. THE EXACT ERROR MESSAGE IS
**
FIND FOR MODULE IFCONV FAILED BECAUSE DIRECTORY ENTRY IS NOT VALID FOR A LOAD MODULE.
**

2. tHIS IS WAT the lked step of MY jcl LOOKS LIKE :

//LKED EXEC PGM=HEWLH096,REGION=0M,
000039 // PARM=('LIST',
000040 // 'RMODE=ANY,AMODE=31',
000041 // '&LNKOPT'),
000042 // COND=(4,LT,COB)
000043 //SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
000044 //SYSUT1 DD DSN=&SYSUT1,UNIT=TEMPDA,SPACE=(6000,(190,76))
000045 //SYSPRINT DD SYSOUT=&CLASS
000046 //SYSLMOD DD DSN=&LOADLIB(&MEM),DISP=SHR
000047 //LOADIFC DD DSN=<pds where the load module for ass code is available>,DISP=SHR
000048 //SYSLIN DD DSN=&&LOADSET,DISP=(OLD,PASS)
000050 //*SYSABEND DD SYSOUT=&CLASS
000051 //DEL1 EXEC PGM=IEFBR14,COND=EVEN
000052 //DD1 DD DSN=&&LOADSET,DISP=(OLD,DELETE)

Can u sight any problem with the JCL. Plz tell me the corrections/additions i shld make !!

[Cogito-Ergo-Sum]

For S806:

Is IFCONV the Assembler utility?
Is it available in any of the PDS concatenated to STEPLIB ?

Is the COBOL program calling the Assembler module statically/dynamically? If it is dynamic, then you need not bother with the link step for COBOL program. Just compile, lin-edit the Assembler program and place the load module in some other PDS (or, the same). Ensure that the same PDS is available in the STEPLIB.

If the call is static, you will have to modify the link step to have the SYSLIN something like this:

[jinesh18]

Yes IFCONV is the assembler utility i am trying to call in the cobol code.

There is no steplib statement in the lked step as shown in the jcl (previous reply)

The call to IFCONV is static ( can be made dynamic if it required)

i am just trying the solution u have given.....will reply soon..please do wait 4 the reply
THANK YOU

[Cogito-Ergo-Sum]

[jinesh18]

i got a jcl error saying - "27 IEFC601I INVALID JCL STATEMENT"
The 27 line in the listing is :
***
26 ++SYSLIN DD DSN=&&LOADSET,DISP=(OLD,PASS)
27 ++ DD *

***

Is there a mistake in the syntax or am i writing on wrong column numbers i mean when we use the dd * is there a restriction with the column nos.?

The modified jcl - as per your solution- is as follows :

000038 //LKED EXEC PGM=HEWLH096,REGION=0M,
000039 // PARM=('LIST',
000040 // 'RMODE=ANY,AMODE=31',
000041 // '&LNKOPT'),
000042 // COND=(4,LT,COB)
000043 //SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
000044 //SYSUT1 DD DSN=&SYSUT1,UNIT=TEMPDA,SPACE=(6000,(190,76))
000045 //SYSPRINT DD SYSOUT=&CLASS
000046 //OBJ DD DSN=AVI1T.DMTD.LOAD.CNTL,DISP=SHR
000047 //SYSLMOD DD DSN=&LOADLIB(&MEM),DISP=SHR
000048 //LOADIFC DD DSN=AVI1T.DMTD.LOAD.CNTL,DISP=SHR
000049 //SYSLIN DD DSN=&&LOADSET,DISP=(OLD,PASS)
000050 // DD *
000051 INCLUDE OBJ(IFCONV)
000052 NAME AIRMG(R)
000053 /*
000054 //*SYSIN DD DSN=AVI1T.DMTD.SINC,DISP=SHR
000055 //*SYSABEND DD SYSOUT=&CLASS


Whats ur guess at this ??

[Cogito-Ergo-Sum]

jinesh18,
You should ALWAYS paste your code using code blocks. It will save a lot of your and my time.

Bring the DD * below the DD for LOADSET. I hope, this step is not in a PROC? If yes, then you would have to pass a control card.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.

[jinesh18]

[Cogito-Ergo-Sum]

[jinesh18]

Thanks
tHIS IS HOW I HAVE MODIFIED THE JCL

[kolusu]

jinesh18,

How are you calling the assembler sub-routine from cobol. Is it a dynamic call or a static call. if it is dynamic call, you can simply concatenate that loadlib to your steplib excueting the cobol pgm.

[Cogito-Ergo-Sum]

[jinesh18]