1.Are there any errors in the following statement?If so
then list them.DTAARA is a data area having a field EMP #
and EMPNO is a
field in the file EMPPF.Which has one record.
READ EMPPF
IF %FOUND(EMPPF)
IN DTAARA
EVAL EMP#=EMPNO
OUT DTAARA
ENDIF
Answer Posted / abhishek
Sorry forgot to put * before data area.
READ EMPPF
IF %FOUND(EMPPF)
*LOCK IN *DTAARA
EVAL EMP#=EMPNO
OUT *DTAARA
ENDIF
| Is This Answer Correct ? | 0 Yes | 2 No |
Post New Answer View All Answers
is this a rpg channel?
How to define data area in RPG program? In which scenario multi occurrence DS is use in AS400?
how do I play {insert rpg system here}?
Please tell me how to read the records from a file with load an array of size with error conditions(The logic answer for this question is ARR is array of 99 elements Z-ADD 0 IDX *LOVAL SETLL FILE READ FILE 99 *IN99 DOWEQ *OFF IDX ANDLT 99 ADD 1 IDX MOVE FIELD ARR,IDX READ FILE 99 ENDDO).So,Please give me the complete of this code.
are there any useful c runtime apis that I can call from rpg iv?
how do I preserve and clean the array?
what do you mean by an input subfile, what are the keywords required?
how does the rpg element work?
what is *place and *auto keyword in prtf ?plz explain
can I touch the array during treatments?
How to declare the pull button in AS/400..
How can we know running job is batch or interactive?
what is data area and how it is used in rpg program ?
What is the difference between copybooks and subprocedures in as400?
how do I declare a table or array in rpg iv?