IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Getting max cc=16 while running the pli program


IBM Mainframe Forums -> PL/I & Assembler
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
laxmi16

New User


Joined: 02 Jul 2012
Posts: 3
Location: india

PostPosted: Tue Jul 03, 2012 11:39 am
Reply with quote

I am getting started with PLI. Tell the steps involved in running the sub programs. Getting maxcc=16 while running the jcl;
Having the both the main and sub programs in one PDS and Doing the compilation and link separately.
I am compiling the sub program first. The below one created the member CORRECTLY.

Code:
//COMPILE   EXEC  PROC=IEL1C                         
//PLI.SYSIN DD  *                                     
   SUBADD1: PROCEDURE (A,B,C);                         
      DCL (A,B) FIXED DECIMAL(7,2);                   
      DCL C FIXED DECIMAL(7,2);                       
     C=A1+A2;                                         
   END SUBADD1;                                       
/*                                                     
//PLI.SYSLIN DD DSN=USER.PLI.OBJ(SUBCOM),DISP=SHR   
//*

Then tried to link the sub program but getting maxcc=16. jcl is below given .The error is

Code:
5688-235 IBM PL/I for MVS & VM          Ver 1 Rel 1 Mod 1 with MLE             
OPTIONS SPECIFIED                                                               
,;                                                                             
IEL0002I  U       END-OF-FILE ENCOUNTERED ON INPUT FILE DURING COMPILER INITIALIZATIO
N

link Jcl:
Code:
//LINK      EXEC  PROC=IEL1CL                         
 //LKED.SYSLIN DD DSN=USER.PLI.OBJ(SUBCOM),DISP=SHR 
 //LKED.SYSLIB DD DUMMY                               
 //LKED.SYSLMOD DD DSN=USER.PLI.LOADLIB(SUBCOM),     
 //            DISP=SHR                               
 //SYSUDUMP DD DUMMY                                   
 //SYSPRINT DD SYSOUT=*                               
 //SYSUT1   DD DSN=&&SYSUT1,DCB=BUFNO=1,UNIT=DISK,     
 //            SPACE=(1024,(120,120),,,ROUND)                                                             


Run jcl:
Code:
//MYSTEP    EXEC  PROC=IEL1CLG                             
//PLI.SYSIN  DD  DSN=NM026T.PLI.SOURCE(MAINADD),DISP=SHR   
//LKED.SYSLIB   DD   DSN=NM026T.PLI.LOADLIB(SUBCOM),DISP=SHR   
//GO.SYSIN  DD  *                                           
  A2=1.23,A1=3.45;                                         
/*
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Tue Jul 03, 2012 11:49 am
Reply with quote

You have various problems here:
1) you should post code and data using the code tags to preserve alignment
2) your program code cannot start in CC1 unless you override the margins (but this may be due to point 1)
3) you say that both modules are in a PDS but the called module you show is in-stream and not in a PDS
4) Why declare C separately from A and B?
5) You declare A and B but you try and add A1 and A2
6) You say that SUBADD1 compiles ok but the link fails. I'd be surprised if the link step attempts to run at all as the compile step has issued an unrecoverable error message.
7) You gave a title that infers the program is running when, in actual fact, you have not even got it to compile
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Tue Jul 03, 2012 6:52 pm
Reply with quote

Hello and welcome to the forum,

One of the most important considerations using the forum is to use the proper terminology and to be clear.

Someone has kindly "Code'd" your original post. You need to do this with future posts as it preserves alignment and improves readability. We have a Preview function so you can see your post as it will appear to the forum. Once you have the post looking the way you want, Submit.

Suggest you look for another program/sub-program that are working on your system and see what is different between your compile/link and one that works.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> PL/I & Assembler

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts Running REXX through JOB CLIST & REXX 13
No new posts DB2 Event passed to the Application P... DB2 1
No new posts How to pass the PARM value to my targ... COBOL Programming 8
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
Search our Forums:

Back to Top