1. I have2 records in a PF.
READ PF
DO
DSPLY EMPNO
RETRN
DSPLY EMPNO
ENDDO
What was the output
2. SETON LR vs RETURN
3. Primary File
4. How to delete a deleted spaces
5. How to read a PF in reverse order in CL
6. I have a object in Lib A, B and C. But it shows in D
Lib..Why?
7.

Answer Posted / srikanth

After executing RETURN statement, any statements next to RETURN will also be executed. In the above code program will display two records. When you call same program again from same session next two records will be displayed. If program is coded with LR indicator, next call of same program will also display same first two records.

Is This Answer Correct ?    0 Yes 4 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

What are the types of identifiers?

579


what is file information data structure?

1390


How would display prime numbers using CL program?

5688


what was the robotech rpg?

691


how can you display specific subfile page on the screen in unequal subfile?

681






What is the purpose of record level identifier?

735


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

727


Assume 2 users are using the same file and first user updates some record in the file. Will the 2nd user will be able to see the updated record or not?

525


how do you use commitment control in rpg?

766


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

1889


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.

762


How to create a login screen using a command instead of display file.... intention is to get a password field on a command..... how do you achieve this...

1324


How to call one program from another program in RPG? please help me with the code

1269


How Chain operation copies the record's data to the input buffer for the program?

1092


what is kids-rpg?

679