Cet exemple utilise un programme CL de la bibliothèque Easycom pour lire dans un Data Area de la bibliothèque Easycom et la fonction ASExec pour y écrire.
Il est également possible de lire une DTAARA avec les fonctions ASAppelRTV et ASRésultatRTV.
Ecriture par ASExec
sMsg est une chaîne
sMsg="Ce message a été décrit dans la Data Area depuis votre programme WinDev !"
ASExec("CHGDTAARA DTAARA(EASYCOM/DTAARA (1 200)) VALUE('"+sMsg+"') ")
Lecture par le programme RTVDTAARA
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()
Lecture par un ASRésultatRTV
// Lecture du résultat
scmd= " RTVDTAARA DTAARA(EASYCOM/DTAARA) RTNVAR(&VAR1)"
bresult = ASAppelRtv(scmd)
Resultat = ASResultatRtv("RC")
SI Resultat = "0" ALORS
var1=ASResultatRtv("VAR1")
FIN