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