Robert
Many thanks for your reply. I have added my vote to the RFE.
Here are the compiler options from the latest trial, the LE override options
from the DCL PLIXOPT statement, and the results of a CLER transaction from the
relevant CICS region.
I don’t pretend to understand many of them but any comments on these are
welcome!
Apologies for the length of this post
AGGREGATE(DECIMAL)
ARCH(6)
ATTRIBUTES(FULL)
BACKREG(5)
BIFPREC(15)
BLANK('05'x)
NOBLKOFF
CASERULES( KEYWORD( MIXED ) )
CEESTART(FIRST)
CHECK( NOCONFORMANCE NOSTORAGE )
CMPAT(V2)
CODEPAGE(01140)
NOCOMMON
NOCOMPILE(S)
NOCOPYRIGHT
CSECT
CSECTCUT(4)
CURRENCY('£')
DDSQL('')
DECIMAL( FOFLONASGN NOFOFLONMULT NOFORCEDSIGN )
DEFAULT(IBM ASSIGNABLE NOINITFILL NONCONNECTED
DESCRIPTOR DESCLOCATOR DUMMY(ALIGNED) ORDINAL(MIN)
BYADDR RETURNS(BYADDR) LINKAGE(OPTLINK) NORETCODE
NOINLINE REORDER NOOVERLAP NONRECURSIVE ALIGNED NULL370
BIN1ARG PSEUDODUMMY NULLSTRADDR NULLSTRPTR(NULL) EVENDEC
SHORT(HEXADEC) EBCDIC HEXADEC NATIVE NATIVEADDR E(HEXADEC))
DEPRECATE(
BUILTIN()
ENTRY()
INCLUDE()
VARIABLE()
STMT()
)
DEPRECATENEXT(
BUILTIN()
ENTRY()
INCLUDE()
VARIABLE()
STMT()
)
DISPLAY( WTO )
NODLLINIT
NOEXIT
EXTRN(FULL)
FLAG(W)
FLOAT( AFP(NOVOLATILE) NODFP )
FLOATINMATH(ASIS)
NOGOFF
NOGONUMBER
NOGRAPHIC
NOHGPR
NOIGNORE
INCAFTER(PROCESS(""))
NOINCDIR
INCLUDE
NOINITAUTO
NOINITBASED
NOINITCTL
NOINITSTATIC
NOINSOURCE
NOINTERRUPT
LANGLVL(OS)
LIMITS( EXTNAME(7) FIXEDBIN(31,31) FIXEDDEC(15,15) NAME(100) )
LINECOUNT(60)
NOLINEDIR
LIST
LISTVIEW(SOURCE)
MACRO
MAP
MARGINI(' ')
MARGINS(2,72,1)
MAXGEN(100000)
MAXMEM(1048576)
MAXMSG(W 250)
MAXNEST( BLOCK(17) DO(17) IF(17) )
MAXSTMT(4096)
MAXTEMP(50000)
MDECK
NOMSGSUMMARY
NONAME
NAMES('@#£' '@#£')
NATLANG(ENU)
NEST
NOT('¬')
NUMBER
OBJECT
NOOFFSET
NOONSNAP
OPTIMIZE(0)
OPTIONS(DOC)
OR('|')
PP( MACRO )
NOPPCICS
NOPPINCLUDE
PPLIST(KEEP)
NOPPMACRO
NOPPSQL
NOPPTRACE
PRECTYPE(ANS)
PREFIX(CONVERSION FIXEDOVERFLOW INVALIDOP OVERFLOW
NOSIZE NOSTRINGRANGE NOSTRINGSIZE NOSUBSCRIPTRANGE
UNDERFLOW ZERODIVIDE)
NOPROCEED(S)
PROCESS(DELETE)
QUOTE('"')
NOREDUCE
NORENT
RESEXP
RESPECT()
RTCHECK( NONULLPTR )
RULES(IBM BYNAME CONTROLLED NODECSIZE ELSEIF EVENDEC GOTO GLOBALDO
NOLAXBIF NOLAXCTL LAXDCL NOLAXDEF LAXENTRY LAXIF LAXINOUT LAXLINK
LAXMARGINS LAXNESTED LAXPUNC LAXQUAL LAXRETURN LAXSCALE LAXSEMI LAXSTG
NOLAXSTRZ MULTICLOSE PADDING PROCENDONLY RECURSIVE SELFASSIGN UNREF)
NOSEMANTIC(S)
NOSERVICE
SOURCE
SPILL(512)
STATIC(FULL)
NOSTDSYS
NOSTMT
STORAGE
STRINGOFGRAPHIC(GRAPHIC)
NOSYNTAX(S)
SYSPARM('')
SYSTEM(MVS)
NOTEST
UNROLL(AUTO)
USAGE( HEX(SIZE) ROUND(IBM) SUBSTR(STRICT) UNSPEC(IBM) )
WIDECHAR(BIGENDIAN)
WINDOW(1950)
WRITABLE
XINFO(NODEF MSG SYM SYN NOXML)
XML( CASE(UPPER) )
DCL PLIXOPT CHAR(46) VAR STATIC EXTERNAL
INIT('HEAP(16K),ANYHEAP(1320K),STACK(6K),RPTSTG(OFF)');
LAST WHERE SET OPTION
----------------------------- ------------------------------------------------
PARMLIB(CEEPRM00) ABPERC(NONE)
PARMLIB(CEEPRM00) ABTERMENC(ABEND)
PARMLIB(CEEPRM00) NOAIXBLD
PARMLIB(CEEPRM00) ALL31(ON)
PARMLIB(CEEPRM00) ANYHEAP(4096,4080,ANYWHERE,FREE)
PARMLIB(CEEPRM00) NOAUTOTASK
PARMLIB(CEEPRM00) BELOWHEAP(4096,4080,FREE)
PARMLIB(CEEPRM00) CBLOPTS(ON)
PARMLIB(CEEPRM00) CBLPSHPOP(ON)
PARMLIB(CEEPRM00) CBLQDA(ON)
Installation default CEEDUMP(60,SYSOUT=*,FREE=END,
SPIN=UNALLOC)
PARMLIB(CEEPRM00) CHECK(ON)
PARMLIB(CEEPRM00) COUNTRY(GB)
PARMLIB(CEEPRM00) DEBUG
PARMLIB(CEEPRM00) DEPTHCONDLMT(0)
Installation default DYNDUMP(*USERID,NODYNAMIC,TDUMP)
Installation default ENVAR("")
PARMLIB(CEEPRM00) ERRCOUNT(0)
PARMLIB(CEEPRM00) ERRUNIT(6)
PARMLIB(CEEPRM00) FILEHIST
PARMLIB(CEEPRM00) FILETAG(NOAUTOCVT,NOAUTOTAG)
Default setting NOFLOW
PARMLIB(CEEPRM00) HEAP(4096,4080,ANYWHERE,KEEP,4096,
4080)
PARMLIB(CEEPRM00) HEAPCHK(OFF,1,0,0,0,1024,0,1024,0)
PARMLIB(CEEPRM00) HEAPPOOLS(ON,8,5,32,5,128,5,256,5,
1024,5,2048,5,0,10,0,5,0,5,0,5,0,5,
0,5)
PARMLIB(CEEPRM00) INFOMSGFILTER(OFF,,,,)
PARMLIB(CEEPRM00) INQPCOPN
PARMLIB(CEEPRM00) INTERRUPT(OFF)
PARMLIB(CEEPRM00) LIBSTACK(4096,4080,FREE)
PARMLIB(CEEPRM00) MSGFILE(SYSOUT,FBA,121,0,NOENQ)
PARMLIB(CEEPRM00) MSGQ(15)
PARMLIB(CEEPRM00) NATLANG(ENU)
Ignored NONONIPTSTACK(See THREADSTACK)
PARMLIB(CEEPRM00) OCSTATUS
Installation default PAGEFRAMESIZE(4K,4K,4K)
PARMLIB(CEEPRM00) NOPC
PARMLIB(CEEPRM00) PLITASKCOUNT(20)
PARMLIB(CEEPRM00) POSIX(OFF)
PARMLIB(CEEPRM00) PROFILE(OFF,"")
PARMLIB(CEEPRM00) PRTUNIT(6)
PARMLIB(CEEPRM00) PUNUNIT(7)
PARMLIB(CEEPRM00) RDRUNIT(5)
PARMLIB(CEEPRM00) RECPAD(OFF)
PARMLIB(CEEPRM00) RPTOPTS(OFF)
PARMLIB(CEEPRM00) RPTSTG(OFF)
PARMLIB(CEEPRM00) NORTEREUS
PARMLIB(CEEPRM00) NOSIMVRD
Region default STACK(4096,4080,ANYWHERE,KEEP,4096,
4080)
Region default STORAGE(00,NONE,00,0)
PARMLIB(CEEPRM00) TERMTHDACT(UADUMP,CESE,96)
PARMLIB(CEEPRM00) NOTEST(ALL,"*","PROMPT","INSPPREF")
PARMLIB(CEEPRM00) THREADHEAP(4096,4080,ANYWHERE,KEEP)
PARMLIB(CEEPRM00) THREADSTACK(OFF,4096,4080,ANYWHERE,
KEEP,4096,4080)
PARMLIB(CEEPRM00) TRACE(OFF,4096,NODUMP,LE=0)
PARMLIB(CEEPRM00) TRAP(ON,SPIE)
PARMLIB(CEEPRM00) UPSI(00000000)
PARMLIB(CEEPRM00) NOUSRHDLR(,)
PARMLIB(CEEPRM00) VCTRSAVE(OFF)
Installation default XPLINK(OFF)
PARMLIB(CEEPRM00) XUFLOW(AUTO)
Regards and thanks
Paul
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Robert Prins
Sent: Tuesday, February 24, 2015 12:06 PM
To: [email protected]
Subject: Re: Enterprise PL/1 performance
On 2015-02-24 10:49, Beesley, Paul wrote:
> Hello
>
> Our customer has been trialling Enterprise PL/1 4.4, with the
> intention of upgrading from their current compiler, PL/1 for MVS&VM.
> They have issues with performance, particularly with CICS programs,
> where the CPU time of a transaction is 3 times what it was with PL/1
> for MVS&VM. We have a PMR open with IBM, who suggested the NORENT
> option, which did reduce the CPU to just double the old value. IBM are
> suggesting experimenting with these options, below. Does anybody have
> any experience of these and which can have most impact?
>
> ARCH BIFPREC(31) DEFAULT(NONASGN) DEFAULT(CONNECTED) DEFAULT(REORDER)
> DEFAULT(NOOVERLAP) OPTIMIZE(2)/OPTIMIZE(3) REDUCE NORENT RULES(NOLAXCTL) . .
> .
You need to show us *all* compiler options, *and* all the LE settings. The,
IIRC, LE STORAGE() settings can have a huge impact.
As for generated code, on 16 February I filed this RFE:
https://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe&CR_ID=66462
Robert
--
Robert AH Prins
robert(a)prino(d)org
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
Atos, Atos Consulting, Worldline and Canopy The Open Cloud Company are trading
names used by the Atos group. The following trading entities are registered in
England and Wales: Atos IT Services UK Limited (registered number 01245534),
Atos Consulting Limited (registered number 04312380), Atos Worldline UK Limited
(registered number 08514184) and Canopy The Open Cloud Company Limited
(registration number 08011902). The registered office for each is at 4 Triton
Square, Regent’s Place, London, NW1 3HG.The VAT No. for each is: GB232327983.
This e-mail and the documents attached are confidential and intended solely for
the addressee, and may contain confidential or privileged information. If you
receive this e-mail in error, you are not authorised to copy, disclose, use or
retain it. Please notify the sender immediately and delete this email from your
systems. As emails may be intercepted, amended or lost, they are not secure.
Atos therefore can accept no liability for any errors or their content.
Although Atos endeavours to maintain a virus-free network, we do not warrant
that this transmission is virus-free and can accept no liability for any
damages resulting from any virus transmitted. The risks are deemed to be
accepted by everyone who communicates with Atos by email.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
