dump cuando genero subrutinas..

[mystic_soul]

Hola a todos! necesito de la ayuda de ustedes de manera urgente!..
Me pasaron un programa para analizar un dump y solucionarlo. Este programa genera otro programa en forma dinamica. Para esto utiliza una sentencia como la siguiente..

DEFINE GENERATE-IT.
GENERATE SUBROUTINE POOL _ZZ_PGM_BUF NAME &1
MESSAGE _ZZ_MESSAGE LINE _ZZ_LINE WORD _ZZ_WORD.
END-OF-DEFINITION.


El problema pasa porque cuando lanzo un job, éste tira un dump porque se excede del maximo de rutinas (que son 36).. Como hago para arreglar este dump? Dejo el adjunto donde se utiliza esto..

[ballan]

Yo intetaria lo siguiente

Meteria el GENERATE SUBROUTINE POOL _ZZ_PGM_BUF NAME &1 dentro de un TRY CATCH ENDTRY, capturaria la excepcion que se produce cuando pasas del limite de 36 y si esto se produce crearia otro job o una nueva tarea o algo para que me dejara volver a crear 36

Prueba y nos cuentas algo porque la otra opcion que tienes es que en lugar de utilizar el generate subroutine pool utilices las instrucciones INSERT REPORT, etc...