DFSORT logic problem

daveporcelan · Posted: Wed Dec 22, 2010 7:07 pm

I know, that is why I say he must be charmed.

He has been able to keep this post going for a long time.

You would think he has learned enough to carry on solo by now.

dick scherrer · Posted: Wed Dec 22, 2010 9:26 pm

Or understood that there has been more than enough spoon-feeding . . .

Imagine when it is no longer just class exercises (which should be in our Student/Fresher forum) but some employer expects some real work to be done. . . Do we see "urgent" on the horizon. . .

d

Skolusu · Posted: Thu Dec 23, 2010 1:09 am

useit,

I am not going to spoon feed you any more. If all of these exercises are part of an exam, I suggest you study and try to answer them on your own. If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

Use [URL] BBCode for External Links

useit · Active User Joined: 05 Oct 2006 Posts: 152

skolusu i read dfsort getting started and tried various example. was trying the similar requirement for 15 occurences that time i got 0 instead of low values(for remaining space).so i asked you guys.dont misunderstand me.am seriously working hard on this.we can learn something from everyone.

in the below statement can you tell me (60,12) what value will it store?

OVERLAY=(36:60,12,81:C'A')

and also 72, 1 in below statement.

IFTHEN=(WHEN=(72,1,PD,EQ,1),OVERLAY=(36:24X) .

sorry for bothering you.am very thankful to u.

useit · Active User Joined: 05 Oct 2006 Posts: 152

skolusu,
please answer the above question.will not trouble you now on.
regds,
useit

useit · Active User Joined: 05 Oct 2006 Posts: 152

skolusu,

another example i was trying.i got the results correct but in case of overflow value zero is getting populated instead of space/low values.

input recl=205,output lrecl=219,keydata-1-39
maximum 30 "y" type under each "x" type record.
15 occurences.

below is the jcl i have written.let me know where i have done mistake

//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=INPUT.FILE,DISP=SHR
//SORTOUT DD DSN=.OUTPUT.FILE,DISP=SHR
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,BUILD=(1,39,45X'0000000C',40,12,X'1C')),
IFTHEN=(WHEN=GROUP,BEGIN=(39,1,CH,EQ,C'X'),
PUSH=(233:ID=8,242:SEQ=2)),
IFTHEN=(WHEN=(242,2,ZD,EQ,02),OVERLAY=(40:220,12,241:C'A')),
IFTHEN=(WHEN=(242,2,ZD,EQ,03),OVERLAY=(52:220,12,241:C'A')),
IFTHEN=(WHEN=(242,2,ZD,EQ,04),OVERLAY=(64:220,12,241:C'A')),
IFTHEN=(WHEN=(242,2,ZD,EQ,05),OVERLAY=(76:220,12,241:C'A')),
IFTHEN=(WHEN=(242,2,ZD,EQ,06),OVERLAY=(88:220,12,241:C'A')),
IFTHEN=(WHEN=(242,2,ZD,EQ,07),OVERLAY=(100:220,12,241:C'A')),
IFTHEN=(WHEN=(242,2,ZD,EQ,08),OVERLAY=(112:220,12,241:C'A')),
IFTHEN=(WHEN=(242,2,ZD,EQ,09),OVERLAY=(124:220,12,241:C'A')),
IFTHEN=(WHEN=(242,2,ZD,EQ,10),OVERLAY=(136:220,12,241:C'A')),
IFTHEN=(WHEN=(242,2,ZD,EQ,11),OVERLAY=(148:220,12,241:C'A')),
IFTHEN=(WHEN=(242,2,ZD,EQ,12),OVERLAY=(160:220,12,241:C'A')),
IFTHEN=(WHEN=(242,2,ZD,EQ,13),OVERLAY=(172:220,12,241:C'A')),
IFTHEN=(WHEN=(242,2,ZD,EQ,14),OVERLAY=(184:220,12,241:C'A')),
IFTHEN=(WHEN=(242,2,ZD,EQ,15),OVERLAY=(196:220,12,241:C'A')),
IFTHEN=(WHEN=(242,2,ZD,EQ,16),OVERLAY=(208:220,12,241:C'A')),

