Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
passing data from JCL to PLI program

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

New User


Joined: 08 Dec 2011
Posts: 10
Location: India

PostPosted: Sun Jul 22, 2012 1:00 pm    Post subject: passing data from JCL to PLI program
Reply with quote

Hi,
I am trying to pass the value for more than variable though JCL.But I am getting problem while doing this.
My PL/I program-
MAIN:PROC OPTIONS(MAIN);
DCL A FLOAT DEC(5);
DCL B FIXED DEC(5);
GET LIST(A,B);
IF A <= 5 THEN
....

JCL-
//OZA058R JOB OZA,OZA,MSGLEVEL=(1,1),
// CLASS=1,MSGCLASS=X,NOTIFY=&SYSUID,REGION=6M
//STEP1 EXEC PGM=PLI13
//STEPLIB DD DSN=OZA058.DEV.LOAD,DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
4.8
4.8
/*
//

But after submitting the JCL Maxcc=0 is coming.But I am not able to see STEP1 in Spool.Spool is coming something like-
NP DDNAME StepName ProcStep DSID Owner C Dest
JESYSMSG 4 OZA058 X LOCAL
JESMSGLG JES2 2 OZA058 X LOCAL
JESJCL JES2 3 OZA058 X LOCAL

So I am not able to the output.I guess I am making some mistake while passing more than one value through JCL(may be some syntax error).
Note:I can pass 1 value through JCL without any problem.
Please help.
Back to top
View user's profile Send private message

Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1894
Location: UK

PostPosted: Sun Jul 22, 2012 1:59 pm    Post subject:
Reply with quote

Your program, what is shown, does not have any DISPLAY or PUT SKIPs in it so nothing would be expected to appear. And you are not passing your variable through JCL you are reading a temporary dataset created by the operating system when it reads the JCL at job submission time (not execution time). And learn to use files as soon as possible. I only use PUT for diagnostics and GET only to understand it's usage - never used GET in real life. If that is currently what you are being taught then read ahead and get to the proper stuff. And if you are just learning why not join the sister forum for 'Beginners and Students' instead of the expert's forum. You can easily find it via Google. And, finally, put code and data in 'code tags' so that it is readable and it preserves extra blanks.
Back to top
View user's profile Send private message
Dibyendu Mandal

New User


Joined: 08 Dec 2011
Posts: 10
Location: India

PostPosted: Sun Jul 22, 2012 3:30 pm    Post subject:
Reply with quote

I got the problem.
Thanks Nic for the quick reply.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1894
Location: UK

PostPosted: Sun Jul 22, 2012 5:34 pm    Post subject:
Reply with quote

I also see that you have DISP=OLD on your STEPLIB - this is a no-noas it prevents other people adding programs - not a problem for your own libraries but a good habit to get into is using good JCL.
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 How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us