Long ll_is_dossier
String ls_cd_dossier
String ls_libelle_dossier 

DECLARE get_dossier FOR PCK_DOSSIER.FCT_GET_DOSSIER( a_n_is_dossier = :ll_isdossier )
USING SQLCA;
  
EXECUTE get_dossier;

If SQLCA.SQLCode < 0 Then
   MessageBox("Erreur execute get_dossier ",SQLCA.SqlErrText )
   return -1
End If

FETCH get_dossier INTO :ls_cd_dossier,
                                    :ls_libelle_dossier ;

If SQLCA.SQLCode < 0 Then
   MessageBox("Erreur fetch get_dossier ",SQLCA.SqlErrText )
   return -1
End If