I have a file containing client no, order no and order line no. This has to be transformed to a new file such that for each client no a new line has to be inserted for the first order.

Input

 
Client No    Order No    Order Line no
12345        A001        0001
12345        A001        0002
12345        A001        0003
12345        A003        0001
12345        A003        0002
23456        A002        0001
23456        A002        0002
34567        A005        0001
34567        A006        0001 

Desired Output:

 
Client No    Order No    Order Line no
12345        A001        0001
12345        A001        0002
12345        A001        0003
12345        A001        9999
12345        A003        0001
12345        A003        0002
23456        A002        0001
23456        A002        0002 
23456        A002        9999
34567        A005        0001
34567        A005        9999
34567        A006        0001
 

Can anyone help me out in adding a new record one for the first order of each client.

Thanks,
Shrikant

This message has been edited. Last edited by: Kerry,

table file
print
hold
end
-run
filedef hold (apppend
-run
table file
sum
compute
onhold set holdlist
hold

everything you need is there

Shrikant

I do not understand the question.
Your examples shows a 3 new lines but not on places where your question would have them.

3 client, 5 orders, so five new lines ??

Is this a reporting question or a maintain?

Thanks JG and Frank for your replies.

Frank - As mentioned, I need to have a extra line only for the first order of any client. That means the number of new lines inserted should be equal to distint clients in the input file and it has to be inserted for the first order of that client.

Do it as JG already indicated in his post.
You have everything in place.
So first table the input file entirely, printing all fields you need.
Then table the file again, only now do a sum and a by for clientnr and a by lowest 1 for your ordernumber and compute the new orderline number.
BE sure the result is exactly the same as the first table and append it to the first table.
Then table the resulting file in the order you need.
You only need to translate these hints into real code.

Hope this helps....

quote:

filedef hold (apppend

Spot the mistake

should be

filedef hold (append

Shrikant,

Right! Only for the first order of each client:

  
TABLE FILE SHRIKANT
PRINT CLIENTNO ORDERNO LINENO
ON TABLE HOLD AS ADDREC FORMAT ALPHA
END
FILEDEF ADDREC DISK ADDREC.FTM (APPEND
SET HOLDLIST=PRINTONLY
TABLE FILE SHRIKANT
SUM FST.ORDERNO
COMPUTE NEWLINE/I4L=9999;
BY CLIENTNO
ON TABLE SAVE AS ADDREC
END
TABLE FILE ADDREC
PRINT LINENO
BY CLIENTNO
BY ORDERNO
END

With FILEDEF, it is always good practice to use a FILEDEF ddname DISK filename after you have finished appending.