RE: Moving '-'

Murali,
Not sure what you're asking for...
If '-' is "in a 120 length" field, what else is in there? 
You would use %scan() to locate it and then %subst() to extract it.

If you want to move a single '-' character into a 120 field, just use EVAL,
Eval  my120Field = '-'

If you want to move 120 '-' characters into a 120-byte field, again, use
eval but include *ALL, as follows:

Eval my120Field = *ALL'-'



-Bob Cozzi
www.RPGxTools.com
RPG xTools - Enjoy programming again.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of murali dhar
Sent: Thursday, November 10, 2005 6:04 AM
To: RPG programming on the AS400 / iSeries
Subject: Moving '-'


Might be simple but some one please let me know urgently

 

How to move '-' in a 120 length character variable using a single opcode?

 

Thanks a lot,

                
---------------------------------
 Yahoo! FareChase - Search multiple travel sites in one click.