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
- 7046 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 |
which of the cl command can be used to determine which logical files are dependent on a specific file?
what does dfu program you to do on a record?
WHAT IS FERERENTIAL INTRIGRITY ?
How can we sort an array?
Service Program : S1 Modules in S1 : M1 M1 having two procedures : ADD, SUB Current Binder Language STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") ENDPGMEXP Doubt: I need to add one new Module to the Service Program M2 having one procedure ‘MULT’ How to add this new module to the service program S1 ? If I need to recreate the service program again, Do I need to mention the Module M1 again while recreating along with new Module M2? There is no Binding Directory. Binder language structure will be like this STRPGMEXP PGMLVL(*CURRENT) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") EXPORT SYMBOL("MULT") ENDPGMEXP STRPGMEXP PGMLVL(*PREVIOUS) EXPORT SYMBOL("ADD") EXPORT SYMBOL("SUB") ENDPGMEXP
how you will know whether you are in sfldrop or sflfold mode?
OVRDBF FILE(xxx) TOFILE(libl/filename) share(*yes) In which scenario is share(*yes) used? could any one explain with an example?
What are Control level indicators?
How to avoid using indicators in ile ?
when are the unique constraints executed?
Q.How can more than two program be executed in batch mode through SBMJOB in CL PGM but the condition is that program must be executed one by one?Please wtite the senario? 2. IS it possibe more then two programs can be executed in batch mode and HOw it will be executed in CL program ,please write the senario?
What are the different types of keywords in display files?
RPG400 
