/image%2F1025633%2F20151122%2Fob_b0e74c_pam007i.png)
Top articles
-
Vapeur
Un jour, Babbage se trouvait dans la salle de la Société analytique en train de travailler sur une table de logarithmes bourrée d'erreur. Herschel lui demanda ce qu'il en pensait. "Plût à Dieu que ces calculs eussent été exécutés par la vapeur !" soupira...
-
Smalltalk, Alan Kay
"In computer terms, Smalltalk is a recursion on the notion of computer itself. Instead of dividing “computer stuff” into things each less strong than the whole–like data structures, procedures, and functions which are the usual paraphernalia of programming...
-
Procédure & Result Set
create or replace procedure milan/fmr050 (in p_mois dec(2))specific milan/fmr050dynamic result sets 1set option dbgview = *source b1:begindeclare c1 cursor with return for select t1.mois, t1.code, t2.codcli from fmr015p as t0 join fichier2 as t2 on t0.codcli...
-
Sérendipité
... se définit comme l'aptitude à découvrir quelque chose sans l'avoir expressément recherché. En informatique, la sérenpidité marque la différence entre un bon et un excellent programmeur. Le bon programmeur fournit le résultat qui lui a été demandé....
-
Pseudo Unique
Il arrive qu'une table, qui devrait être unique, ne le soit que très modérément...Ceci pose des problèmes lors d'éventuelles jointures : les lignes se multiplient ! Dans d'autre configuration, une non-unicité peut se terminer en plantage de la requête....
-
jamais !
- Un mois, c'est le minimum, dit-il. Si vous saviez combien de formulaires de dois remplir chaque fois que j'envoie une nouvelle recrue de Bruxelles au Congo, vous comprendriez. - A en juger par la pile que j'ai remlie moi-même, cela m'est facile. Je...
-
pdt80
-- Retourne une pseudo date samj 8 0 à partir d'une vraie date -- 0001-01-02 si erreur -- select pdt80(datenaiss) from personne create function milan/pdt80 (vdate1 date) returns dec(8, 0) language sql deterministic no external action contains sql set...
-
vdate
-- Retourne une vraie date à partir d'une pseudo date 8 0 samj -- 0001-01-02 si la pseudo date fournie est invalide -- Ex : select vdate(19981225) from sysibm/sysdummy1 create function vdate (zn80 dec(8, 0)) returns date language sql deterministic no...
-
jusqu'au centre
"Pourquoi disons-nous que la simplicité est une bonne chose ? Parce qu'on se doit de dominer nos produits. Apporter de l'ordre dans la complexité, c'est une manière d'être plus fort que le produit. (...) La solution, c'est de s'enfoncer jusqu'à l'essence...
-
alphatisation
select nombre, nombre !! '' as concat, char(nombre) as char, digits(nombre) as digits from fichier010 Nombre CONCAT CHAR DIGITS 1,00 1,00 1,00 00100 2,00 2,00 2,00 00200 ,00 ,00 ,00 00000 23,00- -23,00 -23,00 02300 66,78 66,78 66,78 06678 Le numérique...
-
HFiltre
// Filtre générique sur une valeur Cléparcours = HFiltre(Client,nom,Saisie1+hValMin,Saisie1+hValMax) // Deux bornes Cléparcours = HFiltre(Client,nom,Saisie1,Saisie2) // Une condition Cléparcours = HFiltre(Client,"nombre1 = 2") // Deux bornes, une condition...
-
C'est tout
"Je ne sais pas vraiment pourquoi j'écris, à moins que ce soit pour me prouver quelque chose. Avant de devenir acteur, je mourais partiquement de faim à force d'essayer de vendre mes histoires. Je suppose que j'ai toutjours eu ça en moi et que je l'aurais...
-
Stupeur & Doublements
La loi de Moore est bien connue. Celle de Wirth l'est un peu moins. Voici un tableau qui évoque un doublement tout les deux ans, depuis... 1988, année du lancement de l'AS/400, iSeries, i5, IBM i... bref, du brillant successeur du fantastique S/38. Doublement...
-
dt99 (3)
/* Pour Escape dans Programme de Service DT99 */ PGM PARM(&MSGW) DCL VAR(&MSGW) TYPE(*CHAR) LEN(512) SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&MSGW) + MSGTYPE(*ESCAPE) ENDPGM * Prototypes d'appel : Ddt99 pr d D n80x 8 0 const options(*nopass:*omit)...
-
dt99 (2)
* Programme de Service v1 * Fonctions de date Hnomain Hdatfmt(*iso) DT99 * renvoie une Date * parm1 Num 8 0 || 991130 1091129 20080223 0 *omit || * parm2 Alpha 10 || rien ' ' *omit '1101231' '17890714' || * parm3 Alpha 5 (*iso,*eur,*usa,*cymd,*ymd,*cdmy,*dmy,*cmdy,*mdy)...
-
Séparer
Mais il existe une loi mal connue en cybernétique qui affirme que toute information est une forme de contrôle . … Pourquoi ne pas séparer la partie du code qui s'occupe d'acheminer les paquets ? Ils l'ont appelé le Protocole Internet ou IP. A partir de...
-
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...
-
Classe anonyme
public class Foo2 { JFrame cadre ; JButton btn1 ; JButton btn2 ; JLabel lbl ; Container cadreCtnr ; void go() { cadre = new JFrame(); cadre .setDefaultCloseOperation(JFrame. EXIT_ON_CLOSE ); cadre .setSize(400, 300); btn1 = new JButton( "btn1" ); btn1...
-
XP
J'empreinte à l'excellente collection hélas disparue O'Reilly / Tête la Première Head First ce qui suit : Extreme Programming (XP) ... L'idée maîtresse de XP consiste à fournir au client ce qu'il veux quand il le veux, même si les spécifications changent...
-
dt9 & dt10
// Deux fonctions qui permettent de transformer une pseudo date en vraie date. // Dans DB2 LUW une fonction, qui utilise alors le “SQL inline”, ne peut utiliser de Handler, c'est la raison pour laquelle DT10 appelle la procédure DT10A, qui elle, a accès...
-
Envie
"Et bien moi, je crois qu'on ne réussit qu'une seule chose, on ne réussit que ses rêves. Le talent, ça n'existe pas. Le talent c'est d'avoir l'envie de faire quelque chose, et je crois que l'envie de réaliser un rêve, c'est le talent. Et tout le restant,...
-
Cobol écran
Il existe mainte façon de coder un programme interactif en Cobol 400... Ici, parti-pris a été de déclarer les zones du fichier écran (dds) en both, éventuellement limitées par dspatr(pr) et chginpdft, de manière à n'utiliser qu'un seul buffer (le i bien...
-
Risque
Il ne faut pas oublier que le System 38 qui est à l’origine de l’OS/400 a été financé dans les années 80 sur un budget supplémentaire car le laboratoire Rochester voulait placer le management d’ IBM devant le fait accompli. Comme l’écrivait Frank Soltis...
-
sous-requête
-- Que serait le marin sans le sous-marin ? -- Que serait la requête sans la sous-requête ? -- Une sous-requête retourne une, plusieurs, ou aucune ligne et peut être correlée. -- N'est-elle pas à l'origine de la puissance d'SQL ? select t1.* , (select...
-
join
-- Joindre les 2 bouts, ou + si affinité... select * from personne join pays on pays_id_naiss = pays_id -- ou inner join -- Retourne les personnes qui ont un pays. select * from personne left outer join pays on pays_id_naiss = pays_id -- outer facultatif...
