BPX1RDX (read extlink) example
The following code reads the contents of external symbolic
link /personnel/tmpxlink into the buffer provided.
This will be the pathname that was specified when the external
symbolic link was defined. For the callable service, see read_extlink (BPX1RDX, BPX4RDX) — Read an external symbolic link. AMODE 64 callers use BPX4RDX (read extlink) example.
MVC BUFFERB(19),=CL19'/personnel/tmpxlink'
MVC BUFLENB,=F'19'
LA R15,BUFFERA
ST R15,BUFA
MVC BUFLENA,=F'1023'
SPACE ,
CALL BPX1RDX, Read value of an external link +
(BUFLENB, Input: Linkname length +
BUFFERB, Input: Link name +
BUFLENA, Input: Buffer size - 1023 +
BUFA, ->Buffer for symbolic link +
RETVAL, Return value: 0, -1 or char count +
RETCODE, Return code +
RSNCODE), Reason code +
VL,MF=(E,PLIST) ----------------------------------