The following code creates a new way for
usr/dataproc.next.t to
link to an existing file,
usr/user05/yearrecs.t . For the callable
service, see
link (BPX1LNK, BPX4LNK) — Create a link to a file. AMODE 64 callers use
BPX4LNK (link) example.
MVC BUFLENA,=F'21'
MVC BUFFERA(21),=CL21'usr/user05/yearrecs.t'
MVC BUFLENB,=F'19'
MVC BUFFERB(19),=CL19'usr/dataproc.next.t'
SPACE ,
CALL BPX1LNK, Create a link to a file +
(BUFLENA, Input: Name length: existing +
BUFFERA, Input: Name of existing file +
BUFLENB, Input: Name length: link +
BUFFERB, Input: Name of link to file +
RETVAL, Return value: 0 or -1 +
RETCODE, Return code +
RSNCODE), Reason code +
VL,MF=(E,PLIST) ----------------------------------