Lire la structure des zones d’un fichier via l’API QUSLFLD
Cet article propose une exemple pour lire la structure d’un fichier via l’API QUSLFLD.
Langage RPG
Cet article propose une exemple pour lire la structure d’un fichier via l’API QUSLFLD.
Cet article propose une exemple pour tester l’existence d’un membre de fichier en RPGLE avec un programme de service.
Pour mutualiser le code, rien de tel que les programmes de services.
Cet article constitue une liste de programmes de services utiles au quotidien. Le but est surtout de mettre en ligne des exemples de codes utiles à tous.
A vous de les décortiquer, modifier, et pourquoi pas me les renvoyer une fois améliorés.
Ce programme de service contient une série de fonctions qui permettent de gérer la récupération des informations via la SQLDA.
Ce programme de service fait appel à une API C pour créer un fichier dans l’IFS avec un CCSID donné.
Quand on exécute l’ordre SQL « ALTER TABLE » on obtient le message CPA32B2 et le programme est interrompu pour laisser l’utilisateur saisir « C » cancel ou « I » ignore. Voici une astuce permettant d’éviter cette interruption : ADDRPYLE SEQNBR(3000) MSGID(CPA32B2) RPY(‘I’) CHGJOB INQMSGRPY(*SYSRPYL) Vous devez donc créer un poste de liste de réponse (ADDRPYLE) en spécifiant la réponseEn savoir plus surMonitorer le message CPA32B2[…]
Formater facilement les nombres en texte.
Cet article présente la BIF (Built in function) %EDITC, et sa petite soeur %EDITW, et vous propose un programme de service vous permettant de l’utiliser dans des programmes autres que RPG ILE (Adelia, Cobol…).
Souvent les développeurs ISeries utilisent ISDB pour déboguer un CLP et le DEBUG classique pour les programmes ILE ce qui s’avère pas très pratique si on veut suivre pas à pas l’enchainement d’un CLP et d’un RPGLE. Le mieux est de recompiler le CLP en CLLE mais pour ceux qui n’ont pas cette possibilité, ilEn savoir plus surDEBUG sur un CLP et un programme ILE[…]
Un programme écrit en RPG FREE pour éditer la description d’un fichier DB2/400.