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:IBM-
[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
