Créer un table par SQL sur IBMi

Créer un membre source de type SQL dans QSQLSRC

CREATE TABLE  FCM.PANUEND(                    
                                              
 /* Zones */                                  
    AACSO1 CHAR(4) NOT NULL DEFAULT '' ,      
    AAUSER DECIMAL(4, 0) NOT NULL DEFAULT 0,  
    AALNMB CHAR(30) NOT NULL DEFAULT '' ,     
    AALPMB CHAR(20) NOT NULL DEFAULT '' ,     
    AATRIG CHAR(4)  NOT NULL DEFAULT '' ,     
    AAMAIL CHAR(80) NOT NULL DEFAULT '')   
 /* Format */                                                   
    RCDFMT PANUENF ;
/* Nom du fichier */                                            
LABEL ON TABLE FCM.PANUEND IS 'Entete annuaire pour envoi mail';
/* Colhdg des zones */                                          
LABEL ON COLUMN FCM.PANUEND(                                    
    AACSO1 IS 'SOCIETE' ,                                       
    AAUSER IS 'CODE UTILISATEUR' ,                              
    AALNMB IS 'NOM MEMBRE' ,                                    
    AALPMB IS 'PRENOM MEMBRE' ,                                 
    AATRIG IS 'NOM RÉDUIT' ,                                    
    AAMAIL IS 'ADRESSE MAIL');
/* Text des zones */                              
LABEL ON COLUMN FCM.PANUEND(                      
    AACSO1 TEXT IS 'SOCIETE' ,                    
    AAUSER TEXT IS 'CODE UTILISATEUR' ,           
    AALNMB TEXT IS 'NOM MEMBRE' ,                 
    AALPMB TEXT IS 'PRENOM MEMBRE' ,              
    AATRIG TEXT IS 'NOM RÉDUIT' ,                 
    AAMAIL TEXT IS 'ADRESSE MAIL');

Créer un index par SQL sur IBMi

Créer un membre source de type SQL dans QSQLSRC
DROP INDEX FCM.PANUENLA  ;                                   
/* Création de l Index */
CREATE UNIQUE INDEX FCM.PANUENLA ON FCM.PANUEND (AACSO1  ASC,      
AAUSER ASC) ;                                                      
/* Définition de label */
LABEL ON INDEX FCM.PANUENLA IS 'Entete annuaire pour envoi mail';