SI INT_LDA[1] ALORS
RTVDTAARA.Dtaara="*LDA"
SINON
RTVDTAARA.Lib=SAI_LIB
RTVDTAARA.Dtaara=SAI_DTA
SI (SAI_LIB="" OU SAI_DTA="") ALORS
Info("Bibliothèque et/ou nom de la data area vides...")
RETOUR
FIN
FIN
SI SAI_TAILLE=0 ALORS
RTVDTAARA.Size=200
SINON
RTVDTAARA.Size=SAI_TAILLE
FIN
ASLanceRPC(RTVDTAARA)
SAI_VAL=RTVDTAARA.Value
FichierVersEcran()