Hoping someone here has more experience with dynamic linking than I do. I'm
trying to get something to be dynamically callable from COBOL on z/OS. This is
old-style dynamic calling, not DLL stuff. So I've found
http://publib.boulder.ibm.com/infocenter/pdthelp/v1r1/index.jsp?topic=/com.ibm.entcobol.doc_4.1/PGandLR/ref/rpsub08.htm
and have followed that (I believe), but get S806 ABENDs when calling the
*second* entry point in the target module. So either I've missed something, the
example is wrong, I'm using some wrong option on the linkedit, or it's gremlins.
The callee, with entry points DCALLEE and CALL2222 (yeah, stupid names, but
I've been tinkering):
-------------------------------------------
Identification Division.
Program-ID. DCALLEE.
Environment Division.
Configuration Section.
Data Division.
Working-Storage Section.
Procedure Division.
Display "DCALLEE got called".
goback.
Entry "CALL2222".
Display "CALL2222 got called".
GOBACK.
End Program "DCALLEE".
-------------------------------------------
JCL to compile/linkedit the callee:
-------------------------------------------
//IGYWC PROC
//COBOL EXEC PGM=IGYCRCTL,REGION=2048K,
// PARM='LIB,DYNAM,NODLL'
//STEPLIB DD DISP=SHR,DSNAME=IGY340.SIGYCOMP
//SYSPRINT DD SYSOUT=*
//SYSLIB DD DISP=SHR,DSN=PHS.PDS.SOURCE(DCALLEE)
// DD DISP=SHR,DSN=VSH.BASE230.SAMPLIB
//SYSLIN DD DISP=SHR,DSN=PHS.PDS.OBJ(DCALLEE)
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
// PEND
// EXEC IGYWC
//*
//COBOL.SYSIN DD DSN=PHS.PDS.SOURCE(DCALLEE),DISP=SHR
//*
//LKED EXEC PGM=IEWBLINK,COND=(8,LT),
// PARM='LIST,AMODE=31,MAP,LET,RENT,DYNAM(NO)'
//SYSPRINT DD SYSOUT=*
//SYSLIB DD DISP=SHR,DSN=CEE.SCEELKED
//TESTPGMS DD DISP=SHR,DSN=PHS.PDS.OBJ
//SYSLMOD DD DISP=SHR,DSN=PHS.PDS.LOAD
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(3,1))
//SYSLIN DD *
INCLUDE TESTPGMS(DCALLEE)
NAME DCALLEE(R)
/*
-------------------------------------------
The caller:
-------------------------------------------
PROCESS DYNAM NODLL
Identification Division.
Program-ID. "DCALLER".
Environment Division.
Configuration Section.
Data Division.
Working-Storage Section.
77 pgm Pic X(8).
Procedure Division.
move "DCALLEE " to pgm.
call pgm.
move "CALL2222" to pgm.
call pgm.
Stop Run .
End Program "DCALLER".
-------------------------------------------
JCL to compile/linkedit/run the caller:
-------------------------------------------
//IGYWC PROC
//COBOL EXEC PGM=IGYCRCTL,REGION=2048K,
// PARM='LIB,DYNAM,NODLL'
//STEPLIB DD DISP=SHR,DSNAME=IGY340.SIGYCOMP
//SYSPRINT DD SYSOUT=*
//SYSLIB DD DISP=SHR,DSN=PHS.PDS.SOURCE(DCALLER)
// DD DISP=SHR,DSN=VSH.BASE230.SAMPLIB
//SYSLIN DD DISP=SHR,DSN=PHS.PDS.OBJ(DCALLER)
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
// PEND
// EXEC IGYWC
//*
//COBOL.SYSIN DD DSN=PHS.PDS.SOURCE(DCALLER),DISP=SHR
//*
//LKED EXEC PGM=IEWBLINK,COND=(8,LT),
// PARM='LIST,AMODE=31,MAP,LET,RENT,DYNAM(NO)'
//SYSPRINT DD SYSOUT=*
//SYSLIB DD DISP=SHR,DSN=CEE.SCEELKED
//TESTPGMS DD DISP=SHR,DSN=PHS.PDS.OBJ
//SYSLMOD DD DISP=SHR,DSN=PHS.PDS.LOAD
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(3,1))
//SYSLIN DD *
INCLUDE TESTPGMS(DCALLER)
NAME DCALLER(R)
/*
//RUN EXEC PGM=DCALLER,REGION=0K
//*
//STEPLIB DD DISP=SHR,DSN=PHS.PDS.LOAD
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
-------------------------------------------
Any and all ideas greatly appreciated!
--
...phsiii
Phil Smith III
[email protected]
Voltage Security, Inc.
www.voltage.com
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
