The following code changes the access and modification
times of
/usr/private/workfile.t to the
current time. For the callable service, see
utime (BPX1UTI, BPX4UTI) — Set file access and modification times.
AMODE 64 callers use
BPX4UTI (utime) example.
MVC BUFFERA(23),=CL23'/usr/private/workfile.t'
MVC BUFLENA,=F'23'
MVC NEWTIMES,=FL8'-1' Current time
SPACE ,
CALL BPX1UTI, Set file access and modify times +
(BUFLENA, Input: Pathname length +
BUFFERA, Input: Pathname +
NEWTIMES, Input: Access/Modification time +
RETVAL, Return value: 0 or -1 +
RETCODE, Return code +
RSNCODE), Reason code +
VL,MF=(E,PLIST) ----------------------------------