Interested to Buy Any Domain ? << Click Here >> for more details...
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.
- 2 Answers
- 7569 Views
- IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / 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 |
Answer / syam
I am Pasting Code.
FFILE1 IF E K DISK USROPN ->Reading pf
FDSPF CF E WORKSTN USROPN ->dspy file
C OPEN FILE1
C OPEN DSPF
C SETLL FILE1
C READ FILE1 51
C *IN51 DOWEQ *OFF
C WRITE DSPFM1
C READ FILE1 51
C ENDDO
C CLOSE FILE1
C CLOSE DSPF
C RETURN
it will show all the records from file undil file ends.
if you need ILE RPG Free fromat code pls post again your
request
| Is This Answer Correct ? | 1 Yes | 0 No |
How many libraries can be there in library list ?
Can an indexed file be accessed in arrival seQuence in RPG program ?
Hi friends.. i want to be a IBM MainFrame Professional.. can any body tell me what is requirement for that... i m just BA, MA, and have simple diploma in Computers. what is pre-requisite.
Good morning my experts.Im kuppi.im working as a software trainee on AS/400 technology.i have also joined with ibmi5 team.im trying to convert date with cl/400 coding.I have taken 2 parameters(like date and date types). A. If suppose date type is j,Now i want to convert date to *MDY format B. if date type is M,now i want to convert date to *JUL format C. sending a Program message with the value of converted date.
Why do you use Keep and Assume Keywords.
maximum number of subfiles that can be active for a single file is?
when are the referential constraints executed?
Specify different indicators used in RPG?
What is the default value for the number of increment for the physical file?
What is the difference between regular logical file and join logical file?
How to know message id (errorid) in msgfile when error is occurred on screen ? WRKMSF will display all error id but i want to know error id based on error msg only?
1 Answers IBM, Ignis Technologies, SSR,
what is OUTFILE?what is the uses and disadvantage? where we can use this?
RPG400 
