Versions Compared

Key

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

...

This subroutine does not return a value. Use Get_Status() to check for errors.

See also

U2_SaveList()U2 Functions

Example

 
Code Block
Declare subroutine Rlist, U2_SaveList, FsMsg
 
* Retrieve the list on the U2 Server.
 
U2_GetList("CUSTOMER_LIST","U2_VOLUME_1",3)
 
If Get_Status(errCodes) then
 
   FsMsg(errCodes)
 
end else
 
   keyList = ""
 
   loop
 
     readnext id else done = 1
 
   until done
 
      keyList := id : @fm
 
   repeat  
 
   keyList[-1,1] = "" ; * remove the trailing @fm
 
end

...