passing symbolic parameter in sysin dd statement

mkssampathkumar · New User Joined: 31 Aug 2006 Posts: 57 Location: chennai

Hi..
I Want to check whether the data is already exist or not..
with the help of listcat (IDCAMS), we can check it.
But i want to pass a DSN to the utility using symbolic parameter.

For example :
listcat('myuser. checkdsn.idcams') -it is possible

But My requirement is
listcat('&client..checkdsn.idcams')

How to check the dsn by this way??

Plz let me know if any one know the answer

Thanks in Advance..

jaisai · New User Joined: 13 Sep 2006 Posts: 2

mkssampathkumar · New User Joined: 31 Aug 2006 Posts: 57 Location: chennai

Hi..
Thanks for ur reply..
I tried with ur code and also hardcoded in dd statement..

//STEP010 EXEC PGM=IDCAMS
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//FILEIN DD DSN=sam.T.CHKEMPTY,DISP=SHR
//SYSIN DD *
LISTCAT ENTRIES(FILEIN)
/*
//
i tried with above code also ,this is also not working
Am gettint error 'Data set not found'( jcl error).
if i give the dsn name directly in listcat ,the code is executing.
i.e.
LISTCAT ENTRIES('sam.T.CHKEMPTY')
the above code is executing..

please let me know the reason..

Kevin · Active User Joined: 25 Aug 2005 Posts: 234

mkssampathkumar, from what I can tell from your original post, you have two issues to deal with.

First, you want to check if a dataset exists (i.e. is cataloged) or not. If a dataset is not cataloged, then you can't refer to it in the JCL with a DISP=SHR or DISP=OLD disposition without incurring a JCL error (dataset not found).

Second, you want to use a symbolic parameter for a part of the dataset name.

Personally, my preference is always to have a step that catalogs the dataset using DISP=(MOD,CATLG), so if it's already cataloged, fine. If it's not, then it will be.

If you just want to check for it's existence, then you'll need to pass the dataset name to a program as a PARM, and then let the program call the LISTCAT function and interpret the results. The pseudo-code would be:

mkssampathkumar · New User Joined: 31 Aug 2006 Posts: 57 Location: chennai

Hi Kevin
Thanks for ur reply..

DISP=(MOD,CATLG),
The above code which u reffered by u is creating the file which is not already present.

But the file which am checking is input file .so am not having rights to create the file. .

And second one is

//STEP010 EXEC PGM=IDCAMS
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
LISTCAT ENTRIES('sam.T.CHKEMPTY')
//

The above code is executed successfully and returning the maxcc 4.

But my problem is

//STEP010 EXEC PGM=IDCAMS
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//FILEIN DD DSN=sam.T.CHKEMPTY,DISP=SHR
//SYSIN DD *
LISTCAT ENTRIES(FILEIN)
/*
//
and

//STEP010 EXEC PGM=IDCAMS
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//FILEIN DD DSN=(&&dsname..T.CHKEMPTY),DISP=SHR
//SYSIN DD *
LISTCAT ENTRIES(FILEIN)
/*
i tried with both the codes..

Both the codes are giving JCL error.

And more doubt am having in ur code

1.Did u using LISTCAT in procedurs called 'MYPGM'??

2.Without IDCAMS utility,can we use LISTCAT..

AM not clear in ur code which comes after
[b]"where mypgm would then call LISTCAT"[/b]

i want to check the existence of input file which is used in my pgm thru jcl without getting error..
this is my requirement..how can i do it?
if my pgm doesn find the required input file then i have to write error message in output file
i want to check the existence of input file .
if my pgm doesn find the required input file then i have to write error message in output file.
I think am clear in my question??

Thanks

Kevin · Active User Joined: 25 Aug 2005 Posts: 234

I'm not sure why you're insisting on doing this within a jobstream when that's not possible.

Here's an option:

Kevin · Active User Joined: 25 Aug 2005 Posts: 234

jaisai, that syntax you gave for LISTCAT is WRONG.

Last I knew, the command LISTCAT FILE('dname')

mkssampathkumar · New User Joined: 31 Aug 2006 Posts: 57 Location: chennai

Hi kevin.

Thanks for ur effort..

Actaullay my programming language is not a cobol.

Am working in SAS..and also am having an option to do in programming language and also i solved too.
But my requirement is wheteher we can check the file existance in jcl itself without help of programming language..

listcat entries('dsname.t.xxx')
(its working very fine without any parm parameter and programming language )

Like that is there any option to find the file name with symbolic parameter.
this is my requrement..

i thougt someone may know the answer..
to find the file existance in jcl is not possible,plz let me know..

Thanks..

UmeySan · Posted: Fri Sep 15, 2006 1:26 pm

Hi mkssampathkumar !

You have to use instream-procedure JCL with the above IDCAMS, so that the ampersand-variable is interpreted.

Also you can use IEFBR14 with allocating the DSN as NEW,CATLG.
By returning a NOT-CATLG2-Error, the file exists.

Regards, UmeySan

shreevamsi · Posted: Fri Sep 15, 2006 1:44 pm

hi UmeySan,

You you please share the idea of Insteam Procedure to interpret '&' ??

As of my knowledge we can;t have symbolic parms in SYSIN.

SYSIN is a going to be input to the program AS IT IS.
It is not going to make sense to have a Symbolic parmeter.

~Vamsi

UmeySan · Posted: Fri Sep 15, 2006 3:45 pm

Hi shreevamsi,

as you could se below, i use instream procs with &-variables within normal
JCL-Statements and in Sysin-DD.

Regards, UmeySan

000300 //*
000310 //* BESTANDSDRUCK ISTITUT = &UINR. KONTO = &UKNR.
000320 //*
000700 //STEP010 EXEC P441G&UGRP.,
000800 // GEN='*',
001000 // INR=&UINS.
001100 //BEST.KARTE DD *
001200 $$
001300 S000 6
001400 S673 &UKNR.
001500 NO ISATZ
001800 //BEST.LSTDCB DD SYSOUT=*
001900 //BEST.SSD DD DISP=SHR,DSN=&UHLQ..I&UINS..GL00.SSD
002100 //BEST.OFFSET3 DD DUMMY

mkssampathkumar · New User Joined: 31 Aug 2006 Posts: 57 Location: chennai

hi UmeySan

Thanks for ur post..
AM having some doubt in ur coding.

//STEP010 EXEC P441G&UGRP.,

In the above step u r calling some user defined procedure and passing some values as symbolic parameter ..

//BEST.KARTE DD *
This is the sysin statement.
here u passing some values to ur user defined procedures..
after that u overriding some values in that procedure..

I CANT UNDERSTAND UR CODING..can u explain little more?

Is it possible to send a instream data in procedurs???

shreevamsi · Posted: Fri Sep 15, 2006 5:35 pm

hi Sampath,

According to UmeySan Code,

That was a Proc which was called by a Job with overrides to the Symbolic Parameters.

All the &symboles will be substitued by the Values specified in the Job.

Thanks UmeySan. I learned a new thing today..I will be checking this and let you know iff any observations.

~Vamsi

UmeySan · Posted: Fri Sep 15, 2006 5:52 pm

Hi mkssampathkumar !

Let's suppose we have to process data for several groups of our company. All these groups have several institutes. These Institus have several departments.

To handle all our processes against all the data of these groups with a lot of instituts, wich will have a lot of departments, with a minimum of JCL's
we use complex JCL-Procs with executing other Procs and so on under OPC-Control.

So assume we have:

Group01 Institut01 Dep01
Group01 Institut01 Dep02

Group09 Institut15 Dep22

We have specific Procs and Programms for them.

STEP010 EXEC P441G&UGRP ...&UGRP is transformed to the Groupnumber
by runtime.

// INR=&UINS. ...is Parm for the above Procedure / Institut-Number

//BEST.KARTE DD * ...is allways the SYSIN

S673 &UKNR. ...is a sysin-statement for the programm called by the
ececuted procedure P441G&UGRP wich is using a Parm like INR=&UINS

So perhaps for Group09 Institut15 Dep22
it results in EXEC P441G009, INR=015

Proc P441G022 executes a Programm. This is getting Sysin:
S000 6
S673 022

Hope i could satisfy your Question, Regards, UmeySan

mkssampathkumar · New User Joined: 31 Aug 2006 Posts: 57 Location: chennai

hi umey
u mentioned like
"here u passing some values to ur user defined procedures.. "
can we pass instream data in procedur??
i asked this question in last post itself..

can u send the code which u already checked ?.it will help me to understand little more..

Thanks..

sandeep.kumar · New User Joined: 16 Aug 2021 Posts: 11 Location: India

Garry Carroll · Posted: Fri Oct 08, 2021 8:58 pm

Don't tailgate 15year old posts ! Start a separate thread.

Garry.