Home > IT Answers > AS/400 > simple code
I6
195 pts.
 simple code
iSeries development
Hi friends, Can you give the solution for the below mention simple code.and explain.what is output D CHR1 S 4A INZ('PEN') D CHR2 S 10A INZ('MYGET') D CHR3 S 8A INZ('GOOD') D CHR4 S 22A INZ C MOVEL CHR1 CHR4 C MOVE CHR2 CHR4 C EVAL CHR4=CHR3 C MOVE CHR1 CHR4

Software/Hardware used:
ASKED: July 30, 2008  5:20 AM
UPDATED: May 10, 2010  2:00 PM
RELATED QUESTIONS
Answer Wiki:
Certainly. Because I can't be assured that this Wiki editor will do what I want, I will make blanks appear as dots. <pre> 1. Movel CHR1 CHR4 = 'PEN...................' 2. Move CHR2 CHR4 = 'PEN.........MYGET.....' 3. Eval CHR4 = CHR3 = 'GOOD..................' 4. Move CHR1 CHR4 = 'GOOD..............PEN.' </pre> Note that you could have used the padding operation extender (P) to clear the receiving string before you moved data into it. Regards, Sloopy
Last Wiki Answer Submitted:  July 30, 2008  12:57 pm  by  Sloopy   2,195 pts.
All Answer Wiki Contributors:  Sloopy   2,195 pts.
To see all answers submitted to the Answer Wiki: View Answer History.


RSS - Discussions Help
Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

 

:)
Are you trying to get us to do your homework?

BigKat
 7,185 pts.
 

You saying that they actually *teach* this stuff? Man…

mcl
 2,725 pts.
 

You saying that they actually *teach* this stuff?

You think you could debug a 5000 line program that was full of this stuff if it hadn’t been taught to you? Man…

Tom

TomLiotta
 108,005 pts.
 

I do not understand the reason to comment or answer a question which was raised for 2 years ago. Is it any relevance today?

YuVa47
 1,285 pts.