View previous topic :: View next topic
|
Author |
Message |
ektaag
New User
Joined: 21 Mar 2007 Posts: 14 Location: bangalore
|
|
|
|
Hi,
I am trying to pass two parameter from a proc to a IMS program and i am getting abend U0662.
here is the proc :
Code: |
//procn1me PROC
//***********************************************
//* CREATE FTP CARDS
//***********************************************
//OR010040 EXEC IMSTBMP,
// COND=(0,NE),
// MBR=mbrxx,
// PSB=psbxx,
// PARM='&PARM1,&JOBNAME'
//STEPLIB DD DSN=steplibxx, |
Here is the proceduer division
Code: |
PROCEDURE DIVISION.
ENTRY 'DLITCBL' USING IO-PCB
ALl psb mask
PARM-FIELD. |
I have declared this in linkage section .
PLease help!! |
|
Back to top |
|
|
Douglas Wilder
Active User
Joined: 28 Nov 2006 Posts: 305 Location: Deerfield IL
|
|
|
|
Search the IMS DB/DC forum for "parm" and you will see how I got it to work. It is not as easy as I had hoped it would be. |
|
Back to top |
|
|
ektaag
New User
Joined: 21 Mar 2007 Posts: 14 Location: bangalore
|
|
|
|
How it is possible when DFSRC00 has no ability to pass additional information to programs called by it ?? |
|
Back to top |
|
|
Douglas Wilder
Active User
Joined: 28 Nov 2006 Posts: 305 Location: Deerfield IL
|
|
|
|
Yes, DFSRC00 has no ability to pass additional information to programs called by it. But... Youcan "CALL 'AIBTDLI' " to get the parms. |
|
Back to top |
|
|
ektaag
New User
Joined: 21 Mar 2007 Posts: 14 Location: bangalore
|
|
|
|
This('AIBTDLI' ) is something you have coded or it is pre existing ??
Is it very difficult to implement ?? |
|
Back to top |
|
|
Douglas Wilder
Active User
Joined: 28 Nov 2006 Posts: 305 Location: Deerfield IL
|
|
Back to top |
|
|
|