Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

PL/I Program Compilation, Problem in Link Edit Step

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
satish.ms10

Active User


Joined: 10 Aug 2009
Posts: 158
Location: India

PostPosted: Thu Apr 14, 2011 6:31 pm    Post subject: PL/I Program Compilation, Problem in Link Edit Step
Reply with quote

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
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7905
Location: Bellevue, IA

PostPosted: Thu Apr 14, 2011 6:39 pm    Post subject:
Reply with quote

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
View user's profile Send private message
satish.ms10

Active User


Joined: 10 Aug 2009
Posts: 158
Location: India

PostPosted: Thu Apr 14, 2011 6:45 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1712
Location: UK

PostPosted: Thu Apr 14, 2011 6:52 pm    Post subject:
Reply with quote

What compile options did you use?
Back to top
View user's profile Send private message
satish.ms10

Active User


Joined: 10 Aug 2009
Posts: 158
Location: India

PostPosted: Thu Apr 14, 2011 6:56 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7905
Location: Bellevue, IA

PostPosted: Thu Apr 14, 2011 6:57 pm    Post subject:
Reply with quote

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
View user's profile Send private message
satish.ms10

Active User


Joined: 10 Aug 2009
Posts: 158
Location: India

PostPosted: Thu Apr 14, 2011 7:06 pm    Post subject:
Reply with quote

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
View user's profile Send private message
prino

Active Member


Joined: 07 Feb 2009
Posts: 982
Location: Oostende, Belgium

PostPosted: Thu Apr 14, 2011 8:48 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7905
Location: Bellevue, IA

PostPosted: Thu Apr 14, 2011 8:56 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1712
Location: UK

PostPosted: Thu Apr 14, 2011 11:57 pm    Post subject:
Reply with quote

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
View user's profile Send private message
satish.ms10

Active User


Joined: 10 Aug 2009
Posts: 158
Location: India

PostPosted: Fri Apr 15, 2011 9:50 am    Post subject:
Reply with quote

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
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 988
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Fri Apr 15, 2011 12:01 pm    Post subject:
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Fri Apr 15, 2011 12:14 pm    Post subject: Reply to: PL/I Program Compilation, Problem in Link Edit Ste
Reply with quote

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
View user's profile Send private message
satish.ms10

Active User


Joined: 10 Aug 2009
Posts: 158
Location: India

PostPosted: Fri Apr 15, 2011 3:16 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts Problem in Running Query via JCL vickey_dw DB2 3 Tue Oct 18, 2016 11:11 pm
No new posts A sample of exit program for exit XMN... lind sh CICS 2 Mon Oct 03, 2016 5:07 pm
No new posts Need points to tune IMS Checkpoint Pr... satish.ms10 IMS DB/DC 2 Fri Sep 30, 2016 4:12 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us