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!!)
- 1 Answers
- 4614 Views
- CTS, I also Faced
- E-Mail Answers
Answer / ajay
I didn`t get your question clearly but below my comments
help you....
As you want subfile to show incremented account number
and as stated in ur question you are fetching initial value
for account number from dataarea accnt1
do n ( n :- subfile page size)
move accnt1 account_no
eval account_no=accnt1
eval no=no+1
write sfl_format
eval rrn=rrn+1 ( rrn :- this is associated with SFL)
enddo
exfmt sfl_ctlfmt
| Is This Answer Correct ? | 0 Yes | 0 No |
What is the as400 called now?
how can u check no of records in a file?
How do you set the keywords SFLSIZ and SFLPAG if you want the subfile to dynamically expand?
what is the use of unique keyword and what level it is defined?
How do you grant authority?
What is the difference between Physical and Logical files ?
what is the difference between *like and *namvar ?
when are the referential constraints executed?
which cl command can be used at program execution to redirect the file named in an rpg program?
What is an Array Data Structure?
Q.1.What is differences in STRDBG and STRISDB debugging commands? 2.Where we should use STRDBG and STRISDB Debugging commands?
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
RPG400 
