creation of dataset for certain PARM parameters.

sudhakar_lendave · New User Joined: 21 Nov 2006 Posts: 48 Location: mumbai

hi friends,
i am facing a situation as below.
//step1 exec pgm=PGM1,parm='_'
//dd1 dd dsn=ABC,disp=(,catlg,delete),...
//dd2 dd dsn=XYZ,disp=(,catlg,delete),...
//sysout dd sysout=*
..
...
here i want to create the XYZ when PARM value is 'P', 'Q' or 'R'
for other values of PARM i don't want to create the XYZ.
how to do that?

donevin · Posted: Fri Jan 05, 2007 1:23 pm

PARM is passed to your program, so maybe you should use a symbolic parameter like "&Parm" to hold the value.

sudhakar_lendave · New User Joined: 21 Nov 2006 Posts: 48 Location: mumbai

i am not getting. just clarify it.

Arun Raj · Posted: Fri Jan 05, 2007 2:07 pm

Hi

Could you please tell what are you doing with the parameters passed into the program??...

Thanks
Arun

sudhakar_lendave · New User Joined: 21 Nov 2006 Posts: 48 Location: mumbai

hi arcvns,
i am writing records to XYZ file only when the PARM value is P Q or R
If i pass other PARM value XYZ file should not be created.

UmeySan · Posted: Fri Jan 05, 2007 4:05 pm

Hi !

A simple solution. Your Cobol is ending with diffrent return-codes for JES.
Use a Move 'NN' to return-code for that.

Return with 0 -> both files have data
Return with 4 -> File one has data
Return with 8 -> File two has data

Then in jcl next Steps you could use If-Then-Else conditions to delete
unnessesary files via jcl.

I can not really detect a reason for such an requirement, but this way will work.

Regards, UmeySan