George,
It should be there, but it ain't.
But for this one it is easier to roll your own verb, than any other
course of action.
Just flesh out the following with error handling, @SYSTEM.RETURN.CODE,
and maybe a get(arg.) for "FROM [listno]" for numbered select lists,
@SYSTEM.RE
>CT CDS.BP STORE.LIST
STORE.LIST
0001 PROGRAM STORE.LIST
0002 GET(ARG.) FNAME ELSE STOP
0003 OPEN FNAME TO F ELSE STOP
0004 GET(ARG.) ID ELSE STOPM 'no id'
0005 RECORDLOCKU F,ID LOCKED STOP 'Locked by user ':STATUS()
0006 $OPTIONS -VAR.SELECT
0007 READLIST LIST FROM 0 ELSE STOPM 'no active list'
0008 WRITE LIST TO F, ID
0009 END
>CATALOG CDS.BP STORE.LIST
"STORE.LIST" cataloged.
>SELECT VOC SAMPLE
10 record(s) selected to SELECT list #0.
>>STORE.LIST VOCLIB GEORGE
>ED VOCLIB GEORGE
10 lines long.
----: P
0001: HASH.TEST
0002: QUIT.KEY
0003: CLEAR.LOCKS
0004: ><
0005: >=
0006: DIVX
0007: =<
0008: T.LOAD
0009: =>
0010: MENU.DOC
Bottom at line 10.
----:
>
The above was for:
>.L RELLEVEL
RELLEVEL
001 X
002 10.0.16
003 PICK
004 PICK.FORMAT
005 10.0.16
cds
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
