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
give an eg of ACQ-(ACQUIRE),BIT OFF,BIT ON,DEALLOC,DUMP,FEOD,FORCE,MHHZO,MHLZO,MHLLZO,MLHZO,REL,RESET,TESTZ,TESTB,TESTN----GIVE SMALL EXAMPLE TO THE OPCODES...TO UNDERSTAND FUNCTIONING...........
what do you mean by an input subfile, what are the keywords required?
what is the rpg system?
How to declare the pull button in AS/400..
How to handle duplicate error handling in RPG?
what is program status data structure?
what is the necessary keyword needed to scroll subfile records?
what was the robotech rpg?
How to call one program from another program in RPG? please help me with the code
thanks mr.Harshad R Suryawaunshi,i'm new to as400 i think you are telling in rpgile i know only rpg400 if possible can you tell in rpg400
what is the use of sflnxtchg?
What are the types of identifiers?
what is the procedure and explain about real time scenario.
When it is desirable to describe files Internally?
Explain mdt?