Exists : Pro­cé­dure de test d’exis­tence d’un objet sur IBM i

Voi­ci une API pour contrô­ler l’exis­tence d’un objet sur un IBM i.
La copie de décla­ra­tion API_EXISTS com­prend plu­sieurs décla­ra­tions, une pour le pro­to­type de la pro­cé­dure et une pour l’u­sage de API QUSROBJD qui récu­père la des­crip­tion d’un objet IBM i.

[pas­ta­code lang=«rpgle » user=«ibmiiste » repos=«API_OBJ » path_id=»/QAPIOBJSRC/API_OBJ.SQLRPGLE » revision=«master » high­light=»» lines=»» provider=«github»/]

Ci-des­sous, le source de la sous-pro­cé­dure que vous pou­vez com­pi­ler en module et inté­gré celui-ci à un pro­gramme de ser­vice (ou non).

Elle uti­lise sim­ple­ment l’A­PI QUSROBJD et si elle ne retourne pas d’er­reur, c’est que l’ob­jet existe bien.

[pas­ta­code lang=«rpgle » user=«ibmiiste » repos=«API_OBJ » path_id=»/QAPIOBJSRC/EXISTS.SQLRPGLE » revision=«master » high­light=»» lines=»» provider=«github»/]