MVSFORUMS.com

Martin · Beginner Joined: 20 Mar 2006 Posts: 133 Topics: 58

Hi All,

I will explain the problem with an example.

Table :-

shekar123 · Posted: Mon Jul 17, 2006 4:58 am Post subject:

Martin,

I am assuming table TABLEA containg the fields as shown by you which has a value 'X1' in its column P1 which means one row is already inserted in the table.You can first select the value of the column from TABLEA and then check if the value is 'X1' then u can insert into TABLEA with the new row.There could be other ways of doing it also by an query.Try this code:

Martin · Beginner Joined: 20 Mar 2006 Posts: 133 Topics: 58

Shekar123,

I do not want to use COBOL here. The idea is to run a SPUFI and insert the rows.

- Martin

kolusu · Posted: Mon Jul 17, 2006 7:23 am Post subject:

Martin,

Try this

Martin · Beginner Joined: 20 Mar 2006 Posts: 133 Topics: 58

kolusu,

Thanks so much for looking into this.

I need one more small info. How do I set the value of say :-

P7 of Y1 = P7 of X1

Could you please let me know?

Thanks,
Martin

kolusu · Posted: Mon Jul 17, 2006 10:02 am Post subject:

Martin · Beginner Joined: 20 Mar 2006 Posts: 133 Topics: 58

Ooops !!

Sorry for the confusion. P7 is another column on the table.

Also,

In the SQL given above Is the case always P1?

"CASE P1" Question

kolusu · Posted: Mon Jul 17, 2006 10:14 am Post subject:

Martin · Beginner Joined: 20 Mar 2006 Posts: 133 Topics: 58

Kolusu,

Please correct me If am wrong here: -

Here's what I understand of the SQL you provided.

WHEN 'X1' THEN CHAR('Y1')
ELSE CHAR(' ')
END
,CASE P1 .

This will set the the value of P1 to Y1.

CASE P1
WHEN 'X1' THEN MAX(P2) + 1
ELSE INT(0)
END

This will set the value of P2 = P2 +1

But,

,CASE P1
WHEN 'X1' THEN CHAR('EFG')
ELSE CHAR(' ')
END

Will this set the the column V3 = EFG?

- Martin

kolusu · Posted: Mon Jul 17, 2006 10:33 am Post subject: