SET names="Deborah Noah Martha Bowie"
&sql(SELECT $LISTFROMSTRING(:names,' ')
INTO :namelist)
IF SQLCODE=0 {
FOR n=1:1:$LISTLENGTH(namelist) {WRITE !,"element ",n,": ",$LIST(namelist,n)}
}
ELSE {WRITE !,"Error code;",SQLCODE }
SET names="Deborah,Noah,Martha,Bowie"
&sql(SELECT $LISTFROMSTRING(:names)
INTO :namelist)
IF SQLCODE=0 {
FOR n=1:1:$LISTLENGTH(namelist) {WRITE !,"element ",n,": ",$LIST(namelist,n)}
}
ELSE {WRITE !,"Error code;",SQLCODE }