Re: CL preferred method -- MIDRANGE-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.




Here is an example I have of the API.  Maybe you can modify it:

PGM
DCL VAR(&PCT) TYPE(*CHAR) LEN(7)
DCL VAR(&RCVDTA) TYPE(*CHAR) LEN(067)
DCL VAR(&RCVLEN) TYPE(*CHAR) LEN(4) VALUE(X'00000043')
DCL VAR(&RESETO) TYPE(*CHAR) LEN(10) VALUE('*YES      ')
DCL VAR(&FMTNAM) TYPE(*CHAR) LEN(08) VALUE('SSTS0200')
DCL VAR(&ERRSTS) TYPE(*CHAR) LEN(08) VALUE(X'0000000800000000')
DCL VAR(&PCTASP) TYPE(*DEC) LEN(7) VALUE(0)
DCL VAR(&PCTX) TYPE(*DEC) LEN(7 4) VALUE(0)
CALL PGM(QWCRSSTS) PARM(&RCVDTA &RCVLEN &FMTNAM &RESETO &ERRSTS)
CHGVAR VAR(&PCTASP) VALUE(%BIN(&RCVDTA 53 4))
CHGVAR VAR(&PCTX) VALUE(&PCTASP / 10000)
CHGVAR VAR(&PCT) VALUE(&PCTX)
SNDPGMMSG MSG('The system disk is ' !! &PCT *TCAT '% used')
ENDPGM



----------------------------
Bryan Dietz
Aktion Associates

midrange-l-bounces@xxxxxxxxxxxx wrote on 07/28/2004 05:13:57 PM:

-> What is the preferred method for getting a single item from out from a
-> command such as WRKSYSSTS or WRKDSKSTS?
-> For example, if I want to just get the %ASP used from WRKSYSSTS & then
send
-> it out in a mail message in a CL PROGRAM?

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.