D  nom_du_jour    s             10
     D  date_du_jour   s             10
     D  RS1            S                   SQLTYPE(RESULT_SET_LOCATOR)
      /free
         exec sql
            CALL FREE03;
         if SQLCODe = +466;
           exec sql ASSOCIATE LOCATORS (:RS1) WITH PROCEDURE FREE03;
           exec sql ALLOCATE C1 CURSOR FOR RESULT SET :RS1;
           exec sql fetch c1 into :nom_du_jour , :date_du_jour;
           dow sqlcode = 0;
 
             exec sql fetch c1 into :nom_du_jour , :date_du_jour;
           ENDDO;
           exec sql close C1;
         ENDIF;
 
         *inlr = *on;
      /end-free