Use the RTVSBSSTS command to retrieve the subsystem status

Values that can be returned for subsystem status:

*ACTIVE The subsystem is running.

*ENDING The subsystem are ending.

*INACTIVE The subsystem is not running.

*RESTRICT(ED) The controlling subsystem in a restricted condition.

*STARTING A STRSBS command has been issued for the subsystem *BLANKS Cannot allocate subsystem description.

 
CMD Source:
/*----------------------------------------------------------------MRB*/
/* Retrieve Subsystem Status (calling API QWDRSBSD)                  */
/*-------------------------------------------------------------------*/
/* CRTCMD CMD(RTVSBSSTS) PGM(*LIBL/RTVSBSSTSC) RCFILE(MYLIB/MYSRCFIL)*/
/*   ALLOW(*IPGM *BPGM) HLPPNLGRP(*LIBL/RTVSBSSTSP) HLPID(RTVSBSSTS) */
/*-------------------------------------------------------------------*/
/* Marti Riera 13/11/2003                                            */
/* http://www.recursos-as400.com/                                    */
/* mailto:mrierab@terra.es                                           */
/*-------------------------------------------------------------------*/
/* Values that can be returned for sbs status (&SBSSTS):             */
/* *ACTIVE       The subsystem is running.                           */
/* *ENDING       An ENDSBS command has been issued for the subsystem */
/*               or an ENDSYS command has been issued, but the       */
/*               subsystem is still running.                         */
/* *INACTIVE     The subsystem is not running.                       */
/* *RESTRICT(ED) An ENDSBS command for the controlling subsystem,    */
/*               an ENDSYS *ALL command, or an ENDSYS command has    */
/*               has placed the controlling subsystem in a           */
/*               restricted condition.                               */
/* *STARTING     A STRSBS command has been issued for the subsystem, */
/*               but it is still in the process of being started.    */
/* *BLANKS       Cannot allocate subsystem description.              */
/*-------------------------------------------------------------------*/
/* More information:                                                 */
/* http://publib.boulder.ibm.com/pubs/html/as400/v5r1/ic2931/index.htm?-
          info/apis/qwdrsbsd.htm                                     */
/*-------------------------------------------------------------------*/
             CMD        PROMPT('Retrieve Subsystem Status')
             PARM       KWD(SBSNAM) TYPE(SBSNAM) SNGVAL((*)) MIN(1) +
                          PROMPT('Subsystem name')
 SBSNAM:     QUAL       TYPE(*NAME) LEN(10) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB)) EXPR(*YES) +
                          PROMPT('Library')
             PARM       KWD(SBSSTS) TYPE(*CHAR) LEN(9) RTNVAL(*YES) +
                          PROMPT('CL var Subsystem Status (9)') CLP Source:
/*----------------------------------------------------------------MRB*/
/* Retrieve Subsystem Status (calling API QWDRSBSD)                  */
/* Marti Riera 13/11/2003                                            */
/* http://www.recursos-as400.com/                                    */
/* mailto:mrierab@terra.es                                           */
/*-------------------------------------------------------------------*/
/* Values that can be returned for sbs status (&SBSSTS):             */
/* *ACTIVE       The subsystem is running.                           */
/* *ENDING       An ENDSBS command has been issued for the subsystem */
/*               or an ENDSYS command has been issued, but the       */
/*               subsystem is still running.                         */
/* *INACTIVE     The subsystem is not running.                       */
/* *RESTRICT(ED) An ENDSBS command for the controlling subsystem,    */
/*               an ENDSYS *ALL command, or an ENDSYS command has    */
/*               has placed the controlling subsystem in a           */
/*               restricted condition.                               */
/* *STARTING     A STRSBS command has been issued for the subsystem, */
/*               but it is still in the process of being started.    */
/* *BLANKS       Cannot allocate subsystem description.              */
/*-------------------------------------------------------------------*/
/* More information:                                                 */
/* http://publib.boulder.ibm.com/pubs/html/as400/v5r1/ic2931/index.htm?-
          info/apis/qwdrsbsd.htm                                     */
