Yo la utilizo asi
100 /*
***************************************************************** */
19/07/04
200 /* api estatus devuelve parametros */ 19/07/04
300 /* ------- APIsst ------- */ 19/07/04
400
/*********************************************************************/
19/07/04
500 /* */ 19/07/04
600 /* APIs USADAS QWCRSSTS */ 19/07/04
700 /*
******************************************************************/
19/07/04
800 PGM PARM(&CPUCOM &ASPCOM &SISTEMA)
19/07/04
900 19/07/04
1000 /* VARIABLES FOR QWCRSSTS API */ 19/07/04
1100 DCL VAR(&RCVLENGTH) TYPE(*CHAR) LEN(4)
19/07/04
1200 DCL VAR(&RECEIVER) TYPE(*CHAR) LEN(72)
19/07/04
1300 DCL VAR(&FORMAT) TYPE(*CHAR) LEN(8)
19/07/04
1400 DCL VAR(&RESET) TYPE(*CHAR) LEN(10)
19/07/04
1500 DCL VAR(&ERRORCODE) TYPE(*CHAR) LEN(4)
19/07/04
1600 /* WORKING VARIABLES */ 19/07/04
1700 DCL VAR(&CPU) TYPE(*DEC) LEN(4 0) 19/07/04
1800 DCL VAR(&ASP) TYPE(*DEC) LEN(6 0) 19/07/04
1900 DCL VAR(&CPUCOM) TYPE(*DEC) LEN(4 2)
19/07/04
2000 DCL VAR(&ASPCOM) TYPE(*DEC) LEN(6 4)
19/07/04
2100 DCL VAR(&CPUTEXT) TYPE(*CHAR) LEN(4)
19/07/04
2200 DCL VAR(&ASPTEXT) TYPE(*CHAR) LEN(6)
19/07/04
2300 DCL VAR(&SISTEMA) TYPE(*CHAR) LEN(10)
19/07/04
2400 DCL VAR(&WSDR1) TYPE(*CHAR) LEN(64)
04/07/05
2500 19/07/04
2600 /* SETUP FOR CALLING QWCRSSTS */ 19/07/04
2700 CHGVAR VAR(&RCVLENGTH) VALUE(X'00000048')
19/07/04
2800 CHGVAR VAR(&FORMAT) VALUE('SSTS0200')
19/07/04
2900 CHGVAR VAR(&ERRORCODE) VALUE(X'00000000')
19/07/04
3000 19/07/04
3100 /* FIRST CALL RESETS STATISTICS TO ZERO */
19/07/04
3200 LOOP: CHGVAR VAR(&RESET) VALUE('*YES ')
19/07/04
3300 CALL PGM(QWCRSSTS) PARM(&RECEIVER &RCVLENGTH +
19/07/04
3400 &FORMAT &RESET &ERRORCODE) 19/07/04
3500 19/07/04
3600 /* WAIT FOR 5 SECOND INTERVAL */ 19/07/04
3700 DLYJOB DLY(5) 19/07/04
3800 19/07/04
3900 /* GET THE CURRENT SYSTEM STATISTICS */
19/07/04
4000 CHGVAR VAR(&RESET) VALUE(*NO) 19/07/04
4100 CALL PGM(QWCRSSTS) PARM(&RECEIVER &RCVLENGTH +
19/07/04
4200 &FORMAT &RESET &ERRORCODE) 19/07/04
4300 /* PULL OUT THE CPU UTILIZATION, RETURNED AS A BINARY */
19/07/04
4400 /* NUMBER IN TENTHS */
19/07/04
4500 CHGVAR VAR(&CPUTEXT) VALUE(%SUBSTRING(&RECEIVER 33 4))
19/07/04
4600 RTVDTAARA DTAARA(SMTP/LIMDIR (1 64)) RTNVAR(&WSDR1)
04/07/05
4700 CHGVAR VAR(&CPU) VALUE(%BINARY(&CPUTEXT))
19/07/04
4800 CHGVAR VAR(&CPUCOM) VALUE(&CPU / 100)
19/07/04
4900 19/07/04
5000 /* PULL sistema*/ 19/07/04
5100 CHGVAR VAR(&SISTEMA) VALUE(%SUBSTRING(&RECEIVER 17
8)) 19/07/04
5200 CRTDTAARA DTAARA(SMTP/LIMusr) TYPE(*CHAR) LEN(520) +
10/12/07
5300 /* PULL ASP CPU UTILIZATION, RETURNED AS A BINARY */ 19/07/04
5400 /* NUMBER IN TENTHS */
19/07/04
5500 CHGVAR VAR(&CPUTEXT) VALUE(%SUBSTRING(&RECEIVER 53
4)) 19/07/04
5600 CHGVAR VAR(&ASP) VALUE(%BINARY(&CPUTEXT))
19/07/04
5700 CHGVAR VAR(&ASPCOM) VALUE(&ASP / 10000)
19/07/04
5800 19/07/04
5900 ENDPGM 19/07/04
* * * * F I N D E F U E N T E * * *
*
Pedro Pinedo Hernandez: Analista-Programador
Grupo Amcor Flexibles Hispania S.L.
Departamento de Informática / IT Department
tfno.:+34 941 28 60 90 - 941 03 01 39
fax: +34 941 03 01 39
Avd. Burgos 67-95
26006 Logroño Spain
[email protected]
(quitar nospam del dominio, para enviar)
From:
[email protected]
To:
"forum.help400" <[email protected]>
Date:
20/03/2009 15:08
Subject:
Re: Obtención del estado de ocupación del disco.
Hola,
Mirate la API QWCRSSTS
http://publib.boulder.ibm.com/infocenter/systems/scope/i5os/index.jsp?topic=/apis/qwcrssts.htm
Saludos
2009/3/20 explota_alico <[email protected]>
Lo primero, perdonadme por la consulta porque sé que ya se ha planteado en
el foro y puede que más de una vez.
Necesitaría obtener el porcentaje de utilización del disco de alguna forma
sencilla para en un CL, en función de esa información hacer unas cosas u
otras.
El listado obtenido por el comando WRKSYSSTS *PRINT lo copié a un archivo
de datos y desde ahí en el CL ya se puede leer, pero alguien en el foro en
alguna ocasión (creo que fue ALEX) nos enseñó una forma muchísimo más
sencilla de obtener esta información sin necesidad de este tipo de
montajes porque lógicamente necesitas andar contando caracteres y
filtrando cabeceras hasta que aislas la información que necesitas, etc.
Pero? no lo encuentro.
No sé si era un API o un comando que no encuentro tampoco.
¿Alguien recuerda esto?
Gracias.
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de ServerNEWS.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
--
Martí Riera__________________________________________________
Forum.HELP400 es un servicio m&#225;s de ServerNEWS.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
______________________________________________________
AMCOR FLEXIBLES - LEADING THROUGH INNOVATION
______________________________________________________
CAUTION - This message may contain privileged and confidential information
intended only for the use of the addressee named above. If you are not the
intended recipient of this message you are hereby notified that any use,
dissemination, distribution or reproduction of this message is prohibited. If
you have received this message in error please notify AMCOR FLEXIBLES
immediately. Any views expressed in this message are those of the individual
sender and may not necessarily reflect the views of AMCOR FLEXIBLES.
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de ServerNEWS.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
