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
 

 

Usage of PARM in PL/1 - IMS DB program

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

New User


Joined: 01 Jun 2007
Posts: 62
Location: chennai

PostPosted: Thu May 13, 2010 4:42 pm    Post subject: Usage of PARM in PL/1 - IMS DB program
Reply with quote

If I am using a PL/1 - IMS DB program, and if my PL/1 program strictly needs one value through the PARM, which it will use it somewhere in the program.

Now, Please let me know where do I enter the PARM parameters for DFSRRC00?
Back to top
View user's profile Send private message

donateeye
Warnings : 2

New User


Joined: 01 Jun 2007
Posts: 62
Location: chennai

PostPosted: Fri May 14, 2010 2:27 pm    Post subject:
Reply with quote

Heloo... Could anyone help me on this... please...
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2433
Location: Netherlands, Amstelveen

PostPosted: Fri May 14, 2010 3:02 pm    Post subject:
Reply with quote

DFSRRC00 is a stand-alone program. Why would one call that from
a PL/1 program. Or do you have a PL/1 program (DLI,BMP) to be
executed by DFSRRC00?

So you could use something like :

//STEP EXEC PGM=DFSRRC00,PARM='DLI,progname,psb-name'
Back to top
View user's profile Send private message
donateeye
Warnings : 2

New User


Joined: 01 Jun 2007
Posts: 62
Location: chennai

PostPosted: Fri May 14, 2010 5:42 pm    Post subject:
Reply with quote

Yes, I am running a PL/1 - IMS DB program, which includes DL/I calls. Your EXEC statement is perfect when I am executing my PL/1-IMS DB program.
But my question is that, in this case, if I also have the need to pass some values through PARM for my program (just any value, where we use get that in the PL/1 procedure statement and then declare it as char varying), In this case, how would I manage to code my PARM parameter in the JCL?
Back to top
View user's profile Send private message
dick scherrer

Site Director


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

PostPosted: Fri May 14, 2010 8:50 pm    Post subject:
Reply with quote

Hello,

Suggest you consider using SYSIN for the data to be provided to the program. As this is new, it should not cause any problem to change the source of the value.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2433
Location: Netherlands, Amstelveen

PostPosted: Fri May 14, 2010 10:30 pm    Post subject:
Reply with quote

Yes, i agree with Mr. Scherrer.

I (we, my IT pals) used something like :

Code:

//INPIS200 DD  *                                                        00470001
/DIS TRAN ALL.C03                                                       00480001
ID(T02,004,003)                                                         00490013
TRAN(T02,008,008)                                                       00500001
CLASS(T02,017,003)                                                      00510004
PSB(T07,021,008)                                                        00520001
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2433
Location: Netherlands, Amstelveen

PostPosted: Sat May 15, 2010 12:59 pm    Post subject:
Reply with quote

Maybe the following is usefull for you :

Code:

//G      EXEC PGM=DFSRRC00,REGION=&RGN,
//            PARM=(DLI,&MBR,&PSB,&BUF,
//            &SPIE&TEST&EXCPVR&RST,&PRLD,
//            &SRCH,&CKPTID,&MON,&LOGA,&FMTO,
//            &IMSID,&SWAP,&DBRC,&IRLM,&IRLMNM,
//            &BKO,&IOB,&SSM,'&APARM',
//            &LOCKMAX,&GSGNAME,&TMINAME,
//            &RRS,&IMSPLEX,&RGSUF,
//            '&PARM1','&PARM2')


APARM=
Specifies the 1 to 32-character parameter that is passed to the application program as part of the information returned in the INQY call with the ENVIRON subfunction. The parameter must be enclosed in single-quotes (') if special characters are used. Embedded commas (,) are not allowed.
Back to top
View user's profile Send private message
donateeye
Warnings : 2

New User


Joined: 01 Jun 2007
Posts: 62
Location: chennai

PostPosted: Mon May 17, 2010 10:20 am    Post subject:
Reply with quote

Thanks a lot
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 T-Pipe queue counts in a COBOL Pr... Siva NKK Kothamasu IMS DB/DC 0 Tue May 09, 2017 6:31 pm
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts Need inputs on Space requirement and... ashek15 IMS DB/DC 0 Sat Apr 01, 2017 8:26 am
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm
No new posts Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm


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