|
View previous topic :: View next topic
|
| Author |
Message |
satish.ms10
Active User
Joined: 10 Aug 2009
Posts: 184
Location: India
|
|
|
|
Hi All,
I have coded a JCL to compile sample PL/I programs, Here is the jcl:
| Code: |
// SET GOPGM=DECFIXEX
// SET PGMPDSE=MYPDS.TESTP.PDS
// SET LOADPDS=MYPDS.COB.RUN
//*
//PLI EXEC PGM=IBMZPLI,ACCT=(STOR,8000),
// PARM=('',
// 'CHECK(NOCONFORMANCE,NSTG),+DD:OPT03',
// )
//STEPLIB DD DISP=SHR,DSN=HLQ.PLI.TEST.EXITS.LOAD
// DD DISP=SHR,DSN=HLQ.PLI.TEST.SIBMZCMP
//SYSLIB DD DSN=HLQ.GDDM.SAM,DISP=SHR
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSDA,DISP=(,PASS),
// SPACE=(1024,(200,50),,CONTIG,ROUND),DCB=BLKSIZE=1024
//OPT01 DD DISP=SHR,DSN=HLQ.PLI.TEST.COMPILER.OPTIONS(DBP00010)
//OPT02 DD DISP=SHR,DSN=HLQ.PLI.TEST.COMPILER.OPTIONS(DBP00020)
//OPT03 DD DISP=SHR,DSN=HLQ.PLI.TEST.COMPILER.OPTIONS(DBP00030)
//OPT04 DD DISP=SHR,DSN=HLQ.PLI.TEST.COMPILER.OPTIONS(DBP00040)
//OPT05 DD DISP=SHR,DSN=HLQ.PLI.TEST.COMPILER.OPTIONS(DBP00050)
//OPT06 DD DISP=SHR,DSN=HLQ.PLI.TEST.COMPILER.OPTIONS(DBP00060)
//OPT07 DD DISP=SHR,DSN=HLQ.PLI.TEST.COMPILER.OPTIONS(DBP00070)
//SYSUEXIT DD DISP=SHR,DSN=HLQ.PLI.TEST.COMPILER.OPTIONS(PLIMSGS)
//SYSPRINT DD SYSOUT=*
//SYSPLOG DD SYSOUT=*
//SYSIN DD DSN=&PGMPDSE(&GOPGM),DISP=SHR
//SYSLIN DD DSN=&&LOADSET,DISP=(,PASS),UNIT=VIO,
// SPACE=(TRK,(3,3)),DCB=(BLKSIZE=3200)
//**
//LKED EXEC PGM=IEWLB,
// PARM=('3,COMPAT=LKED,',
// 'NOXREF,MAP,LIST,REUS,RENT,NCAL')
//*LKED EXEC PGM=IEWL,PARM='XREF,LIST',COND=(9,LT,PLI),REGION=512K
//SYSLIB DD DSN=HLQ.DDB.PLIBASE,DISP=SHR
// DD DISP=SHR,DSN=SYS1.SIBMAM24
// DD DISP=SHR,DSN=HLQ.OLDLE.TEST.SCEELKED
// DD DISP=SHR,DSN=SYS1.SCEELKED
// DD DISP=SHR,DSN=HLQ.OLDLE.TEST.SCEELKED
// DD DSN=SYS1.LINKLIB,DISP=SHR
// DD DSN=HLQ.API.BATCH.TEST.LOADLIB,DISP=SHR
// DD DSN=HLQ.API.BATCH.SYST.LOADLIB,DISP=SHR
// DD DSN=HLQ.API.BATCH.PRAF.LOADLIB,DISP=SHR
// DD DSN=HLQ.API.BATCH.PROD.LOADLIB,DISP=SHR
// DD DSN=SYHLQ.PPLINK,DISP=SHR
// DD DSN=SYS1.SCEESPC,DISP=SHR
// DD DISP=SHR,DSN=SYS1.CSSLIB
// DD DISP=SHR,DSN=SYS2.LIBRA.LINKLIB
// DD DISP=SHR,DSN=SYS1.SEZATCP
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE)
//* DD DDNAME=SYSIN
//SYSLMOD DD DSN=&LOADPDS(&GOPGM),DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(1024,(50,20,1))
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(1024,(200,20)),
// DCB=BLKSIZE=1024
//******* END OF JOB ******/
|
When execute this job I am getting following errors in the Link Edit step:
| Code: |
IEW2278I B352 INVOCATION PARAMETERS - COMPAT=LKED,,NOXREF,MAP,LIST,REUS,RENT,NCAL
IEW2230S 0414 MODULE HAS NO TEXT.
IEW2677S 5130 A VALID ENTRY POINT COULD NOT BE DETERMINED.
IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 12.
----------------------
MESSAGE SUMMARY REPORT
----------------------
TERMINAL MESSAGES (SEVERITY = 16)
NONE
SEVERE MESSAGES (SEVERITY = 12)
2230 2677
ERROR MESSAGES (SEVERITY = 08)
NONE
WARNING MESSAGES (SEVERITY = 04)
|
I could not able to find out where the problem is. Can anyone help me out in this regard.
Thanks in advance, |
|
| Back to top |
|
 |
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
| Code: |
IEW2230S 0414 MODULE HAS NO TEXT.
IEW2677S 5130 A VALID ENTRY POINT COULD NOT BE DETERMINED. |
Module has no text means the compile did not generate an object deck -- hence it failed. The no valid entry point message most likely is due to not having any object deck; fix the compile error(s) and both messages should go away. |
|
| Back to top |
|
|
satish.ms10
Active User
Joined: 10 Aug 2009
Posts: 184
Location: India
|
|
|
|
Hi Robert,
Compilation step is successful. I am not able to identify the problem(s) at compilation.
Can you guide me.
Thanks! |
|
| Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
|
|
|
|
| What compile options did you use? |
|
| Back to top |
|
|
satish.ms10
Active User
Joined: 10 Aug 2009
Posts: 184
Location: India
|
|
|
|
Hi Nic,
OPT03 DD contains following options:
| Code: |
PREFIX(STRINGRANGE,SUBSCRIPTRANGE,NOSIZE)
|
Do let me know if you need more info.
Thanks alot. |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
Nothing you have posted indicates any compile success. On the other hand, what you have posted indicates that the compile did not generate an object deck -- which can be called one way to determine compile failure. The compile may or may not have worked (we have no data about that) but the compile did not generate an object deck for some reason.
You did not post the PL/I options used in the compile (which would help us determine what happened), you did not post any of the compile output (which would help us), you did not post the job output showing the compile step return code (which would help us).
If you cannot post more actual output, then we're not going to be able to help you. |
|
| Back to top |
|
|
satish.ms10
Active User
Joined: 10 Aug 2009
Posts: 184
Location: India
|
|
|
|
Hi All,
I am sorry, Here is the compile step info:
I could not able to decide which is important message(s), from compiler step, for your verification. Due to that I am giving complete info.
| Code: |
5655-H31 IBM(R) Enterprise PL/I for z/OS V3.R7.M0 (Built:20091015)
Options Specified
Install:
AG(DECIMAL),ARCH(7),A(F),BIFPREC(15),BLANK('05'x),NOBLKOFF,CEESTART(FIRST),CHE
CK(NSTG
NOCONFORMANCE),CMPAT(V1),CP(00277),COMMON,NOCOMPACT,NC(S),NOCOPYRIGHT,CSE,CSEC
TCUT(4),CURR(¤),NODBCS,DD(SYSPRINT,SYSIN,SYSLIB,SYSPUNCH,SYSLIN,SYSADATA,SYSXM
LSD,SYSDEBUG),DEC(FOFLONASGN,NOFORCEDSIGN),DFT(ALIGNED,ASSIGNABLE,BIN1ARG,BYAD
DR,NONCONNECTED,DESCLOCATOR,DESCRIPTOR,DUMMY(ALIGNED),EBCDIC,EVENDEC,E(HEXADEC
),HEXADEC,IBM,NOINITFILL,NOINLINE,LINKAGE(SYSTEM),NATIVE,NATIVEADDR,NULL370,RE
ORDER,ORDINAL(MIN),OVERLAP,NONRECURSIVE,NORETCODE,RETURNS(BYADDR),SHORT(HEXADE
C),UPPERINC),DISPLAY(WTO),NODLLINIT,EXTRN(FULL),F(I),FLOAT(NOAFP,NODFP),FLOATI
NMATH(ASIS),NGN,NGR,INCAFTER(PROCESS("")),NOINCDIR,NOINCPDS,INITAUTO(SHORT),NO
INITBASED,NOINITCTL,NOINITSTATIC,NIS,NINT,LANGLVL(SAA2,OS),LIMITS(EXTNAME(7),F
IXEDBIN(31,63),FIXEDDEC(15,31),NAME(100)),LC(56),NOLINEDIR,NOLIST,M,MAP,MI(' '
),MAR(2,72,1),MAXM(1048576),MAXMSG(W
1000),MAXNEST(BLOCK(30),DO(50),IF(50)),MAXSTMT(4096),MAXTEMP(50000),NMD,NONAME
,NATLANG(ENU),NEST,NOT('^'),NUM,OBJ,OF,OPT(2),OP,OR('!'),PP(MACRO('RESCAN(UPPE
R)'
)),NOPPCICS,NOPPINCLUDE,NOPPMACRO,NOPPSQL,NOPPTRACE,PRECTYPE(ANS),PREFIX(CONVE
RSION,FIXEDOVERFLOW,INVALIDOP,OVERFLOW,NOSIZE,NOSTRINGRANGE,NOSTRINGSIZE,NOSUB
SCRIPTRANGE,UNDERFLOW,ZERODIVIDE),NPRO(S),PROCESS(DELETE),QUOTE('"'),REDUCE,NO
RENT,NORESEXP,RESPECT(),RULES(BYNAME,NODECSIZE,ELSEIF,EVENDEC,GOTO,IBM,NOLAXBI
F,NOLAXCTL,LAXDCL,LAXIF,NOLAXINOUT,LAXLINK,LAXMARGINS,LAXPUNC,LAXQUAL,LAXSEMI,
LAXSTG,NOLAXSTRZ,MULTICLOSE,UNREF),NOSCHEDULER,NSEM(S),NOSERV,S,SP(512),STATIC
(FULL),NOSTDSYS,NOSTMT,STG,STRINGOFGRAPHIC(GRAPHIC),NSYN(S),SYSPARM(''),SYSTEM
(MVS),NTERM,NOTEST,TUNE(7),USAGE(ROUND(IBM),UNSPEC(IBM)),WCHAR(BIGENDIAN),WIND
OW(1950),NOWRITABLE(FWS),XINFO(NODEF,NOMSG,NOSYM,NOSYN,NOXMI,NOXML),XML(CASE(U
PPER)),X(F))
Command: ,CHECK(NOCONFORMANCE,NSTG),+DD:OPT03,
File: DD:OPT03
PREFIX(STRINGRANGE,SUBSCRIPTRANGE,NOSIZE)
Install: BACKREG(5),EXIT,RULES(NOLAXDEF)
5655-H31 IBM(R) Enterprise PL/I for z/OS DECFIXEX: PROCEDURE OPTIONS (MAIN);
Options Used
AGGREGATE(DECIMAL)
ARCH(7)
ATTRIBUTES(FULL)
BACKREG(5)
BIFPREC(15)
BLANK('05'x)
NOBLKOFF
CEESTART(FIRST)
CHECK( NOCONFORMANCE NOSTORAGE )
CMPAT(V1)
CODEPAGE(00277)
COMMON
NOCOMPACT
NOCOMPILE(S)
NOCOPYRIGHT
CSECT
CSECTCUT(4)
CURRENCY('¤')
NODBCS
DD('SYSPRINT','SYSIN','SYSLIB','SYSPUNCH','SYSLIN','SYSADATA','SYSXMLSD','SYSDEBUG')
DECIMAL( FOFLONASGN NOFORCEDSIGN )
DEFAULT(IBM ASSIGNABLE NOINITFILL NONCONNECTED UPPERINC
DESCRIPTOR DESCLOCATOR DUMMY(ALIGNED) ORDINAL(MIN)
BYADDR RETURNS(BYADDR) LINKAGE(SYSTEM) NORETCODE
NOINLINE REORDER OVERLAP NONRECURSIVE ALIGNED
NULL370 BIN1ARG EVENDEC SHORT(HEXADEC)
EBCDIC HEXADEC NATIVE NATIVEADDR E(HEXADEC))
DISPLAY( WTO )
NODLLINIT
+ EXIT('' 'IBMUEXIT')
EXTRN(FULL)
FLAG(I)
FLOAT( NOAFP NODFP )
FLOATINMATH(ASIS)
NOGONUMBER
NOGRAPHIC
INCAFTER(PROCESS(""))
NOINCDIR
NOINCPDS
INITAUTO
NOINITBASED
NOINITCTL
NOINITSTATIC
NOINSOURCE
NOINTERRUPT
LANGLVL(SAA2 OS)
LIMITS( EXTNAME(7) FIXEDBIN(31,63) FIXEDDEC(15,31) NAME(100) )
LINECOUNT(56)
NOLINEDIR
NOLIST
MACRO
5655-H31 IBM(R) Enterprise PL/I for z/OS DECFIXEX: PROCEDURE OPTIONS (MAIN);
MAP
MARGINI(' ')
MARGINS(2,72,1)
MAXMEM(1048576)
MAXMSG(W 1000)
MAXNEST( BLOCK(30) DO(50) IF(50) )
MAXSTMT(4096)
MAXTEMP(50000)
NOMDECK
NONAME
NAMES('ØÆÅ' 'ØÆÅ')
NATLANG(ENU)
NEST
NOT('^')
NUMBER
OBJECT
OFFSET
OPTIMIZE(2)
OPTIONS(DOC)
OR('!')
PP( MACRO )
NOPPCICS
NOPPMACRO
NOPPINCLUDE
NOPPSQL
NOPPTRACE
PRECTYPE(ANS)
+ PREFIX(CONVERSION FIXEDOVERFLOW INVALIDOP OVERFLOW
NOSIZE STRINGRANGE NOSTRINGSIZE SUBSCRIPTRANGE
UNDERFLOW ZERODIVIDE)
NOPROCEED(S)
PROCESS(DELETE)
QUOTE('"')
REDUCE
NORENT
NORESEXP
RESPECT()
RULES(IBM BYNAME NODECSIZE EVENDEC ELSEIF GOTO NOLAXBIF NOLAXCTL
LAXDCL NOLAXDEF LAXIF NOLAXINOUT LAXLINK LAXMARGINS
LAXPUNC LAXQUAL LAXSEMI LAXSTG NOLAXSTRZ MULTICLOSE UNREF)
NOSCHEDULER
NOSEMANTIC(S)
NOSERVICE
SOURCE
SPILL(512)
STATIC(FULL)
NOSTDSYS
NOSTMT
STORAGE
STRINGOFGRAPHIC(GRAPHIC)
NOSYNTAX(S)
SYSPARM('')
SYSTEM(MVS)
5655-H31 IBM(R) Enterprise PL/I for z/OS DECFIXEX: PROCEDURE OPTIONS (MAI
NOTERMINAL
NOTEST
TUNE(7)
USAGE( ROUND(IBM) UNSPEC(IBM) )
WIDECHAR(BIGENDIAN)
WINDOW(1950)
NOWRITABLE(FWS)
XINFO(NODEF NOMSG NOSYM NOSYN NOXMI NOXML)
XML( CASE(UPPER) )
XREF(FULL)
5655-H31 IBM(R) Enterprise PL/I for z/OS DECFIXEX: PROCEDURE OPTIONS (MAIN);
Compiler Source
Line.File LV NT
|
Thank you very much. |
|
| Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009
Posts: 1322
Location: Vilnius, Lithuania
|
|
|
|
This is again useless, give us the compiler messages, i.e. the section that starts with:
| Code: |
15655-H31 IBM(R) Enterprise PL/I for z/OS /* Lorem ipsum...
- Compiler Messages
0 Message Statement Message Description |
|
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA
|
|
|
|
| It's not totally useless -- at least it indicates that an object deck will be produced if there are no compile errors. As far as resolving the coimpile issue, of course, there's been nothing posted so far that even begins to explain why the object code isn't being produced. |
|
| Back to top |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
|
|
|
|
| We might need the binder control cards too. I see the member name of the program source is 8 bytes - not invalid in itself but if the entry point is 8 bytes it will have been truncated to 7 bytes by the compiler. This may have repercussions. |
|
| Back to top |
|
|
satish.ms10
Active User
Joined: 10 Aug 2009
Posts: 184
Location: India
|
|
|
|
Hi,
I am very sorry, here is the compiler messages for your reference.
| Code: |
5655-H31 IBM(R) Enterprise PL/I for z/OS DECFIXEX: PROCEDURE OPTIONS (MAI
Compiler Messages
Message Line.File Message Description
IBM1130I W 1.0 The external name DECFIXEX is too long. It will be
shortened to DECFXEX.
IBM1043I W 18.0 SYSPRINT is contextually declared as FILE.
File Reference Table
File Included From Name
0 BA0320.TESTP.PDS(DECFIXEX)
Component Return Code Messages (Total/Suppressed) Time
MACRO 0 0 / 0 0 secs
Compiler 4 2 / 0 1 secs
End of compilation of DECFIXEX
********************************** End of Data ********************************
|
Please let me know if you need more info.
Thank you very much for your support. |
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1216
Location: Dublin, Ireland
|
|
|
|
| Quote: |
| Code: |
//**
//LKED EXEC PGM=IEWLB,
// PARM=('3,COMPAT=LKED,',
// 'NOXREF,MAP,LIST,REUS,RENT,NCAL')
//*LKED EXEC PGM=IEWL,PARM='XREF,LIST',COND=(9,LT,PLI),REGION=512K
//SYSLIB DD DSN=HLQ.DDB.PLIBASE,DISP=SHR
// DD DISP=SHR,DSN=SYS1.SIBMAM24
// DD DISP=SHR,DSN=HLQ.OLDLE.TEST.SCEELKED
// DD DISP=SHR,DSN=SYS1.SCEELKED
// DD DISP=SHR,DSN=HLQ.OLDLE.TEST.SCEELKED
// DD DSN=SYS1.LINKLIB,DISP=SHR
// DD DSN=HLQ.API.BATCH.TEST.LOADLIB,DISP=SHR
// DD DSN=HLQ.API.BATCH.SYST.LOADLIB,DISP=SHR
// DD DSN=HLQ.API.BATCH.PRAF.LOADLIB,DISP=SHR
// DD DSN=HLQ.API.BATCH.PROD.LOADLIB,DISP=SHR
// DD DSN=SYHLQ.PPLINK,DISP=SHR
// DD DSN=SYS1.SCEESPC,DISP=SHR
// DD DISP=SHR,DSN=SYS1.CSSLIB
// DD DISP=SHR,DSN=SYS2.LIBRA.LINKLIB
// DD DISP=SHR,DSN=SYS1.SEZATCP |
|
You have commented-out the EXEC PGM=IEWL of the link-edit step and replaced it with EXEC PGM=IEWLB ? I'm not familiar with IEWLB and your post seems to be the only relevant hit on google. What would happen if you reverted to PGM=IEWL?
I also see you have HLQ.DDB.PLIBASE in LKED.SYSLIB. Is this from an older version of PL/1 and, if so, should it be there at all??
Garry. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10899
Location: italy
|
|
|
|
speak to Your support!
how are we supposed to know about You system setup and customizations ?
I just checked and PGM IEWLB is not quoted anywhere in the IBM manuals
also for a <sample> program the procedure contains too many useless datasets
start with a clone of the basic PL/I procedures and expand them slowly!
while we are <glad> to help debug basic procedures, (somehow we can test them )
we cannot do it for site specific setup wher Your support is the most apt to help! |
|
| Back to top |
|
|
satish.ms10
Active User
Joined: 10 Aug 2009
Posts: 184
Location: India
|
|
|
|
Hi All,
Thank you very much for all your support.
I have taken my site specific compilte jcl and customised it by eliminating not necessary steps. My job is working fine.
Once again thank you very much. |
|
| Back to top |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
