Changes in above code. FFILE1 IF E K DISK USROPN ->

How I can read and display three fields in the record
format DSPFM1 of the display file,while
one field(using in one file) is NAME which is Key field in
field reference file and another two fields are AGE and ROLL
NO are using another file.

Please send me coding part.

Question Posted / syam

2 Answers
7549 Views
IBM, I also Faced
E-Mail Answers

Answer Posted / syam

Changes in above code.

FFILE1 IF E K DISK USROPN ->Reading pf1
FFILE2 IF E K DISK USROPN ->Reading pf2
FDSPF CF E WORKSTN USROPN ->dspy file

C OPEN FILE1
C OPEN FILE2
C OPEN DSPF
C NAME SETLL FILE1
C READ recd1 51
C *IN51 DOWEQ *OFF
C NAME CHAIN recd2 41
C N41 WRITE DSPFM1
C READ FILE1 51
C ENDDO
C CLOSE FILE1
C CLOSE FILE2
C CLOSE DSPF
C RETURN

1.File1 & File2 need NAME key field
2.In dsplay DSPFM1 need Name, Age and Roll filed.
Recd1 = record format of File1 , Recd2 = record format of
file2

Is This Answer Correct ?

3 Yes

1 No

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

define what a data queue is along with a brief example of what it may be used for?

1797

when should I use method get, and when should I use method post in my cgis?

1128

what is the length of a variable in rpg?

1670

how do you specify page overflow indicator for printer files in rpg?

2272

maximum number of subfiles that can be active for a single file is?

1690

can we define multi-dimensional arrays in rpg ?

1614

What is difference between rename and prefix?

1034

Hello, I have created a CMD type object. In one of the fields in Display file , I would like to see All the Source files present by pass the name of Library. Tried using CHoice(Keyword) and Choicepgm on PARM , but doesn't seems to be working. Any help please..

2276

Can we debug the MSGW JOBS?

1323

what is logical file?

1022

which of the following operations does not zero the field flda defined as 4,0?

1180

What is RETURN CURSER LOCATION in subfile?

1565

what is a physical file?

1795

maximum number of subfiles that can defined in a rpg program for one display file is?

1977

how can you detect overflow for a print program that prints multiple lines per cycle?

1709