Creer un Table sur IBMi
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 '' ,
AAENVM CHAR(1) NOT NULL DEFAULT '' ,
AAIFS CHAR(80) NOT NULL DEFAULT '' ,
AALIB1 CHAR(10) NOT NULL DEFAULT '' ,
AALIB2 CHAR(6) NOT NULL DEFAULT '' ,
AALIB3 CHAR(4) NOT NULL DEFAULT '' ,
AALIB4 DECIMAL(15, 4) NOT NULL DEFAULT 0 ,
AALIB5 DECIMAL(6, 0) NOT NULL DEFAULT 0 ,
AALIB6 DECIMAL(4, 0) NOT NULL DEFAULT 0 ,
AADCRE DECIMAL(8, 0) NOT NULL DEFAULT 0 ,
AAHCRE DECIMAL(6, 0) NOT NULL DEFAULT 0 ,
AAPCRE CHAR(10)NOT NULL DEFAULT '' ,
AADMOD DECIMAL(8, 0) NOT NULL DEFAULT 0 ,
AAHMOD DECIMAL(6, 0) NOT NULL DEFAULT 0 ,
AAPMOD CHAR(10)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' ,
AAENVM IS 'ENVOI MAIL O/N' ,
AAIFS IS 'EMPLACEMENT IFS UTILISATEUR' ,
AALIB1 IS 'ZONE LIBRE 1' ,
AALIB2 IS 'ZONE LIBRE 2' ,
AALIB3 IS 'ZONE LIBRE 3' ,
AALIB4 IS 'ZONE LIBRE 4' ,
AALIB5 IS 'ZONE LIBRE 5' ,
AALIB6 IS 'ZONE LIBRE 6' ,
AADCRE IS 'DATE DE CREATION' ,
AAHCRE IS 'HEURE DE CREATION' ,
AAHCRE IS 'HEURE DE CREATION' ,
AAPCRE IS 'PROFIL DE CREATION',
AADMOD IS 'DATE DE MODIFICATION' ,
AAHMOD IS 'HEURE DE MODIFICATION' ,
AAPMOD IS 'PROFIL DE MODIFICATION');
/* 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' ,
AAENVM TEXT IS 'ENVOI MAIL O/N' ,
AAIFS TEXT IS 'EMPLACEMENT IFS UTILISATEUR' ,
AALIB1 TEXT IS 'ZONE LIBRE 1' ,
AALIB2 TEXT IS 'ZONE LIBRE 2' ,
AALIB3 TEXT IS 'ZONE LIBRE 3' ,
AALIB4 TEXT IS 'ZONE LIBRE 4' ,
AALIB5 TEXT IS 'ZONE LIBRE 5' ,
AALIB6 TEXT IS 'ZONE LIBRE 6' ,
AADCRE TEXT IS 'DATE DE CREATION' ,
AADCRE TEXT IS 'DATE DE CREATION' ,
AAHCRE TEXT IS 'HEURE DE CREATION' ,
AAPCRE TEXT IS 'PROFIL DE CREATION' ,
AADMOD TEXT IS 'DATE DE MODIFICATION' ,
AAHMOD TEXT IS 'HEURE DE MODIFICATION' ,
AAPMOD TEXT IS 'PROFIL DE MODIFICATION');
Creer un Index sur IBMi
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';
Logique sélectif sur IBMi
A R PSNCEZF PFILE(PSNCEZD)
A
A K EZCPR5
A K EZETBO
A K EZC5SN
A K EZETBD
*
* Sélection des flux '4' et zone suppression à blanc
*
A S EZCTFL COMP(EQ '4')
A EZSUPP COMP(EQ ' ')
* Si on veux OU plutôt que ET => mettre S devant la sélection EZSUPP