Muchas gracias a todos. Lo encontré por otro lado pero efectivamente era ese API.
De: [email protected] [mailto:[email protected]] En nombre de Pedro Pinedo Enviado el: lunes, 23 de marzo de 2009 7:40 Para: forum.help400 Asunto: Re: Obtención del estado de ocupación del disco. 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]<mailto:[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<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<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
