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
 

 

Unable to pass the value through JCL in a IMS program

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
akashs

New User


Joined: 24 Nov 2005
Posts: 49
Location: chennai

PostPosted: Fri Nov 04, 2011 9:46 pm    Post subject: Unable to pass the value through JCL in a IMS program
Reply with quote

Hi,

i have the below PROC(MEBHV10) step,

//PS0020 EXEC PGM=DFSRRC00,PARM='DLI,HEOPAGM,HEOPAGM,&FLAG'

and iam passing the value to this symbolic parameter FLAG from the below JCL step,

//JS0010 EXEC PROC=MEBHV10,FLAG=T

In the linkage section of the program ,
I have declared as below,

Linkage section
01 PARM-EXT.
05 PARM-LEN PIC S9(4) COMP.
05 PARM-TEXT PIC X(1).

iam getting the error U0642 while executing the RUN JCL.

Please help me out in this regard.

Thanks,
akash
Back to top
View user's profile Send private message

Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Fri Nov 04, 2011 10:28 pm    Post subject: Reply to: Unable to pass the value through JCL in a IMS prog
Reply with quote

Are you specifying "USING PARM-EXT" in the PROCEDURE DIVISION?

The maximum parm-jcl length is 100, so instead of restricting yourself by defining it as 1-byte, make it 100 and address the parm-data using reference-modification and the parm-length halfword.

But, the program needs to check for the presence of a parm, by checking the parm-length for greater than zero.

Mr. Bill
Back to top
View user's profile Send private message
Ronald Burr

Active User


Joined: 22 Oct 2009
Posts: 293
Location: U.S.A.

PostPosted: Fri Nov 04, 2011 10:34 pm    Post subject:
Reply with quote

You can't override an individual element within a PARM that way.
You could, on the other hand, override the entire PARM - to wit:

//JS0010 EXEC PROC=MEBHV10,PARM='DLI,HEOPAGM,HEOPAGM,T'

Alternatively, the following would also work:

// SET FLAG=T
//JS0010 EXEC PROC=MEBHV10
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 654
Location: Whitby, ON, Canada

PostPosted: Fri Nov 04, 2011 11:06 pm    Post subject:
Reply with quote

DFSRRC00 has very specific parameter requirements. Search the forum for the keyword APARM.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Sat Nov 05, 2011 2:29 pm    Post subject:
Reply with quote

IMS is a differnt animal than your only COBOL batch program. One starts IMS (DFSRRC00) and not the program executing the logic. DFSRRC00 invokes the 'logic program' like it were a submodule but without any knowledge about parameters to be passed to thad module. The solution depends on the type of program; with DC create a startup screen where you may enter the parameters which are sent in a message and can be intepreted by the 'startup' transaction.

But with DB, to pass 'user parameters', you may use a database, sysin or any OS-file containing the needed information for your program.
Back to top
View user's profile Send private message
akashs

New User


Joined: 24 Nov 2005
Posts: 49
Location: chennai

PostPosted: Sun Nov 06, 2011 1:06 am    Post subject: Unable to pass the value through JCL in a IMS program
Reply with quote

Tried all above solution what you guys gave..But still i got the abend code -U0643. Can u pls help me out

Thanks
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Sun Nov 06, 2011 1:24 am    Post subject: Reply to: Unable to pass the value through JCL in a IMS prog
Reply with quote

I Googled "DFSRRC00" and got 3,000 hits.

You'd be astonished what you can accomplish via independent research.... icon_rolleyes.gif

Mr. Bill
Back to top
View user's profile Send private message
don.leahy

Active Member


Joined: 06 Jul 2010
Posts: 654
Location: Whitby, ON, Canada

PostPosted: Sun Nov 06, 2011 2:20 am    Post subject: Re: Unable to pass the value through JCL in a IMS program
Reply with quote

akashs wrote:
Tried all above solution what you guys gave..But still i got the abend code -U0643. Can u pls help me out

Thanks
Did you search the forum for "APARM"? This question has been answered many times.
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm
No new posts pre-compiler for program in an HFS Pedro DB2 0 Fri Jun 23, 2017 11:13 pm
No new posts Compiling program in endeavor for tra... RALAKKAL Compuware & Other Tools 4 Mon Jun 05, 2017 8:27 pm
No new posts COBOL DB2 program - zIIP eligible vasanthz COBOL Programming 7 Wed May 31, 2017 5:12 am
No new posts DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm


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