Whether CALC Records will have Duplicates options?

shivashunmugam Muthu · Posted: Wed Jul 27, 2005 10:49 am

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?

Pjoe · New User Joined: 22 Jul 2005 Posts: 17

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

Pjoe · New User Joined: 22 Jul 2005 Posts: 17

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