|
Hi Tim,
There are many ways to do what you described. Here is one, if your list box is
filled with an SCL List :
call notify ("MYLISTBO","_GET_NSELECT_",maxsel); /* get number of selections
*/
if maxsel > 0 /* if element(s) selected
*/
then do;
dsid = open("lib.data","U"); /* open dataset in update
mode */
do i = 1 to maxsel ; /* loop on selected
elements */
call notify ("MYLISTBO","_SELECTED_",i,row); /* get row of selected
element */
rc = append(dsid); /* create new record in
dataset*/
call putvarc(dsid,varnum(dsid,"myvar"), /* put in myvar
... */
getitemc(methlis,row)); /* ... selected
element */
rc=update(dsid); /* update new
record */
end;
dsid = close(dsid); /* close
dataset */
end;
-------------------------------
Ivan SON
LACO Information Services n.v.
Zaventem (Belgium)
-------------------------------
|
