Tweet
Hola a todos, les comento que utilizando el programa RSBDCSUB, y haciéndole unas modificaciones (hice un programa Z), con la finalidad de ejecutar varios juegos de datos inmediatamente termine el que le antecede. Para ello utilizo la tabla TBTCO y verifico el estatus de cada job lanzado. Sin embargo ese manejo no me permite lanzar inmediatamente ejecutar el job siguiente porque utilizo el acceso a la tabla dentro de un do. antes del próximo submit.
DO.
SELECT SINGLE STATUS FROM TBTCO INTO L_STATUS
WHERE JOBNAME = JNAMEANT
AND JOBCOUNT = JNUMBANT.
IF L_STATUS = 'F' OR L_STATUS = 'A'.
EXIT.
ELSE.
WAIT UP TO 30 SECONDS.
ENDIF.
ENDDO.
Los 30 segs. pueden ser cambiados, sin embargo les pido ayuda para evitar el uso del anterior código.
Gracias anticipadamente.
DO.
SELECT SINGLE STATUS FROM TBTCO INTO L_STATUS
WHERE JOBNAME = JNAMEANT
AND JOBCOUNT = JNUMBANT.
IF L_STATUS = 'F' OR L_STATUS = 'A'.
EXIT.
ELSE.
WAIT UP TO 30 SECONDS.
ENDIF.
ENDDO.
Los 30 segs. pueden ser cambiados, sin embargo les pido ayuda para evitar el uso del anterior código.
Gracias anticipadamente.