Common Romandie
RPG IV - Common Romandie
RPG IV - Common Romandie
- No tags were found...
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Exemple (RPGIV):Fqprint o f 132 printer oflind(*in58)D DSEMP EDS EXTFILE(EMP)C *entry plistC parm salent 15 5C/EXEC SQL DECLARE C1 CURSOR FORC+ SELECT NUM, NOM, SALAIRE FROM EMPC+ WHERE SALAIRE > :salentC+ order by salaire ascC/END-EXECC/EXEC SQL OPEN C1C/END-EXECC except entC DOU sqlcod0C/EXEC SQLC+ FETCH C1 INTO :NUM, :NOM,C+ :SALAIREC/END-EXECC if sqlcod=0C except detailC endifC 58 except entC ENDDOCCC/EXEC SQL CLOSE C1C/END-EXECoqprint e ent 2 2o 18 'Liste Employés'o e ent 2Experia Europe 49 <strong>Common</strong> <strong>Romandie</strong> 15/06/2010