The following code gets the working directory for the
caller. For the callable service, see
getwd (BPX1GWD, BPX4GWD) — Get the pathname of the working directory.
AMODE 64 callers use
BPX4GWD (getwd) example.
MVC BUFLENA,=F'1024' Max directory name return area
SPACE ,
CALL BPX1GWD, Get working directory name +
(BUFLENA, Input: Length directory work area +
BUFFERA, Buffer +
RETVAL, Return value: length or -1 +
RETCODE, Return code +
RSNCODE), Reason code +
VL,MF=(E,PLIST) ----------------------------------