Dsemaine DS qualified dim(7) inz D nom_du_jour 10 D date_du_jour 10 Ddsjours DS D j1 10 inz('Lundi') D j2 10 inz('Mardi') D j3 10 inz('Mercredi') D j4 10 inz('Jeudi') D j5 10 inz('Vendredi') D j6 10 inz('Samedi') D j7 10 inz('Dimanche') D tbjours 10 dim(7) overlay(dsjours) Ddepart S D Dwjour S 1 0 di S 3I 0 Djoursemaine PR extpgm('FORMATION1/FREE01') D D const D 1 0 /free // retourne sous forme d'un tableau // les 7 jours de la semaine encours // à partir du Lundi joursemaine(%date() : wjour); depart = %date() - %days(wjour); for i=1 to 7; semaine(i).nom_du_jour = tbjours(i); semaine(i).date_du_jour = %char(depart + %days(i)); endfor; // retourner la DS semaine exec sql SET RESULT SETS ARRAY :SEMAINE FOR 7 ROWS; *inlr = *on; /end-free |