Versions Compared

Old Version 1

changes.mady.by.user SRP Support

Saved on

compared with

New Version Current

changes.mady.by.user Corby Nagel

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Activate_Save_Select, Delete_Save_Select, Reduce, RList, Select...By

Example

Code Block
Function Save_Select_Example(param1)
 
Declare Subroutine Save_Select, Activate_Save_Select, Msg
$Insert Logical
 
ClearSelect 0
done = False$
ctr  = 0
 
Select "SYSREPOS" by "@ID" using 0 Then
   Save_Select("","SYSREPOS_LIST","","")
   Activate_Save_Select("SYSREPOS_LIST")
   Loop
      Readnext id Else done = True$
   Until done
      ctr += 1
   repeat
   Msg(@window,"Number of Records Selected = ": ctr)
end
 
return ctr