| Author |
Message |
shivashunmugam Muthu
Active User
Joined: 22 Jul 2005
Posts: 114
Location: Chennai
|
|
|
|
| Whether CALC Records will have Duplicates options? that is other than DN... If DF & DL are alloweed, How come we could fetch the record with all duplicates using CALC? |
|
| Back to top |
|
 |
References
|
 Posted: Wed Jul 27, 2005 10:49 am Post subject: Re: Whether CALC Records will have Duplicates options? |
|
|
|
|
Pjoe
New User
Joined: 22 Jul 2005
Posts: 10
|
|
|
|
Hi,
Yes, calc records can have duplicate option.
The processing can be done as follows.
000-calc-para.
move ws-key to record-key.
obtain calc record
on db-rec-not-found
go to 000-exit
end-if.
move 'n' to ws-end.
peform 100-duplicate-para thru 100-exit until ws-end ='y'.............
000-exit
exit.
100-duplicate-para.
obtain duplicate record
on any-error-status
move 'y' to ws-end
go to 100-exit
end-if.
if ws-key == record-key
display 'i am a duplicate'
else
move 'y' to ws-end.
100-exit.
exit.
lemme know if you have any issues?
PJ |
|
| Back to top |
|
|
Pjoe
New User
Joined: 22 Jul 2005
Posts: 10
|
|
|
|
Hi,
Yes, calc records can have duplicate option.
The processing can be done as follows.
000-calc-para.
move ws-key to record-key.
obtain calc record
on db-rec-not-found
go to 000-exit
end-if.
move 'n' to ws-end.
peform 100-duplicate-para thru 100-exit until ws-end ='y'.............
000-exit
exit.
100-duplicate-para.
obtain duplicate record
on any-error-status
move 'y' to ws-end
go to 100-exit
end-if.
if ws-key == record-key
display 'i am a duplicate'
else
move 'y' to ws-end.
100-exit.
exit.
lemme know if you have any issues?
PJ |
|
| Back to top |
|
|
|
|
