/image%2F1025633%2F20151122%2Fob_b0e74c_pam007i.png)
sqlrpg
Récupération d'un Result Set
// Voir fmr050 **freectl-opt option(*srcstmt :*nodebugio) actgrp(‘MILAN’) ; dcl-ds enregw; mois packed(2) ; code packed(8) ; codcli char(8) ;end-ds ; dcl-ds nullw int(5) dim(3) ; dcl-s mylocator sqltype(result_set_locator) ; exec sql call fmr050(7) ;...
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)...
dt99 (1)
DT99 the Ultimate Date Functions... ;-)) Une nouvelle fonction DT99, éventuellement associée à des %bif Rpg - built in function - ou des fonctions Sql, devrait nous permettre de vaincre l'énervant incomfort :o(( où nous entrainent les pseudo-dates des...
Attributs Table Sql
* Demande un nom de fichier, biblio, éventuellement un préfix. * Génère dans un fichier source "srcg", * le détail des instructions SQL Select, Insert, Update * et des cartes D. * afin d'éviter l'emploi de * (toute les zones). * Hdftactgrp(*no) Hactgrp('milan')...
Mise à jour d'une table
// Mise à jour d'une table en Sqlrpgle. // Proche de cet exemple Rpg là . // Les accès Sql sont dans des sous-procédures. Hdftactgrp(*no) Hactgrp('milan') Hoption(*srcstmt:*nodebugio) Ftst010D cf e workstn D sds Dproc_name *proc Duserr2 254 263 Dcl_client...
