-- RPG Battle Dev 2025
-- Script de mise en place de l'environnement

-- Procédure entiersToRomains
CL:CRTRPGMOD MODULE(BATTLE2025);
CL:CRTSRVPGM SRVPGM(BATTLE2025) MODULE(BATTLE2025/BATTLE2025) TEXT('Procédures communes - RPG Battle Dev 2025');
CL:CRTBNDDIR BNDDIR(BATTLE2025) TEXT('*SRVPGM communs');
CL:ADDBNDDIRE BNDDIR(BATTLE2025) OBJ((BATTLE2025)); 


-- Table VOLS
CREATE OR REPLACE TABLE vols (depart VARCHAR(20), arrivee VARCHAR(20));
CL:CHGOBJD OBJ(VOLS) OBJTYPE(*FILE) TEXT('Table des vols');

INSERT INTO vols VALUES
('New York', 'Paris'), ('Chicago', 'Miami'), ('New York', 'Londres'), ('Londres', 'Athenes'), ('Athenes', 'Nicosie'),
('Paris', 'Madrid'), ('Paris', 'Caire'), ('Chicago', 'Francfort'), ('Francfort', 'Moscou'), ('Francfort', 'Pekin'), 
('Moscou', 'Tokyo'), ('Francfort', 'Vienne'), ('Paris', 'Rome'), ('Miami', 'Lima'), ('New York', 'Los Angeles'),
('Los Angeles', 'Tokyo'), ('Tokyo', 'Hawaii'), ('Washington', 'Toronto'), ('Caire', 'Paris');

CREATE INDEX volsbydep ON vols(depart ASC);
CL:CHGOBJD OBJ(VOLSBYDEP) OBJTYPE(*FILE) TEXT('Index sur la table VOLS (DEPART ASC)');


-- Table ETAPES
CREATE OR REPLACE TABLE etapes (NUM_ETP INTEGER, DOSSARD INTEGER, DUREE TIME);
CL:CHGOBJD OBJ(TEAMLIB/ETAPES) OBJTYPE(*FILE) TEXT('Table des étapes du Tour de France cycliste');

INSERT INTO ETAPES 
VALUES(1, 1, '02:13:45'), (1, 2, '02:15:03') , (1, 3, '02:36:16'), (1, 4, '02:05:54'), (1, 5, null), (1, 6, '02:45:28'),
(2, 1, '03:12:11'), (2, 2, '03:12:12'), (2, 3, null) , (2, 4, '03:25:32'), (2, 5, '03:24:45'), (2, 6, '03:20:26'),
(3, 1, null), (3, 2, '02:45:19'), (3, 3, '02:40:25'), (3, 4, '02:50:03'), (3, 5, '02:48:52'), (3, 6, '02:42:11');


-- Table MEFTXTF00
CREATE TABLE MISE_EN_FORME_TEXTE                                
 FOR SYSTEM NAME MEFTXTF00 (TEXTE_BRUT FOR COLUMN TEXTE CHAR(1000) NOT NULL) RCDFMT MEFTXTF00F;
CL:CHGOBJD OBJ(TEAMLIB/MEFTXTF00) OBJTYPE(*FILE) TEXT('Table du poème de Victor Hugo');

INSERT INTO MEFTXTF00
VALUES('Demain, dès l''aube  Demain, dès l''aube, à l''heure où blanchit la campagne, Je partirai. !ois-tu, je sais que tu m''attends. J''irai par la forêt, j''irai par la montagne. Je ne puis demeurer loin de toi plus longtemps.  Je marcherai les yeux fixés sur mes pensées, Sans rien voir au dehors, sans entendre aucun bruit, Seul, inconnu, le dos courbé, les mains croisées, Triste, et le jour pour moi sera comme la nuit.  Je ne regarderai ni l''or du soir qui tombe, Ni les voiles au loin descendant vers Harfleur, Et quand j''arriverai, je mettrai sur ta tombe, Un bouquet de houx vert et de bruyère en fleur.  Victor Hugo.');
 
