The API is new. The technique that I described worked in the early releases of CPF. Al Al Barsa, Jr. Barsa Consulting Group, LLC 400>390 914-251-1234 914-251-9406 fax http://www.barsaconsulting.com http://www.taatool.com Evan Harris <email@example.com To: firstname.lastname@example.org > cc: Sent by: Subject: Re: Doing A reclaim Storage midrange-l-admin@mi drange.com 01/04/02 03:11 AM Please respond to midrange-l Rob you even have the same status message text as I have while waiting for the subsystems to end... Having said that I'd be interested in the reason (if any) Al is recommending the message rather than what is a rather straightforward API. Regards Evan Harris >Actually Al, I prefer: >... > ENDSBS SBS(*ALL) OPTION(*IMMED) >... > /* >+ > | Verify that system is in restricted state. >+ > */ > SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) + > MSGDTA('Verifying that we are now in + > restricted state.') TOPGMQ(*EXT) + > MSGTYPE(*STATUS) >SbsCheck: > CALL PGM(QWCRSSTS) PARM(&RECEIVER &RECEIVERL + > &FORMAT &RESET &ERROR) > > /* >+ > | Restricted state flag is byte 31 (offset 30): >+ > | 0 = not in restricted state >+ > | 1 = restricted state >+ > */ > CHGVAR VAR(&RSTDFLAG) VALUE(%SST(&RECEIVER 31 1)) > IF COND(&RSTDFLAG *EQ '0') THEN(DO) > SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('** + > Waiting for subsystems to end') + > TOPGMQ(*EXT) MSGTYPE(*STATUS) > DLYJOB DLY(60) > GOTO CMDLBL(SbsCheck) > ENDDO >... > >Rob Berendt _______________________________________________ This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l or email: MIDRANGE-Lemail@example.com Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.