/image%2F1025633%2F20151122%2Fob_b0e74c_pam007i.png)
rpg
/image%2F1025633%2F20170916%2Fob_e99ce8_gap.jpg)
Générateur
Générateur Automatique de Programme : GAP Générateur Automatique de Programme : GAP Report Program Génerator : RPG Catégorie RPG sur ce blog
/http%3A%2F%2Fwww.redbooks.ibm.com%2Fimages%2Flogo%2Foriginal_logo_4fb.jpg){kind=logo}
A Sorcerer's Guide
Tout arrive ! 16 ans après...Nous ne sommes plus des Sorciers !? Application development is a key part of the IBM® i businesses. The IBM i operating system is a very modern robust platform to create and develop applications. The RPG language has been...
/image%2F1025633%2F20161013%2Fob_f7be73_as400-job.jpg)
Mini CV P.A. Milan
P.A. Milan, l'informaticien qu'il vous faut ! Diverses missions en province ou àParis, en tant qu’AP, puis Chef de Projetm’ont conduit à une bonne maîtrisedes outils de développements AS400 ainsiqu’à une sérieuse expérience dans laréalisation de projets...
full free Rpg
// Quelques exemples de déclarations "full free format Rpg". // A l'occasion de l'abandon des spécifs, // IBM aurait peut-être pu rebaptiser son langage Rpg 5 , non ?! // Anti-sèche DeveloperWorks ctl-opt option (*srcstmt:*nodebugio) dftactgrp(*no) actgrp('MILAN');...
Histoire du RPG IV par Jon Paris !
http://ibmsystemsmag.com/Blogs/iDevelop/June-2015/The-Birth-of-a-New-RPG/ http://ibmsystemsmag.com/Blogs/iDevelop/July-2015/From-Skunkworks-to-Project---History-of-RPG-IV-Par/ http://ibmsystemsmag.com/Blogs/iDevelop/August-2015/Your-Baby-Is-Ugly---History-of-RPG-IV-Part-3/...
/image%2F1025633%2F20150114%2Fob_123b4e_rpg.jpg)
dt8u dt8i
Encore une histoire de date "legacy"... Un pgm de service, deux fonctions, et le pgm de test. ******* Prototype PSDT01CP **************************** D dt8u pr 8 0 D dt8ix 8 0 value D dt8i pr 8 0 D dt8ux 8 0 value ******* Programme de Service PSDT01 *******************...
udate 8.0
// Date du jour en 8.0 informatique udatiw = %dec(%date():*iso); // Date du jour en 8.0 utilisateur udatuw = %dec(%date():*eur);
/http%3A%2F%2Fimg.youtube.com%2Fvi%2FUEib4ZZkLJM%2F0.jpg)
RDi RDp RDPower
IBM Rational Developer for Power Systems Vous n'allez pas regretter SEU très longtemps... http://www.ibm.com/developerworks/downloads/r/rdp/index.html
Programme de Service (4)
SP010T Pgm utilisant les fonctions hébergées dans le programme de service. Notez, une fois terminée la mise en place précédemment décrite, la simplicité d'utilisation des fonctions ainsi mutualisées ! Hdftactgrp(*no) Hactgrp('MILAN') Hbnddir('MILAN')...
Programme de Service (3)
(membre /copy utilisé dans le PS et dans les pgm utilisateurs) SP010K Ddt3v1 pr 8 0 D aaaa 4 0 value D mm 2 0 value D jj 2 0 value D v 1 value Ddt3v1d pr d D aaaa 4 0 value D mm 2 0 value D jj 2 0 value WRKBNDDIRE BNDDIR(MILAN/MILAN) (Le répertoire de...
Programme de Service (2)
* SP010 P r o g r a m m e d e S e r v i c e *(Contient deux fonctions, * que nous mettons à disposition d'autres pgm) Hnomain /copy sources, sp010k * Reçoit une pseudo date en trois zones et en retourne une. * Possibilité de vérifier la validité de la...
Programme de Service (1)
Un PS contient une ou plusieurs fonctions exportées appelables depuis d'autres programmes. C'est une sorte de DLL. NB1: L' ile - Integrated Language Environnement – a introduit la notion de module, objet de type *module : Un source est compilé en module...
/http%3A%2F%2Fexternal.priceminister.com%2Fres%2Fpic%2F0%2Fwww%2Fwww%2F42200%2Ftitle_blog_advert.gif)
Voyage à l'intérieur de l'AS/400 (as400)
29,00 € Voyage À L'intérieur De L'as/400 (As400) Très Bon Etat Soltis, Frank Un "Collector", en Français, 1996, par Frank G. Soltis, l'un des pères de l'IBM System/38, AS/400, iSeries, System i, maintenant Power... La genèse de ce magnifique système....
Déèsse Qualifiée
Ftest010d cf e workstn * * Ddscouple ds qualified inz D habitant likeds(dshabitant)D dim(2) D nom 15 * * Ddshabitant ds qualified D based(dummy) D personne likeds(dspersonne)D adresse likeds(dsadresse) D electeur n * Ddspersonne ds based(dummy) D code...
Tableaux
Dara s 5 dim(10) * * * D ds Darb 25 dim(10) Dnom 10 overlay(arb:1) Dprenom 10 overlay(arb:11) Dnumero 5 overlay(arb:21) * /free sorta ara; sorta arb; sorta nom; sorta prenom; sorta %subarr(ara:1:7); /end-free
RTNDTA
* Mise à jour d'un fichier physique * avec relecture du fichier écran (RTNDTA) * pour un blocage minimum des enrgts. * * Fclientp uf a e k disk Ftest010d cf e workstn Dbouclew s n /free write ecran01; // Fond 1° affichage. dou bouclew; // Boucle 1. exfmt...
Quelques Spécifs D
* Un petit aperçu des spécif D. * Non exaustif, loin s'en faut ! * Look at the Doc : * http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp * Si vous utilisez Wdsc, votre code se reflete dans la vue Structure * Une zone alpha de 25 de long...
/idata%2F0403132%2Fwdsc2.jpg)
WDSC
Un petit coup d'oeil à WDSC pour Travailler_tout simplement_de_façon_moderne sur System i ... Avec www.attn.fr bien sûr !
Sous-Procédures & Fonctions
// Bonjour, // L'unité de code qui tourne, sur un iSeries ou désormais System i , // c'est la procédure... Les sous-procédures ou fonctions sont des sortes de sous-programmes, avec beaucoup d'avantages ! Le code est local On peut les appeler dans un "eval"....
