$BASICTYPE "P"
SUBROUTINE SELECTITEM(RETURNVAL, INPUT, OUTPUT)
EXECUTE 'ECLTYPE "P"'
BEGIN CASE
  CASE INPUT<1>="FILES"
	* selection des fichiers
   EXECUTE 'SSELECT VOC WITH F1 = "DIR" ' CAPTURING DUMMY
  CASE INPUT<1>="ITEMS"
   EXECUTE "SSELECT ":INPUT<2>:' WITH @ID <> "_]"' CAPTURING DUMMY
  CASE 1
   RETURN 1
END CASE
LIST=""
10 *
READNEXT CLE THEN
  LIST<-1>=CLE
  GOTO 10
END
OUTPUT=LIST
RETURNVAL=1234
RETURN 1
