Unable to pass the value through JCL in a IMS program

akashs · New User Joined: 24 Nov 2005 Posts: 49 Location: chennai

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

Bill O'Boyle · Posted: Fri Nov 04, 2011 10:28 pm

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

Ronald Burr · Posted: Fri Nov 04, 2011 10:34 pm

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

don.leahy · Posted: Fri Nov 04, 2011 11:06 pm

DFSRRC00 has very specific parameter requirements. Search the forum for the keyword APARM.

Anuj Dhawan · Posted: Sat Nov 05, 2011 2:29 pm

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.

akashs · New User Joined: 24 Nov 2005 Posts: 49 Location: chennai

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

Thanks

Bill O'Boyle · Posted: Sun Nov 06, 2011 1:24 am

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

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

Mr. Bill

don.leahy · Posted: Sun Nov 06, 2011 2:20 am