Olivier Drubigny ibmiiste
ibmiiste
/ trigger.rpgle
Created
May 13, 2016 11:17
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // Option de compilation et de programme | |
| /If Defined(*CRTBNDRPG ) | |
| ctl-opt actgrp(*caller); | |
| ctl-opt DftActGrp(*No); | |
| /endif | |
| ctl-opt option(*nodebugio:*srcstmt) datedit(*ymd); | |
| ctl-opt bnddir('SERVICE'); | |
| // Prototype des modules centralisés programmes de services BESAIF/BESAIFSRV | |
| /copy qcpysrc,prbmod000r |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| *®------------------------------------------------------------®* * Nom de la sauvegarde | |
| * Nom de la sauvegarde :S000017742 * /*®------------------------- | |
| *®------------------------------------------------------------®* | |
| *PREMUNI Date :15/07/09 * | |
| * Objet : NIR Corse+Annul rattach * | |
| * JH01 : Prise en compte des départements 2A / 2B pour le * | |
| * calcul de la clé du NIR * | |
| *®------------------------------------------------------------®* | |
| H | |
| **************************************************************** |
ibmiiste
/ API_OPJ.rpgle
Created
August 14, 2015 15:36
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| * NAME API_OBJ | |
| * TYPE *NONE | |
| * SRCF QRPGLESRC | |
| * TEXT API - Gestion des objets | |
| * ------------------------------------------------------------------------- | |
| * API de gestion des objets | |
| * Change Library List (QLICHGLL) API | |
| * Change Object Description (QLICOBJD) | |
| * List Objects (QUSLOBJ) API | |
| * Rename Object (QLIRNMO) API |
ibmiiste
/ Exists.rpgle
Last active
August 29, 2015 14:27
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| * ==================================================================== | |
| * Test existence objet | |
| * ==================================================================== | |
| PExists B | |
| D PI 1N | |
| D Obj 20A CONST | |
| D ObjType 10A CONST | |
| * | |
| /COPY API_OBJ | |
| D ObjL S 20A |