 |
La forma general del calcular el progreso de cualquier
trabajo es la siguiente:
Progreso = ("Trabajo realizado hasta el momento"/"Trabajo total a
realizar")* 100
Como veras, para poder utilizar esta formula, es necesario saber el: "Trabajo total a
realizar".
Dado que esto último depende de las complejidades inherentes al programa que se este
corriendo en Batch, (No es lo mismo la realización de un listado de un archivo
transitorio, que la re-indexación de un archivo de 10 millones de registro) y dado que el
AS/400 no es adivino, no es posible que exista tales API, por lo general me animo a
afirmar que no existe ningún sistema que posea tal API, a no ser que sea en un entorno
reducido y con reglas muy claras.
Sin embargo si quieres un Progress Bar de los trabajos que tu crees en Batch, no todo esta
perdido, presta atención:
Supón que tu proceso BATCH tiene la siguiente estructura:
PGM
call program1
call program2
..
call programN
ENDPGM
como tu eres el creador sabes que:
program1 emite un listadillo sin importancia
program2 reordena el archivo maestro
..
programN emite un listado final
Pues bien, BASADO EN TU CONOCIMIENTO Y EVALUACIÓN DE COMO SE
EJECUTAN LAS COSAS, tu puedes crear la siguiente tabla
% %Acumulado
program1 5% 5%
program2 30% 35%
program3 10% 45%
..
programN 1% 100%
-----
Suma 100%
entonces puedes modificarm tu CL, asi (Modificaciones en Mayúscula).
pgm
DCL &PROGBAR *CHAR 10
DCL &JOBNUM *CHAR 6
RTVJOBA JOBNUM(&JOBNUM)
CHGVAR &PROGBAR ('PBAR'||&JOBNUM)
CRTDTAARA QGPL/&PROGBAR *DEC (2, 0)
call program1
CHGDTAARA QGPL/&PROGBAR (1 2) 5
call program2
CHGDTAARA QGPL/&PROGBAR (1 2) 35
call programa2
CHGDTAARA QGPL/&PROGBAR (1 2) 45
..
call programN
CHGDTAARA QGPL/&PROGBAR (1 2) 45
endpgm
así pues, en cualquier momento tu puedes hacer
dspdtaara qgpl/pbarXXXXXX , donde XXXXX es el número de JOB y se te mostrara el
porcentaje de progreso del mismo...
Este documento ha sido elaborado con la respuesta de Sanotto
a un mensaje del foro
31-10-2001
|
|
| ¿Buscas trabajo ? | | Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico. |
|
|
¿Tienes algún truco que quieras compartir con todos
los profesionales de Recursos iSeries AS400?.
Envianoslo y si resulta seleccionado
te enviaremos un vale de Amazon por valor de 50$.
Todos los trucos y documentos recibidos serán publicados.
|
|
