CREATE TABLE FORMATION/TEST (
NOM CHAR (10 ) NOT NULL WITH DEFAULT,
PRENOM CHAR (10 ) NOT NULL WITH DEFAULT,
DATCRT DATE NOT NULL WITH DEFAULT)
le pgm RPG qui suit se compile et s'exécute correctement
Exemple de table :
CREATE TABLE TLB/TLB01
(CENVIR CHAR (2 ) NOT NULL WITH DEFAULT
CDPAYS CHAR (3 ) NOT NULL WITH DEFAULT,
CDEVIS CHAR (3 ) NOT NULL WITH DEFAULT)
Code qui fonctionne en V5R4 sans utilisation du mode free:
d WTLB01 E DS extname(TLB01) prefix(T1_)
c eval T1_CENVIR = 'TS'
c eval T1_CDPAYS = 'PA1'
c eval T1_CDEVIS = 'DE6'
c/exec sql
c+ INSERT INTO TLB/TLB01
c+ VALUES(:WTLB01)
c/end-exec
Philippe a écrit :Evidemment, sinon la (ou les) zone définie sans "s" immédiatement à la suite de la DS externe fait partie intégrante de cette DS (Data Structure) .
Oui, inutile d'enfoncer le couteau dans la plaie !