We have some REXX code which we use to do our COBOL compile/links etc, part
of which allocates the SYSLIB concatenation for the link-edit step like this
-
/*--- input load libraries via SYSLIB */
sysLibs = nameObjLibs.prgVersion nameAddQuotes(CBL_LIB)
if prgVersion = fgVersion &,
left(TPMON,4) = 'CICS' then
sysLibs = sysLibs nameAddQuotes(CICS_LOAD)
if left(TPMON,3) = 'IMS' then
sysLibs = sysLibs nameAddQuotes(IMS_RES)
if pgenSqlPresent.prgVersion then
sysLibs = sysLibs nameAddQuotes(DB2_LOAD)
sysLibs = sysLibs nameAddQuotes(CEE_LKED)
sysLibs = syslibs nameAddQuotes(TCPLIB)
call fileAlloc 'dsn('||sysLibs||') ddn(SYSLIB) shr reuse'
/* end */
and fileAlloc looks like this -
/**********************************************************************/
/* */
/* allocate file and remember ddn for 'fileFree' routine */
/* */
/**********************************************************************/
fileAlloc: procedure expose allocList
do w = 1 to words(arg(1))
currWord = word(arg(1),w)
if left(currWord,4) <> 'ddn(' then iterate
leave
end
if currWord = 'ddn(SYSPRINT)' then
call freeDDN 'SYSPRINT'
if currWord = 'ddn(SYSTERM)' then
call freeDDN 'SYSTERM'
if currWord = 'ddn(SYSIN)' then
call freeDDN 'SYSIN'
currWord = left(currWord,length(currWord) - 1)
allocList = allocList substr(currWord,5)
'alloc' arg(1)
savedRc = rc
if savedRc <> 0 then
do
call msgMsg 'alloc' arg(1) ' RC='||savedRc
call exitJob 16,'ALLOC'
end
return
/* end of fileAlloc */
We are now playing with calling Java from COBOL and need to concatenate some
PATH definitions onto the SYSLIB definition. Is there a way to achieve
this.
Jim McAlpine
----------------------------------------------------------------------
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