IFTHEN=(WHEN=(242,2,ZD,EQ,17),OVERLAY=(39X,220,12,241:C'B')),
IFTHEN=(WHEN=(242,2,ZD,EQ,18),OVERLAY=(39X,52:220,12,241:C'B')),
IFTHEN=(WHEN=(242,2,ZD,EQ,19),OVERLAY=(39X,64:220,12,241:C'B')),
IFTHEN=(WHEN=(242,2,ZD,EQ,20),OVERLAY=(39X,76,12,241:C'B')),
IFTHEN=(WHEN=(242,2,ZD,EQ,21),OVERLAY=(39X,88:220,12,241:C'B')),
IFTHEN=(WHEN=(242,2,ZD,EQ,22),OVERLAY=(39X,100:220,12,241:C'B')),
IFTHEN=(WHEN=(242,2,ZD,EQ,23),OVERLAY=(39X,112,12,241:C'B')),
IFTHEN=(WHEN=(242,2,ZD,EQ,24),OVERLAY=(39X,124:220,12,241:C'B')),
IFTHEN=(WHEN=(242,2,ZD,EQ,25),OVERLAY=(39X,136:220,12,241:C'B')),
IFTHEN=(WHEN=(242,2,ZD,EQ,26),OVERLAY=(39X,148,12,241:C'B')),
IFTHEN=(WHEN=(242,2,ZD,EQ,27),OVERLAY=(39X,160:220,12,241:C'B')),
IFTHEN=(WHEN=(242,2,ZD,EQ,28),OVERLAY=(39X,172:220,12,241:C'B')),
IFTHEN=(WHEN=(242,2,ZD,EQ,29),OVERLAY=(39X,184,12,241:C'B')),
IFTHEN=(WHEN=(242,2,ZD,EQ,30),OVERLAY=(39X,196:220,12,241:C'B')),
IFTHEN=(WHEN=(242,2,ZD,EQ,31),OVERLAY=(39X,208:220,12,241:C'B'))

SORT FIELDS=(233,9,CH,A),EQUALS

SUM FIELDS=(40,4,44,4,48,4,52,4,56,4,60,4,64,4,68,4,72,4,
76,4,80,4,84,4,88,4,92,4,96,4,100,4,104,4,108,4,
112,4,116,4,120,4,124,4,128,4,132,4,136,4,140,4,144,4,
148,4,152,4,156,4,160,4,164,4,168,4,172,4,176,4,180,4,
184,4,188,4,192,4,196,4,200,4,204,4,208,4,212,4,216,4,
231,1),FORMAT=PD

OUTREC IFOUTLEN=219,
IFTHEN=(WHEN=(39,2,CH,EQ,C'X'),OVERLAY=(40:179X)),
IFTHEN=(WHEN=(231,2,PD,EQ,01),OVERLAY=(52:167X)),
IFTHEN=(WHEN=(231,2,PD,EQ,02),OVERLAY=(64:155X)),
IFTHEN=(WHEN=(231,2,PD,EQ,03),OVERLAY=(76:143X)),
IFTHEN=(WHEN=(231,2,PD,EQ,04),OVERLAY=(88:131X)),
IFTHEN=(WHEN=(231,2,PD,EQ,05),OVERLAY=(100:119X)),
IFTHEN=(WHEN=(231,2,PD,EQ,06),OVERLAY=(112:107X)),
IFTHEN=(WHEN=(231,2,PD,EQ,07),OVERLAY=(124:95X)),
IFTHEN=(WHEN=(231,2,PD,EQ,08),OVERLAY=(136:83X)),
IFTHEN=(WHEN=(231,2,PD,EQ,09),OVERLAY=(148:71X)),
IFTHEN=(WHEN=(231,2,PD,EQ,10),OVERLAY=(160:59X)),
IFTHEN=(WHEN=(231,2,PD,EQ,11),OVERLAY=(172:47X)),
IFTHEN=(WHEN=(231,2,PD,EQ,12),OVERLAY=(184:35X)),
IFTHEN=(WHEN=(231,2,PD,EQ,13),OVERLAY=(196:23X)),
IFTHEN=(WHEN=(231,2,PD,EQ,14),OVERLAY=(208:11X))
/*

PeterHolland · Posted: Fri Dec 24, 2010 7:27 pm

I think Skolusu got a stalker here.

enrico-sorichetti · Posted: Fri Dec 24, 2010 7:31 pm

I guess the the TS should change is id from useit to useSkolusu

PeterHolland · Posted: Fri Dec 24, 2010 7:33 pm

What do you mean by that Enrico?

enrico-sorichetti · Posted: Fri Dec 24, 2010 7:53 pm

Ok Peter,
You should know that I have a warped mind

just a bit of word play
useit ==> use it

well the ts is not using "it" is rather using "Skolusu" thence

useit==> use it ==> Use Skolusu ==> useSkolusu

cheers

enrico

dick scherrer · Posted: Sat Dec 25, 2010 4:55 am

Hello,

I suspect "no more spoon feeding" was not understood. . .