MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

How to pass user-defined params to IMS DLI program

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> IMS
View previous topic :: View next topic  
Author Message
sree_learning
Beginner


Joined: 27 Nov 2005
Posts: 4
Topics: 4
Location: Chennai

PostPosted: Tue Dec 06, 2005 11:51 pm    Post subject: How to pass user-defined params to IMS DLI program Reply with quote

Hi,

I want to know if there is a way to pass user-defined parameters (received through linkage section) to IMS DLI program.

That is, for a normal COBOL program we pass such parameters through JCL itself and receive in Linkage Section. And for Cobol DB2 programs we can pass this through the DB2 run card. How to do a similar thing for IMS DLI pgm? This is how I run my pgm..

//CH065B10 EXEC PGM=DFSRRC00,
// PARM='DLI,CH532010,CH532010,,,,,,,,,,,N'

I know that we have to pass the PSB and program name in the PARM value in the JCL.

Thanks
_________________
- Sree
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12394
Topics: 75
Location: San Jose

PostPosted: Wed Dec 07, 2005 6:10 am    Post subject: Reply with quote

sree_learning,

Please search before posting. check this link


http://www.mvsforums.com/helpboards/viewtopic.php?p=2143#2143

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
hchinnam
Beginner


Joined: 04 Feb 2005
Posts: 31
Topics: 10

PostPosted: Wed Sep 13, 2006 7:00 am    Post subject: Reply with quote

This solution works in any case.

But one small clarification.

I have PL1 program reading IMS & DB2. If i have to pass a parm through JCL how do i do it.

(for simple batch & Batch with DB2 we can do it by parm parameter in JCL).

But in case of BMP????
Back to top
View user's profile Send private message
Bithead
Advanced


Joined: 03 Jan 2003
Posts: 550
Topics: 23
Location: Michigan, USA

PostPosted: Wed Sep 13, 2006 9:22 am    Post subject: Reply with quote

The easiest way is to define an input file in the program and code the file in your JCL as instream data.
Back to top
View user's profile Send private message
shekar123
Advanced


Joined: 22 Jul 2005
Posts: 528
Topics: 90
Location: Bangalore India

PostPosted: Wed Sep 13, 2006 10:15 am    Post subject: Reply with quote

hchinnam,

Try this JCL code:
Code:

//STEP010 EXEC PGM=DFSRRC00,REGION=1024K,                             
//             PARM=(BMP,CH532010,CH532010,,,,,,,,,,,N)     
//SYSIN    DD  DSN=XXXX.UNIT.PS,DISP=SHR                 
//

Program code:
Code:

DCL SYSIN FILE RECORD INPUT;                                           
                                                                       
DCL INPARMS                  CHAR(80);                                 
DCL 1 PARMS                  BASED(ADDR(INPARMS)),                     
       2 PARM_VAR            CHAR(02),                                 
       2 PARM_FILLER         CHAR(78);                                 

READ FILE(SYSIN) INTO (INPARMS);   

_________________
Shekar
Grow Technically
Back to top
View user's profile Send private message
hchinnam
Beginner


Joined: 04 Feb 2005
Posts: 31
Topics: 10

PostPosted: Wed Sep 13, 2006 1:15 pm    Post subject: Reply with quote

Ya I agree with you. this could be one solution.

But i just want to know simplest solution (if exist).

for example i have DB2 pgm I can pass Parm using a file or i can use method shown below.

//SYSTSIN DD *
DSN SYSTEM(PDB2)
RUN PROGRAM (KDGHNDC) PLAN (KDGHNDC) -
LIBRARY('KKB.KKBLIB') -
PARMS('/KDGUNLD')
END
//*

I will get KDGUNLD in pgm and i can use it.

Is there any option similer to this for a BMP.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> IMS All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group