RPG (3 et 4, free), CL, SQL, etc...
-
germor
- Messages : 75
- Enregistré le : lun. 06 juin 2011, 08:01:43
Message
par germor »
Bonjour,
En V7R1, je cherche à utiliser le programme :
qui Lit la JOBLOG à l'envers pour retrouver une erreur SQL.
Compilé par CRTBNDPRG,
Exécuté par : SBMJOB CMD(CALL PGM(MABIB/LEPROGRAM))
Comment, où lire le résultat ?
merci de vos réponses
-
cmasse
- Site Admin
- Messages : 813
- Enregistré le : mer. 14 févr. 2007, 18:00:03
- Localisation : Nantes
-
Contact :
Message
par cmasse »
l'exemple cité parcours le user space dans la boucle FOR
(après avoir récupéré le pointeur de début par l'API QUSPRTUS)
for i = 1 to nbpostes;
// traitement d'un message
// à adapter suivant les besoins
????
// poste suivant ?
if i < nbpostes;
ptrliste = ptrliste + lgposte;
endif;
endfor;
insérez la place de ??? une séquence d'affichage ou d'impression.
pour débug, vous pouvez aussi "Dumper" le User Space....
Christian Massé (Volubis.fr)
-
germor
- Messages : 75
- Enregistré le : lun. 06 juin 2011, 08:01:43
Message
par germor »
merci