error_subsys()

ERROR_$SUBSYS                     Domain/OS                      ERROR_$SUBSYS


NAME
     error_$subsys - return the subsystem code from a completion status

SYNOPSIS (C)
     #include <apollo/base.h>
     #include <apollo/error.h>

     short error_$subsys(status_$t &status)

SYNOPSIS (Pascal)
     %include '/sys/ins/base.ins.pas';
     %include '/sys/ins/error.ins.pas';

     function error_$subsys(in status: status_$t): integer;

SYNOPSIS (FORTRAN)
     %include '/sys/ins/base.ins.ftn'
     %include '/sys/ins/error.ins.ftn'

           integer*2 subsys
           integer*4 status

           subsys = error_$subsys(status)

DESCRIPTION
     Error_$subsys returns the subsystem code (subsys) from the completion
     status passed in status.

     Error_$subsys is provided as an aid to interpreting completion status in
     FORTRAN, though it may be called from C or Pascal as well.  In C and Pas-
     cal with status declared as type status_$t, error_$code(status) just
     returns status.subsys.

     status
          A completion status from a Domain/OS call.

SEE ALSO
     status_$intro.
Museum
