simple code

195 pts.

Tags:

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

Asked: July 30, 2008 5:20 AM Last updated: May 10, 2010 2:00 PM

Answer Wiki

Last updated: July 30, 2008 12:57 PM GMT

Sloopy2,195 pts.
History
Contributors
- Ordered by most recent
- Sloopy2,195 pts.

Thanks. We'll let you know when a new response is added.

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

Discuss This Question: 4 Replies

There was an error processing your information. Please try again later.

Thanks. We'll let you know when a new response is added.

Send me notifications when members answer or reply to this question.

BigKat Jul 30, 2008 12:58 AM GMT

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

9,270 pointsBadges:

report
mcl Jul 31, 2008 10:42 PM GMT

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

2,740 pointsBadges:

report
TomLiotta May 10, 2010 7:14 AM GMT

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

125,585 pointsBadges:

report
YuVa47 May 10, 2010 2:00 PM GMT

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

1,300 pointsBadges:

report