C MOVEL CHR1 CHR4 CHR4='PEN ' C MOVE CHR2 CHR4 CHR4

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

Question Posted / vaibhav gupta

4 Answers
6586 Views
I also Faced
E-Mail Answers

Answer Posted / vaibhav gupta

C MOVEL CHR1 CHR4
CHR4='PEN '
C MOVE CHR2 CHR4
CHR4='PEN MYGET '
C EVAL CHR4=CHR3
CHR4='GOOD '
C MOVE CHR1 CHR4
CHR4='GOOD PEN '

Is This Answer Correct ?

13 Yes

0 No

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

How to declare the pull button in AS/400..

2316

Explain mdt?

1110

What is ment by record level identifier?

1127

what is a rpg?

1171

What is file identifier where we can use?

1114

what happens when sflsiz = sflpag? What are the advantages and disadvantages?

1176

How to handle duplicate error handling in RPG?

2277

what is the rpg system?

1257

what are the key words you must use when using a subfile?

1157

What are the types of identifiers?

1006

which program rpg or cl is efficent to update a transaction onto a database file and why ?

1233

How to write record if no field or the field are different in physical file in rpgle ?

946

1. What is bound-by-call and bound-by-reference? 2. Where and why is *Nomain used? 3. What are the difficulties faced by programmers when using service programs? 4. Explain the different ways of parsing and compiling XML in iSeries.

6475

When it is desirable to describe files Internally?

1690

what is the necessary keyword needed to scroll subfile records?

1136