MVSFORUMS.com

mfuser · Banned Joined: 01 Mar 2005 Posts: 105 Topics: 58

If in the input dataset has records

kolusu · Posted: Thu Jan 05, 2006 9:29 am Post subject:

mfuser,

Check this link for the first part of the question.

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

For the second question you can use HORIZONTAL MATH functions(add) to get the desired results. Let us know the format and position of the fields and we will show you how to do it.

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

mfuser · Banned Joined: 01 Mar 2005 Posts: 105 Topics: 58

Kolusu,

My input dataset looks like this:

ABC is CHARACTER DATA
A1,A2,A3,A4 is CHARACTER DATA
JAN,FEB,MAR is CHARACTER DATA
1,2,3 is NUMERIC DATA (But while displaying on the report numeric data should be edited)

Code:

----+----1---
ABC A1 JAN 1
ABC A1 JAN 2
ABC A2 JAN 1
ABC A2 JAN 2
ABC A3 JAN 1
ABC A3 FEB 2
ABC A3 MAR 3
ABC A4 JAN 1
ABC A4 FEB 2
ABC A4 MAR 3

My queries:

1.How can we add horizantally the numeric data.
2.In the report produced , we do not have 3 rd values for A1 and A2 ,how can we check for blanks using SORT or how to display the fields whose values are blanks.
3.I have searched the link given by you for grouping the values and i find that ICETOOL / SYNCTOOL is being used.Can we achieve the results using SORT only in a single step as i am using SORT for other purposes and i want to acompilish the task in a single step.
4.I am using the syntax REMOVECC in the control statements ,but still the output spool is of 81 bytes and if i use 40:c'FINISH', the code starts from 41 st column ,why is the output 81 bytes instead of 80 bytes.

kolusu · Posted: Thu Jan 05, 2006 1:15 pm Post subject:

mfuser · Banned Joined: 01 Mar 2005 Posts: 105 Topics: 58

Kolusu,

My understanding is not very clear about grouping the data.Can you please guide me how to group this sample input data to desired format so that i can proceed ahead further.

Code:

----+----1---
ABC A1 JAN 1
ABC A1 JAN 2
ABC A2 JAN 1
ABC A2 JAN 2
ABC A3 JAN 1
ABC A3 FEB 2
ABC A3 MAR 3
ABC A4 JAN 1
ABC A4 FEB 2
ABC A4 MAR 3

Desired Output

Code:

ABC A1 JAN 1 2
A2 JAN 1 2
A3 JAN 1 2 3
A4 JAN 1 2 3

In the report produced , we do not have 3 rd values for A1 and A2 ,how can we check for blanks using SORT or how to display the fields whose values are blanks.Please show me a sample syntax from where in i can build my own code.

kolusu · Posted: Thu Jan 05, 2006 2:13 pm Post subject:

Mfuser,

mfuser · Banned Joined: 01 Mar 2005 Posts: 105 Topics: 58

Kolusu,

Sorry for posting the requirement incorrectly.Here is what i am looking for

Input dataset:

Code:

----+----1---
ABC A1 JAN 1
ABC A1 JAN 2
ABC A2 JAN 1
ABC A2 JAN 2
ABC A3 JAN 1
ABC A3 FEB 2
ABC A3 MAR 3
ABC A4 JAN 1
ABC A4 FEB 2
ABC A4 MAR 3

I want to be grouped by ABC and then by A1,A2,A3,A4 and add up horizantally and finally individually vertical sum also.

Desired Output:

Code:

----+----1----+----2----+-
SER1 SER2 SER3 SUM
ABC A1 1 2 3
A2 1 2 3
A3 1 2 3 6
A4 1 2 3 6
==== ==== ==== ===
4 8 6 18

In the report produced , we do not have 3 rd values for A1 and A2 ,how can we check in the input dataset whether there is a 3 rd value for individual A1 / A2 / A3 /A4 ? If it is blank display blank in the report ,if it has a non blank data then display non blank data it in the report and the data is numeric ?

kolusu · Posted: Thu Jan 05, 2006 3:43 pm Post subject:

Mfuser,

Here is a job which will give you the desired results (with exception cosmetic change)

Frank Yaeger · Posted: Thu Jan 05, 2006 4:26 pm Post subject:

mfuser,

Does your fourth column of data really have only 1, 2 or 3 in that order or can it be any number, e.g.

kolusu · Posted: Thu Jan 05, 2006 5:21 pm Post subject:

mfuser · Banned Joined: 01 Mar 2005 Posts: 105 Topics: 58

Thanks Kolusu and Frank for your help provided.

As per Frank's note my fourth column can have any value as it is being retreived from a table not necessarily 1/ 2/3 it can have anything.Morever can the desired result be produced by SORT only instead of ICETOOL as i am using SORT for other purposes.

Kolusu,When i have run the code , i am getting syntax error ,is it because ADD function is not available with the verison of SORT which i am using in my shop and i am using DFSORT REL 14.0

Code:

INREC FIELDS=(1,30,
31:12,1,CHANGE=(1,C'1',C'1'),NOMATCH=(C'0'),
32:12,1,CHANGE=(1,C'2',C'2'),NOMATCH=(C'0'),
33:12,1,CHANGE=(1,C'3',C'3'),NOMATCH=(C'0'))
SORT FIELDS=(1,6,CH,A)
SUM FIELDS=(31,3,ZD)
OUTREC FIELDS=(01,6,
12:31,1,CHANGE=(1,C'0',C' '),NOMATCH=(31,1),
17:32,1,CHANGE=(1,C'0',C' '),NOMATCH=(32,1),
22:33,1,CHANGE=(1,C'0',C' '),NOMATCH=(33,1),
24:31,1,ZD,ADD,
$
ICE007A E SYNTAX ERROR
32,1,ZD,ADD,
$
ICE007A 0 SYNTAX ERROR
33,1,ZD,EDIT=(IIIT),31,3)
$
ICE007A 0 SYNTAX ERROR
OUTFIL REMOVECC,OUTREC=(1,27),
$

My desired ouput:

Code:

SER1 SER2 SER3 SUM
==== ==== ==== ====
ABC A1 1 2 3
A2 1 2 3
A3 1 2 3 6
A4 1 2 3 6
==== ==== ==== ====
4 8 6 18

kolusu · Posted: Fri Jan 06, 2006 4:18 am Post subject:

mfuser · Banned Joined: 01 Mar 2005 Posts: 105 Topics: 58

Thanks Kolusu and Frank,You guys are great.

I have tried out the code provided by both of you in a later version of DFSORT--- Z/OS DFSORT V1R5 and both of the codes have worked out perfectly with the desired inputs and outputs.I have a query whether can i achieve the same results using SORT only instead of ICETOOL because i have am using SORT to display DATE ,TIME and HEADERS and PAGE numbers also and some other processing.I am not well conversant with ICETOOL.How can i achieve the DATE,TIME,PAGE,HEADERS repeating and TRAILER.

kolusu · Posted: Fri Jan 06, 2006 7:45 am Post subject:

mfuser · Banned Joined: 01 Mar 2005 Posts: 105 Topics: 58

Kolusu,

I will try to get the desired results using ICETOOL only and the links provided by you are very good and informative.I will make it as a practise exercise for me and i will surely learn using ICETOOL and it will definetly help me in the future.Thanks.