MVSFORUMS.com :: View topic - Sorting Detail records

through

[^/[Print]\]
Goto page Previous 1, 2, 3, 4 Next :| |:
MVSFORUMS.com -> Utilities

#31: Author: kolusu, Location: San Jose

Posted: Wed Dec 08, 2004 5:27 am
—

Quote:

All you need to do is to create & catalog the datasets before the sort step. use IEFBR14 to create an empty file (& catalog it). Then use the datasets in the SYNCTOOL/ICETOOL with DISP as SHR.

Phantom,

You can directly catlg the datasets in the sort step itself instead of using an IEFBR14 step to catlg the datasets

i.e

Code:

//T1 DD DSN=USERID.TEMP.DSN1,DISP=(,CATLG),SPACE=(CYL,(X,Y),RLSE)
//T2 DD DSN=USERID.TEMP.DSN2,DISP=(,CATLG),SPACE=(CYL,(X,Y),RLSE)
//CON DD DSN=*.T1,VOL=REF=*.T1,DISP=OLD
// DD DSN=*.T2,VOL=REF=*.T2,DISP=OLD

Hope this helps...

Cheers

Kolusu

#32: Author: Phantom, Location: The Blue Planet

Posted: Wed Dec 08, 2004 5:58 am
—
Thanks a lot Kolusu,

I had problems using DISP=SHR but never realised that DISP=OLD will solve that.

Thanks,
Phantom

#33: Author: nguyenh,

Posted: Mon Jan 10, 2005 12:06 pm
—
Hi Kolusu and all,
Can you please help me correct this non-working CTL4CNTL.
Here is a segment of code that I am trying to do, I thought it would work, but it wouldn't Smile

Thank you very much!

Code:

