MVSFORUMS.com

akhilraj2005 · Beginner Joined: 23 Mar 2005 Posts: 12 Topics: 3

i have below card
902255

value at (1,2) will always have values GT values then (3,2) and (6,2).
i want to deduct difference of 22 and 55 from 90

90,sub,(20,sub,55) but actually its added beacuse
90,sub(-33) which equals to 123 but i want 90-33=57.

my outrec looks like-

akhilraj2005 · Beginner Joined: 23 Mar 2005 Posts: 12 Topics: 3

please ignore below quote

'value at (1,2) will always have values GT values then (3,2) and (6,2). '

kolusu · Posted: Thu Apr 07, 2005 5:37 am Post subject:

Akhilraj,

If the difference between the 2nd and 3rd field results in a negative number, you can simply add that difference to the field at 1.

Try this

akhilraj2005 · Beginner Joined: 23 Mar 2005 Posts: 12 Topics: 3

sorry kolusu for not explaining it earlier..

this is not the only input data . there are several other data lines for whcih i need the same rule..

my input will be like this

503030 diff -> 50-(30-30) = 50 okay to me
503020 diff -> 50-(30-20) = 40 okay to me
502030 diff -> 50-(20-30) = 60 NOT okay to me i want 40 in this case also. So idea is not matter what type (+ to - value is returned by inner diff, discarding the sign i want to subtract it from 50.

kolusu · Posted: Thu Apr 07, 2005 8:30 am Post subject:

Akhilraj,

Try this . I assumed that your file has the following Attributes

LRECL=80 RECFM=FB

We first subtract field 2 from field 3 and put the result at the end of every record ignoring the sign using INREC fields.

Now using OUTREC fields we subtract the computed value from field1.

akhilraj2005 · Beginner Joined: 23 Mar 2005 Posts: 12 Topics: 3

Is it possible to perform this in single step. i am using INREC,OUTREC for some calculations. these values are used by final OUTFILE OUTREC stmt. Therefore I wish that in final stmt i get - converted to + .

my card is like this

INREC FIELDS=(some calculations)
OUTREC FIELDS=(calculations based on values calculated by INREC)
OUTFILE FNAME=OUT,OUTREC(convert - into + in the manner requested by me)

kolusu · Posted: Thu Apr 07, 2005 12:01 pm Post subject:

akhilraj2005 · Beginner Joined: 23 Mar 2005 Posts: 12 Topics: 3

but how kolusu,

the syntax that i showed in my first post, is giveng me an error. Please post a solution.

kolusu · Posted: Fri Apr 08, 2005 5:45 am Post subject:

akhilraj2005 · Beginner Joined: 23 Mar 2005 Posts: 12 Topics: 3

It looks like converting the result of a subtraction from - to + in a single card is not possible. Shocked

my requirement is simple

(1,2,zd,sub,(3,4,zd,sub,5,6,zd))

now convert output of (3,4,zd,sub,5,6,zd) in + ve so that it can be subtracted by 1,2,zd (so that its not added because of - ve value).

kolusu · Posted: Fri Apr 08, 2005 7:31 am Post subject: