what is code for reading member in rpgle when wehave
like extmbr(*all)
so we have 3 members in *all then i want to read first
record in 2member
- 2 Answers
- 12237 Views
- HCL, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / svankipu
Use OVRDBF & replace the member(MBR(*FIRST)) with second
member's name.
Now call the RPG pgm to read the second(2nd) member.
- OR -
If u r already in RPG pgm, use QCMDEXC for overriding the
member with 2nd mbr & continue.
- OR -
If it permits use EXTMBR(2nd mbr-name) instead of EXTMBR(*ALL)
| Is This Answer Correct ? | 15 Yes | 0 No |
Answer / adhar246
First do *HIVAL SSETGT on the file. It will set the pointer after the last record of first member. than do simple read operation. it will start reading from first record of second member.
| Is This Answer Correct ? | 3 Yes | 5 No |
Why we sometimes use same file name in file and tofile in ovrdbf and sometimes different?
What is the purpose of PR and PI in calling program and called program? in Called program PR is compulsory?
how to develop some simple graphs (bar charts) using just html?
what are the various types of device files?
what is meant by object lock requests,held locks and locks waiting to be applied(wrkobjlck) why should we apply for locks.Please explain sir.
what is cab?
How to create a user defined (general) data area?
maximum number of subfiles that can defined in a rpg program for one display file is?
how a varible can be passed to a subfile...accnt1 contain data in a data area..ie Daccnt1 uds,Daccnt2 3 overlay(accnt1:1), DNo 4 overlay(accnt1:4)..we want to transfer this dataarea value from acnt0001 to a subfile..that means to enter each record we have to incriment account no,, i normal window we can do move accnt1 account_no eval account_no=accnt1 eval no=no+1 exfmt usr_account how it possible with Subfile????????.Please do answer? (Thank you for all your answers dear friends!!)
What is data structure in as400? What is the use of data structure?
PGM QSH CMD('/QOpenSys/bin/sftp -b/home/test/myfile.txt serverUserID@server') ENDPGM Can u plz tell me what the above code do exactly?
how can send report to user through cl program in as400
RPG400 
