MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 50
ANYPARM cmd
# Script that executes a command in a remote session and returns the
# CIERROR and HPCIERR values for that command back to the local
# environment.
purge rmstatus; temp >$null
build rmstatus;rec=-80,,f,ascii; temp
remote file rmstatus=rmstatus:$back,oldtemp
continue
remote !cmd
remote echo setvar cierror !!cierror >*rmstatus
remote echo setvar hpcierr !!hpcierr >>*rmstatus
xeq rmstatus
echo remote CIERROR=!cierror, remote HPCIERR=!hpcierr
:rem listfile 4abc,2
First character in file name not alphabetic.(CIERR 530)
remote CIERROR=530, remote HPCIERR=530
Testing remote command execution