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
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
during execution, an rpg/400 program automatically follows a sequence of operations for each record that is processed. The built-in program cycle includes the following logical steps.
how does the rpg element work?
How to handle duplicate error handling in RPG?
what is file information data structure?
How can we override a file during runtime in rpg?
How many program bind in one module....
are there any useful c runtime apis that I can call from rpg iv?
what is the use of sflnxtchg?
Explain mdt?
can anybody help me to solve this problem. the program that i m checking display error message saying "Record format for file AJDSPFFD does not match model file and decimal error. how to solve this problem. The AJDSPFFD is snapshot the AJTLOG that is the audit trail list.
How to write record if no field or the field are different in physical file in rpgle ?
how can you display specific subfile page on the screen in unequal subfile?
What is ment by record level identifier?
How to declare the pull button in AS/400..
what is data area and how it is used in rpg program ?