Evaluate
Weigh the pros and cons of technologies, products and projects you are considering.
Use the RTVSBSSTS command to retrieve the subsystem status
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.