/*-------------------------------------------------------------------*/
             PGM        PARM(&SBSNAM &SBSSTS)
             DCL        VAR(&SBSNAM) TYPE(*CHAR) LEN(20)
             DCL        VAR(&SBSSTS) TYPE(*CHAR) LEN(9)
             DCL        VAR(&SBSSTSC) TYPE(*CHAR) LEN(12)
             DCL        VAR(&RCV) TYPE(*CHAR) LEN(244)
             DCL        VAR(&RCVL) TYPE(*DEC) LEN(4)
             DCL        VAR(&SBSFMT) TYPE(*CHAR) LEN(8)
             DCL        VAR(&ERR) TYPE(*DEC) LEN(4)
/* Set receiver variable to length = 136 */
             CHGVAR     VAR(&RCVL) VALUE(244)
/* Use qualified sbs name format */
             CHGVAR     VAR(&SBSFMT) VALUE(SBSI0200)
/* Retrieve subsystem status */
             CALL       PGM(QWDRSBSD) PARM(&RCV &RCVL &SBSFMT &SBSNAM
&ERR)
/* Extract sbs status from receiver */
             CHGVAR     VAR(&SBSSTSC) VALUE(%SST(&RCV 53 12))
             CHGVAR     VAR(&SBSSTS) VALUE(&SBSSTSC)
/* Send status */
             SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) +
                          MSGDTA('Subsystem status' *BCAT &SBSNAM +
                          *TCAT ' is' *BCAT &SBSSTSC *TCAT '.') +
                          MSGTYPE(*STATUS)
/* End program */
             RETURN
             ENDPGM
PNLGRP Source:
.*-----------------------------------------------------------------MRB*
.* Retrieve Subsystem Status (calling API QWDRSBSD)                   *
.* PANEL NAME  : RTVSBSSTSP  - Help Text                              *
.*--------------------------------------------------------------------*
.* CRTPNLGRP PNLGRP(*LIB/RTVSBSSTSP) SRCFILE(&MYSRCLIB/&MYSRCFILE)    *
.*--------------------------------------------------------------------*
.* Marti Riera 03/06/2005                                             *
.* http://www.recursos-as400.com/                                     *
.* mailto:mrierab@terra.es                                            *
.*--------------------------------------------------------------------*
.* 06/03/2006: Modificacion para recuperar mas estados de subsistema  *
.*             con el formato SBSI0200                                *
.*--------------------------------------------------------------------*
:PNLGRP.
.*--------------------------------------------------------------------*
.* Primary help text for the command.                                 *
.*--------------------------------------------------------------------*
:HELP NAME='RTVSBSSTS'.
Retrieve subsystem status
:P.
RTVSBSSTS Retrieve the subsystem status
:EHELP.
.*--------------------------------------------------------------------*
.*  Help text for the command parameters.                             *
.*--------------------------------------------------------------------*
:HELP NAME='RTVSBSSTS/SBSNAM'.
:XH3.Subsystem name (SBSNAM)
:P.
Input the subsystem and library name.
:EHELP.
.**********************************************************************
:HELP NAME='RTVSBSSTS/SBSSTS'.
:XH3.Subsystem Status (SBSSTS)
:P.
Specified the name of the CL variable that receives the value subsystem status.
The variable must be a character variable with minimum length of 9 characters.
:P.
Note: For compatibility with previous version of command, the length of
9
characters is used, for that reason value *RESTRICTED is given back *RESTRICT.
:P.
Values that can be returned for subsystem status:
:P.
:HP2.*ACTIVE:EHP2. The subsystem is running.
:P.
:HP2.*ENDING:EHP2. An ENDSBS command has been issued for the subsystem or an ENDSYS command has been issued, but the subsystem is still running.
:P.
:HP2.*INACTIVE:EHP2. The subsystem is not running.
:P.
:HP2.*RESTRICT(ED):EHP2. An ENDSBS command for the controlling subsystem, an ENDSYS *ALL command, or an ENDSYS command has placed the controlling subsystem in a restricted condition.
:P.
:HP2.*STARTING:EHP2. A STRSBS command has been issued for the subsystem, but it is still in the process of being started.
:P.
:HP2.*BLANKS:EHP2. Cannot allocate subsystem description.
:EHELP.
.*--------------------------------------------------------------------*
:EPNLGRP.