Domino Code Fragment

Code Name*
Picklist from a View		Date*
07/20/2002		Source (or email address if you prefer)*
Palmi Lord
IP address:.65.33.70.125
Description*
Replace with a field name where i put * and add you server . db and view & message . its should work . its handy to pull from NAB or a Company phone directory for workorders or helpdesk ticket		Type*
Categories*
Implementation:
Modify code		Required Client:
5.0		Server:
5.0
Limitations:
DON'T WORK FROM WEB		Comments:
Files/Graphics attachments (if applicable): Code:
choice:=@PickList( [Custom] ; "SERVER" : "DATABASE" ; "VIEW" ; "MESSAGE" ;" Select one ";3 );
FIELD *FIELDNAME:= @Word(choice; "~"; 1);
FIELD *FIELDNAME := @Word(choice; "~"; 2);
FIELD *FIELDNAME := @Word(choice; "~"; 3);
FIELD *FIELDNAME := @Word(choice; "~"; 4);
FIELD *FIELDNAME := @Word(choice; "~"; 5);
FIELD *FIELDNAME := @Word(choice; "~"; 6);
FIELD *FIELDNAME := @Word(choice; "~"; 7);
""