Interested to Buy Any Domain ? << Click Here >> for more details...
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
- 5379 Views
- CTS, I also Faced
- E-Mail Answers
Answer Posted / 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 |
Post New Answer View All Answers
when do you use f-spec. Continuation line ?
how many types of display are available on as/400 for user interaction?
what is xfoot opcode ?
What is the maximum number of subfiles that can be specified in a display file?
an access path may be in which sequence?
at what level s,o are defined and what they will do?
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 do you know that records are locked?
how to get the cursor position?
what is the command used to invoke rlu ?
What Is Ddm ?
some special characters I key in my html source members show different on my web pages. Why? How can I solve this?
what does dfu program you to do on a record?
how you get the relative record in a subfile in which cursor is located?
distinguish between terminating a program through seton lr and return?
