Tweet
Trying to retreive system status using QWCRSSTS API. The SYSSTATE should be either a '0' or a '1' coming out of the pgm below. In Debug SYSSTATE is ' '. Am I missing something. I would like to use this API in my SAVSYS pgm. I do not have the capability to test to restricted state. Thanks Jeff SAMPLE PROGRAM BELOW PGM PARM(&SYSSTATE) DCL VAR(&RCVRVAR) TYPE(*CHAR) LEN(64) DCL VAR(&RCVRLEN) TYPE(*CHAR) LEN(04) DCL VAR(&ERRCODE) TYPE(*CHAR) LEN(04) DCL VAR(&RESET) TYPE(*CHAR) LEN(10) DCL VAR(&SYSSTATE) TYPE(*CHAR) LEN(01) CHGVAR VAR(&RESET) VALUE('*YES') CHGVAR VAR(%BIN(&RCVRLEN 1 4)) VALUE(0064) CHGVAR VAR(&ERRCODE) VALUE(X'00000000') CALL PGM(QWCRSSTS) PARM(&RCVRVAR &RCVRLEN + + 'SSTS0200' &RESET &ERRCODE) CHGVAR VAR(&SYSSTATE) VALUE(%SST(&RCVRVAR 31 1)) IF COND(&SYSSTATE *EQ '1') THEN(+ SNDMSG MSG('SYSTEM IS IN A RESTRICTED STATE') + TOUSR(QSYSOPR) ) ENDPGM