Quand utiliser ENDJOBABN ?

IBM recommande de ne l’utiliser qu’après avoir tenté un ENDJOB avec OPTION(*IMMED), et seulement si le job reste en statut END / ENDING sans se terminer.
Sur IBM i V7R3+, il faut attendre au moins 10 minutes après l’ENDJOB avant de pouvoir lancer ENDJOBABN sur le même job.

Syntaxe de base :

Exemple :

Optionnellement, sur V7R3+ tu peux lui demander un dump :

Cela permet d’avoir des infos pour le support IBM si tu as un job coincé en boucle dans une instruction MI ou une clean‑up.

Points importants / risques

• Nettoyage incomplet : certaines ressources (fichiers, verrous, locks SQL, etc.) peuvent ne pas être libérées proprement. Elles ne seront souvent remises à zéro qu’au prochain IPL.

• IPL « anormal » simule : l’utilisation de ENDJOBABN peut faire considérer le prochain IPL comme anormal, ce qui peut rallonger le démarrage.

• ENDJOBABN peut aussi échouer : si le job est coincé dans une instruction MI ou dans un moniteur de SBS bloqué, ENDJOBABN peut ne pas aboutir non plus, et tu peux finir par un IPL pour récupérer le système.

Microsoft PowerPoint - RPG User Defined Functions & Table Functions.pptx (scottklement.com)

Cordialement, 

Ibmiiste.

Il faut d'abord détacher les fichiers/objets qui sont suivis par le journal.

Exemple

ENDJRNPF FILE(<BIBFICHIER>/<FICHIER>) JRN(<BIBJRN>/<JRN>)

Suppression du journal

DLTJRN JRN(<BIBJRN>/<JRN>)

Puis on supprime les récepteurs

DLTJRNRCV JRNRCV(<BIBFICHIER>/<RECEPTEUR>)

Je souhaite décider à l'exécution si le contrôle de validation SQL est actif ou pas en passant l'information en paramètre.

Mais comment faire dans la vraie vie?

Cordialement, 

Olivier.

Dcl-pi programmeExemple;
  pcommit ind;
End-pi; 

if pcommit = *on;
   // Contrôle de vailidation actif
Else;
  // Contrôle de validation inactif
Endif;

Comment fait-on pour supprimer un journal? Merci de vos réponses.

Cordialement, 

Olivier.

J'ai découvert des champs auxquels ont été adjoint le mot-clef AUTOGENERATED. Quels sont les champs qui peuvent être autogénérés?

Cordialement, 

Olivier.

on peut également déclarer une DS correspondant aux zones d'un enregistrement de fichier de la façon suivante :

dcl-ds T34_n  likerec(F34:*ALL:*NULL);

Les zones de cette DS sont des indicateurs (booléens) portant le même nom que que les zones du format F34 du fichier en entrée, sortie ou entrée et sortie (ici);

Ensuite on peut associer cette DS à la DS reprenant la description des zones du format F34 toutes zones combinées (entrée ou sortie) ou d'entrée  ou de sortie :

dcl-ds T34_o likerec(F34:*ALL) nullind(T34_n) inz;

Il suffira donc pour écrire un enregistrement de positionner les booléens correspondant aux zones de la ds T34_O devant être nulles à *on.

De même, pour connaitre les zones contenant des valeurs nulles dans la DS contenant un enregistrement en lecture, il suffira d'associer une DS d'indicateurs à la DS de données :

dcl-ds T34_i likerec(F34:*ALL) nullind(T34_n) inz;

On pourra donc tester les valeurs nulles de la façon suivante :

if not F34_n.toto; 
  dsply 'Valeur de Toto : ' + T34_i.toto;
else;
  dsply 'Toto n''a pas de valeur';
endif;

Remarque : ça marche aussi en 7.3