MVSFORUMS.com

vivek · Posted: Fri Oct 08, 2004 2:11 pm Post subject: Help Needed. I am brain dead

I tried the same JCL today , I am getting CON Dataset not found.

vivek · Posted: Fri Oct 08, 2004 2:26 pm Post subject:

I fixed it. Hurrayyyyyyyyyyyyyyyyyy

Ok, the above jcl did give me an errror because of

Code:

//T1 DD DSN=JUFACT.CS,DISP=(NEW,PASS),SPACE=(CYL,(10,10),RLSE)
//T2 DD DSN=JUFACT.CH,DISP=(NEW,PASS),SPACE=(CYL,(10,10),RLSE)
//T3 DD DSN=JUFACT.CD,DISP=(NEW,PASS),SPACE=(CYL,(10,10),RLSE)
//T4 DD DSN=JUFACT.PT,DISP=(NEW,PASS),SPACE=(CYL,(10,10),RLSE)

Code:

DISP=(NEW,PASS),

is the culprit .

Yesterdays JCL abend with S213 because

Code:

//T1 DD DSN=&&CASSTAT,DISP=(,PASS),SPACE=(CYL,(10,10),RLSE)
//T2 DD DSN=&&CHARGES,DISP=(,PASS),SPACE=(CYL,(10,10),RLSE)
//T3 DD DSN=&&CHADIS,DISP=(,PASS),SPACE=(CYL,(10,10),RLSE)
//T4 DD DSN=&&PARTY,DISP=(,PASS),SPACE=(CYL,(10,10),RLSE)
//CON DD DSN=&&CASSTAT,DISP=(OLD,PASS),VOL=REF=*.T1
// DD DSN=&&CHARGES,DISP=(OLD,PASS),VOL=REF=*.T2
// DD DSN=&&CHARDIS,DISP=(OLD,PASS),VOL=REF=*.T3
// DD DSN=&&PARTY,DISP=(OLD,PASS),VOL=REF=*.T4

T3 I coded &&CHADIS
and CON 3 DD DSN , I have named it as CHARDIS with an Extra R. a Typo resulted in S213 error.
I just noticed and corrected and return code = 0 now.

Thank you people.
_________________
Vivek,NJ

Db2,IDMS

Meg · Beginner Joined: 08 Jul 2003 Posts: 44 Topics: 16

Is it possible to get the ouput for the same requirement Kolusu has mentioned in his first post using ordinary sort. We use only PGM=SORT in our JCLs for sorting as our clients do not encourage us to use ICETOOL for maintanence purpose. Please let me know how to create the output exactly as Kolusu's first post using the ordinary sort.
Thanks,
Meg

kolusu · Posted: Wed Oct 27, 2004 5:44 am Post subject:

Meg,

It is very easy to split the ICETOOL job into a regular sort job. Each toolin operator is equivalent to a single step of sort.Try this.

archandra · Posted: Fri Aug 19, 2005 12:11 am Post subject:

hi,

I have 2 input files. The two files are having a field in common.
I want to join the two files on that field. If matches I want to write into
the output file with some info from these two files. And I want to do it
through sort card only. Is it possible.
See how the records look like in the files.
(the second field is the common one)

File 1:

name1 12345 veh1
name2 12346 veh4
name3 12347 veh3

File 2:

dep1 12344 cal
dep2 12345 wis
dep3 12346 arg

out file:

12345 veh1 wis
12346 veh4 arg

Phantom · Posted: Fri Aug 19, 2005 4:00 am Post subject:

archandra,

I really wonder if this particular thread didn't have an answer to your problem. What sort product do you have ? If you have Syncsort V 1.2 then check the following link.

http://www.mvsforums.com/helpboards/viewtopic.php?t=4690

For DFSORT, Search for the keyword SPLICE in this forum, you will get lots of threads that discusses on your problem.

Thanks,
Phantom

Frank Yaeger · Posted: Fri Aug 19, 2005 9:50 am Post subject:

archandra,

Here's a DFSORT/ICETOOL job that will do what you want. I assumed your input files have RECFM=FB and LRECL=80, but the job can be changed appropriately for other attributes. For complete information on the SPLICE operator of DFSORT's ICETOOL, see:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA10/6.13?DT=20050222160456