BQL-BBAD0012-DEPASSEMENT DE CAPACITE (TABLE WORKING) : WP02-CDSQLD

En cas de message de ce type lors d'une exécution de BQL (par exemple dans K2Y, K22, NJ3, mais surtout NJU, NJN,NJY), ici lors d'une NJU :
*GE01BQL-BBAD0012-DEPASSEMENT DE CAPACITE (TABLE WORKING) : WP02-CDSQLD/000000000000400/000000000000401

C'est sans doute que le programme BQL a utilisé un point de reprise "inopportun".

La table PG50 sert à BQL pour mémoriser son point d'avancement. Ce qui lui permet de reprendre le traitement là ou il été interrompu. La clef de la table est

• Le code de la chaîne, mais parfois "BQ1'"et "BQ2"
• Un identifiant sur 8 caractères (IDEJOB en général vide)
• Un identifiant sur 4 caractères (IDENT4 en général "BQL ")
• Le code du processus (en général forcé à "*GE01")
• Le numéro de travail.

Si BQL trouve un enregistrement PA7I il utilisera la PG50 pour savoir ou reprendre le chargement interrompu. Et si la PG50 contient de vieilles données, son comportement peut être imprévisible ...

Pour ne pas avoir de problème lors des exécutions de BQL,

• Vérifier que le fichier paramètre est vide (sauf en cas de reprise),
• Sinon supprimez le contenu de la table PG50 pour le numéro de job concerné.

Dans le cas de la NJU la carte est alimentée en standard dans le shell. La seule option est donc la purge ...

EXECBQL :echo "PA7IBQL         00"
FDARCNJY:echo "PA7IBQ1"\
FDARCNJY:echo "PA7IBQ2"\
FDNATNJN:echo "PA7IBQ1         £PQ"\
FDNATNJN:echo "PA7IBQ2         £PQ"\
FDPAYK2Y:echo "PA7IK2Y         £PQ"\
FDXPGK22:echo "PA7IK22         £PQ"\
FDXPGNJ3:echo "PA7INJ3        S£PQ"\
FDXWDNJU:echo "PA7IBQ1         £PQ"\
FDXWDNJU:echo "PA7IBQ2         £PQ"\