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 / amitava

First of all, %found() function is not set after the READ
operation. If not %eof() can be used instead.

Is This Answer Correct ?    8 Yes 3 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

What is ment by record level identifier?

639


What is the diff bw PF/LF Name and their Record format name? what is restriction in record format then file name?

2504


is this a rpg channel?

663


How can we override a file during runtime in rpg?

671


What are the types of identifiers?

554






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

1863


what is kids-rpg?

655


what is a rpg?

681


When it is desirable to describe files Internally?

1167


If my rpg program has a date field, what extra care I have to take while compiling that rpg program? If the file is keyed and I have declared the file as well as key list properly in my program. Still am getting an error message like "chain/reade operation is not allowed" what may be the case?

600


how do you use commitment control in rpg?

734


Program to read marks of 10 students for 4 subjects and compute and display total marks and status of each student in rpg

707


How do u design a physical file, when you have 2 Unique fields like for eg in A student file student ID and student examination no both are unique

537


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

696


We have job which is running as batch. It takes atleast 06 hours to complete tht job. But I wanna do tht job with in 3 hours?

748