This jcl and cblopt works with DB2 V7 and enteprise cobol 3.3 and it works
with either region = 0M or region = 8M
I tried the same options and JCL with DB2 V8 and got an abend - didn't
examine it closely (u3002).
The quickest way out is what was already suggested - change to the stand
alone precompiler
Mike
//COB2COMP EXEC PGM=IGYCRCTL,REGION=0M,
// PARM='TEST(NONE,SYM),NOSEQUENCE'
//STEPLIB DD DISP=SHR,DSN=IGY330.SIGYCOMP
// DD DISP=SHR,DSN=DSN710.SDSNLOAD
//SYSUT1 DD SPACE=(460,(800,200)),UNIT=SYSDA
//SYSUT2 DD SPACE=(460,(800,200)),UNIT=SYSDA
//SYSUT3 DD SPACE=(460,(800,200)),UNIT=SYSDA
//SYSUT4 DD SPACE=(460,(800,200)),UNIT=SYSDA
//SYSUT5 DD SPACE=(460,(800,200)),UNIT=SYSDA
//SYSUT6 DD SPACE=(460,(800,200)),UNIT=SYSDA
//SYSUT7 DD SPACE=(460,(800,200)),UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
TEST(NONE,SYM),NOSEQUENCE
PROCESS(CBL) statements:
CBL SQL('HOST(IBMCOB),QUOTE,APOSTSQL,ATTACH(CAF),VERSION(AUTO)')
CBL LIB,SOURCE,SIZE(8192K)
CBL APOST,NOXREF,RENT,DECK,MAP
Options in effect:
NOADATA
ADV
APOST
ARITH(COMPAT)
NOAWO
BUFSIZE(4096)
NOCICS
CODEPAGE(1140)
NOCOMPILE(S)
NOCURRENCY
DATA(31)
NODATEPROC
DBCS
DECK
NODIAGTRUNC
NODLL
NODUMP
NODYNAM
NOEXIT
NOEXPORTALL
NOFASTSRT
FLAG(I,I)
NOFLAGSTD
INTDATE(ANSI)
LANGUAGE(EN)
LIB
LINECOUNT(60)
NOLIST
MAP
NONAME
NSYMBOL(NATIONAL)
NONUMBER
NUMPROC(NOPFD)
OBJECT
NOOFFSET
NOOPTIMIZE
OUTDD(SYSOUT)
PGMNAME(COMPAT)
RENT
RMODE(AUTO)
NOSEQUENCE
SIZE(8388608)
SOURCE
SPACE(1)
SQL('HOST(IBMCOB),QUOTE,APOSTSQL,ATTACH(CAF),VERSION(AUTO)')
NOSSRANGE
NOTERM
TEST(NONE,SYM,NOSEPARATE)
NOTHREAD
5655-G53 IBM Enterprise COBOL for z/OS 3.3.0
TRUNC(STD)
NOVBREF
NOWORD
NOXREF
YEARWINDOW(1900)
--
Mike
----------------------------------------------------------------------
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