//TOOLIN DD *
COUNT FROM(IPFILE)
COPY FROM(IPFILE) USING(CTL1)
COPY FROM(CON) USING(CTL2)
SPLICE FROM(TEMP1) TO(TEMP2) -
ON(87,8,CH) -
WITH(1,80) -
WITHALL USING(CTL3)
COPY FROM(TEMP2) USING(CTL4)
//CTL1CNTL DD *
INREC FIELDS=(1,80,SEQNUM,8,ZD)
OUTFIL FNAMES=HEADER,INCLUDE=(1,1,CH,EQ,C'*'),
OUTREC=(1,80,8C'0',SEQNUM,8,ZD,C'H',39,6)
OUTFIL FNAMES=DETAIL,SAVE,
OUTREC=(1,88,SEQNUM,8,ZD,C'Z',6X)
//CTL2CNTL DD *
INREC FIELDS=(1,96,(81,8,ZD,SUB,89,8,ZD),M11,LENGTH=8,97,7)
OUTFIL FNAMES=TEMP1,OUTREC=(1,80,106,6,97,8,89,8)
//CTL3CNTL DD *
OUTFIL FNAMES=TEMP2,OUTREC=(1,86,SEQNUM,7,ZD)
//CTL4CNTL DD *
OUTFIL FNAMES=TEMP3,INCLUDE COND=(1,1,CH,EQ,C' ',OR,
77,2,CH,EQ,C'TA',OR,
77,2,CH,EQ,C'TB',OR,
77,2,CH,EQ,C'TC',OR),OUTREC=(1,93,2,4,6X) $ PUT INTO TEMP3 THIS INCLUDE COND= DOES NOT WORK.
OUTFIL FNAMES=TEMP4,INCLUDE=(77,2,CH,EQ,C'TT'),OUTREC=(1,93,10X,11,4) $ PUT INTO TEMP4
OUTFIL FNAMES=TEMP5,SAVE,OUTREC=(1,93,1,10) $ PUT EVERYTHING ELSE INTO TEMP5
/*

#34: Author: kolusu, Location: San Jose

Posted: Mon Jan 10, 2005 12:28 pm
—
nguyenh,

You have an extra OR in the include cond after 'TC' for Temp3. Also you should just have INCLUDE on OUTFIL , instead of INCLUDE COND. Change your CTL4CNTL to the following.

Code:

//CTL4CNTL DD *
OUTFIL FNAMES=TEMP3,
INCLUDE=(1,1,CH,EQ,C' ',OR,
77,2,CH,EQ,C'TA',OR,
77,2,CH,EQ,C'TB',OR,
77,2,CH,EQ,C'TC'),
OUTREC=(1,93,2,4,6X)
OUTFIL FNAMES=TEMP4,INCLUDE=(77,2,CH,EQ,C'TT'),
OUTREC=(1,93,10X,11,4)
OUTFIL FNAMES=TEMP5,SAVE,
OUTREC=(1,93,1,10)
/*

Hope this helps...

Cheers

kolusu

#35: Author: nguyenh,

Posted: Mon Jan 10, 2005 2:00 pm
—
Kolusu,

Code:

You have an extra OR in the include cond after 'TC' for Temp3.

Oh, That was just a typo when message is being posted.

Code:

Also you should just have INCLUDE on OUTFIL , instead of INCLUDE COND. Change your CTL4CNTL to the following.

I thought I already tried this, but it didn't work, I may have done some thing wrong Smile

let me try it and let you know.

Thanks alot Kolusu!

#36: Author: kolusu, Location: San Jose

Posted: Mon Jan 10, 2005 2:09 pm
—
nguyenh,

Did you try with suggested code in my previous post? if you did try then please post your TOOLMSG & DFSMSG messages.

Thanks

kolusu

#37: Author: nguyenh,

Posted: Mon Jan 10, 2005 2:42 pm
—
kOLUSU,

I just already tried your suggested solution. It worked better than I expected. Smile

wonderful!

Thank you so very much.

#38: Author: nguyenh,

Posted: Mon Jan 10, 2005 3:15 pm
—
Hello Kolusu,
Could you please tell me what are my errors here? It looks correct to me, but I keep getting these errors

Code:

STMT NO. MESSAGE

297 IEF645I INVALID REFERBACK IN THE DSNAME FIELD
298 IEF645I INVALID REFERBACK IN THE DSNAME FIELD
299 IEF645I INVALID REFERBACK IN THE DSNAME FIELD
300 IEF645I INVALID REFERBACK IN THE DSNAME FIELD
301 IEF645I INVALID REFERBACK IN THE DSNAME FIELD
302 IEF645I INVALID REFERBACK IN THE DSNAME FIELD

Here is my JCL:

Code:

283 //IPFILE DD DSN=NSDC656.TEMP1,DISP=SHR
284 //OPFILE DD DSN=NSDC656.OLDLIST,DISP=(OLD,KEEP)
285 //HEADER DD DSN=NSDC656.HEADER,
// DISP=(NEW,CATLG),SPACE=(CYL,(20,10),RLSE)
286 //DETAIL DD DSN=NSDC656.DETAIL,
// DISP=(NEW,CATLG),SPACE=(CYL,(20,10),RLSE)
287 //CON DD DSN=*.HEADER,VOL=REF=*.HEADER,DISP=OLD
288 // DD DSN=*.DETAIL,VOL=REF=*.DETAIL,DISP=OLD
289 //TEMP1 DD DSN=NSDC656.A1,DISP=(NEW,CATLG),SPACE=(CYL,(20,10),RLSE)
290 //TEMP2 DD DSN=NSDC656.A2,DISP=(NEW,CATLG),SPACE=(CYL,(20,10),RLSE)
291 //TEMP3 DD DSN=NSDC656.A3,DISP=(NEW,CATLG),SPACE=(CYL,(20,10),RLSE)
292 //TEMP4 DD DSN=NSDC656.A4,DISP=(NEW,CATLG),SPACE=(CYL,(20,10),RLSE)
293 //TEMP5 DD DSN=NSDC656.A5,DISP=(NEW,CATLG),SPACE=(CYL,(20,10),RLSE)
294 //TEMP6 DD DSN=NSDC656.A6,DISP=(NEW,CATLG),SPACE=(CYL,(20,10),RLSE)
295 //TEMP7 DD DSN=NSDC656.A7,DISP=(NEW,CATLG),SPACE=(CYL,(20,10),RLSE)
296 //TEMP8 DD DSN=NSDC656.A8,DISP=(NEW,CATLG),SPACE=(CYL,(20,10),RLSE)
297 //TEMP9 DD DSN=*.A3,VOL=REF=*.A3,DISP=OLD
298 // DD DSN=*.A4,VOL=REF=*.A4,DISP=OLD
299 // DD DSN=*.A5,VOL=REF=*.A5,DISP=OLD
300 // DD DSN=*.A6,VOL=REF=*.A6,DISP=OLD
301 // DD DSN=*.A7,VOL=REF=*.A7,DISP=OLD
302 // DD DSN=*.A8,VOL=REF=*.A8,DISP=OLD
303 //TOOLIN DD *

Thank you!

#39: Author: kolusu, Location: San Jose

Posted: Mon Jan 10, 2005 3:48 pm
—

Code:

//TEMP9 DD DSN=*.A3,VOL=REF=*.A3,DISP=OLD
// DD DSN=*.A4,VOL=REF=*.A4,DISP=OLD
// DD DSN=*.A5,VOL=REF=*.A5,DISP=OLD
// DD DSN=*.A6,VOL=REF=*.A6,DISP=OLD
// DD DSN=*.A7,VOL=REF=*.A7,DISP=OLD
// DD DSN=*.A8,VOL=REF=*.A8,DISP=OLD

You are referring to a ddname which is not present. If your intetion is to concatenate temp3 thru temp 8 then you need to code it as below

Code:

//TEMP9 DD DSN=*.TEMP3,VOL=REF=*.TEMP3,DISP=OLD
// DD DSN=*.TEMP4,VOL=REF=*.TEMP4,DISP=OLD
// DD DSN=*.TEMP5,VOL=REF=*.TEMP5,DISP=OLD
// DD DSN=*.TEMP6,VOL=REF=*.TEMP6,DISP=OLD
// DD DSN=*.TEMP7,VOL=REF=*.TEMP7,DISP=OLD
// DD DSN=*.TEMP8,VOL=REF=*.TEMP8,DISP=OLD

Hope this helps...

Cheers

Kolusu

#40: Author: nguyenh,

Posted: Mon Jan 10, 2005 4:04 pm
—
Thanks Kolusu,

I see, I thought *.DataSetName means WhatEverHighLevelQualifier.ActualDataSetName.

I look at the example in the link below, they named both DSN = T1 therefore I am confused. Thank you again!

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ice1cg00/3.1.16?ACTION=MATCHES&REQUEST=Vol%3DRef%3D&TYPE=FUZZY&SHELF=&DT=20031124150117&CASE=&searchTopic=TOPIC&searchText=TEXT&searchIndex=INDEX&rank=RANK&ScrollTOP=FIRSTHIT#FIRSTHIT

#41: Author: nguyenh,

Posted: Wed Jan 12, 2005 2:46 pm
—
Hi kolusu,
I am trying to reference temporary datasets and getting this error. Why does that happen? is it not possible to reference temporary datasets the same way as we do with permanent datasets? Can you show me how to fix this error. Thanks!

:

Code:

//HEADER DD DSN=&&&&HEADER,DISP=(NEW,PASS)
//DETAIL DD DSN=&&&&DETAIL,DISP=(NEW,PASS)
//COMBIN DD DSN=*.HEADER,VOL=REF=*.HEADER,DISP=OLD
// DD DSN=*.DETAIL,VOL=REF=*.DETAIL,DISP=OLD

I got this error:

Code:

317 IEF648I INVALID DISP FIELD- PASS SUBSTITUTED
318 IEF648I INVALID DISP FIELD- PASS SUBSTITUTED

I tried this too, but get difference errors.

Code:

//HEADER DD DSN=&&&&HEADER,DISP=(NEW,PASS)
//DETAIL DD DSN=&&&&DETAIL,DISP=(NEW,PASS)
//COMBIN DD DSN=HEADER
// DD DSN=DETAIL

#42: Author: kolusu, Location: San Jose

Posted: Wed Jan 12, 2005 2:56 pm
—
nguyenh,

You can create a temporary dataset using 2 ampersands followed by a character string 1 to 8 characters in length. You had 4 ampersands which is not a valid syntax

However, if you code a data set name as a symbolic parameter (by coding DSNAME=&xxxxxxxx), and do not assign a value to or nullify the symbolic parameter, the system will process it as a temporary data set name.

So change your file allocation to either have 2 or 1 ampersand.

Code:

//HEADER DD DSN=&&HEADER,DISP=(NEW,PASS),SPACE=(CYL,(X,Y),RLSE)
//DETAIL DD DSN=&&DETAIL,DISP=(NEW,PASS),SPACE=(CYL,(X,Y),RLSE)
//COMBIN DD DSN=*.HEADER,VOL=REF=*.HEADER,DISP=OLD
// DD DSN=*.DETAIL,VOL=REF=*.DETAIL,DISP=OLD

Code:

//HEADER DD DSN=&HEADER,DISP=(NEW,PASS),SPACE=(CYL,(X,Y),RLSE)
//DETAIL DD DSN=&DETAIL,DISP=(NEW,PASS),SPACE=(CYL,(X,Y),RLSE)
//COMBIN DD DSN=*.HEADER,VOL=REF=*.HEADER,DISP=OLD
// DD DSN=*.DETAIL,VOL=REF=*.DETAIL,DISP=OLD

Hope this helps...

Cheers

kolusu

#43: Author: nguyenh,

Posted: Wed Jan 12, 2005 3:10 pm
—
Thanks Kolusu,
Some how, I dont know if it is our installation dependant or what, again I dont know. but whenever I use 2 ampercents, it takes 2 ampercents and convert to 1 ampercent and it fails, i look at other people codes in my shop they all used 4 amps for temp datasets, which will returns 2 amps. Back to my previous question. it seams that when i use this code it works. I need to check it again. Thanks again!

Code:

//DETAIL DD DSN=&&&&DETAIL,DISP=(NEW,PASS)
//COMBIN DD DSN=&&&&HDR1,VOL=REF=*.HEADER,DISP=(NEW,PASS)
// DD DSN=&&&&DET1,VOL=REF=*.DETAIL,DISP=(NEW,PASS)

#44: Author: nguyenh,

Posted: Fri Jan 14, 2005 3:20 pm
—
Kolusu,
You are right I can now get it to work with just && instead 4 amps. Thanks a lot.

I have another question, I have problem to find the correct syntax for the following statements? could you please show me how this is done the right way. Thanks you!

Code:

//CON&DSN1 IF ( (&DSN1 EQ 1 OR (&DSN1 EQ 2)) AND
// (&DSN2 EQ 'OLDLIST' OR (&DSN2 EQ 'NEWLIST' ) ) ) THEN

#45: Author: kolusu, Location: San Jose

Posted: Fri Jan 14, 2005 4:07 pm
—

Quote:

I have another question, I have problem to find the correct syntax for the following statements? could you please show me how this is done the right way. Thanks you!

//CON&DSN1 IF ( (&DSN1 EQ 1 OR (&DSN1 EQ 2)) AND
// (&DSN2 EQ 'OLDLIST' OR (&DSN2 EQ 'NEWLIST' ) ) ) THEN

nguyenh,

I am lost here ! what is the language you are referring to ?

Kolusu

MVSFORUMS.com -> Utilities

output generated using printer-friendly topic mod. All times are GMT - 5 Hours

Goto page Previous 1, 2, 3, 4 Next :| |: Page 3 of 4