// Envoi du message "Bonjour" à l'utilisateur "QPGMR"
ASExec("SNDMSG MSG('BONJOUR')TOUSR(QPGMR)")
// Changement de la bibliothèque courante
ASExec("CHGCURLIB PROD2005")
// Appeler un programme
ASExec("CALL PGM(MYPROG) PARM('00213')")
// Création d'un récepteur, d'un journal et démarrage de la journalisation avec contrôle des erreurs
sCmd est une chaîne
sCmd="CRTJRNRCV JRNRCV(EASYCOM/TMPRCV)"
SI PAS ASExec(sCmd) ALORS
SI ExtraitChaîne(ErreurInfo(),2,CR)="CPF7010" ALORS Info("Récepteur déjà présent") SINON Info(ErreurInfo)
FIN
sCmd="CRTJRN JRN(EASYCOM/TMPJRN) JRNRCV(EASYCOM/TMPRCV)"
SI PAS ASExec(sCmd) ALORS
SI ExtraitChaîne(ErreurInfo(),2,CR)="CPF7015" ALORS Info("Le récepteur contient déjà ce poste de journal") SINON Info(ErreurInfo)
FIN
sCmd="STRJRNPF FILE(EASYCOM/SP_CUST) JRN(EASYCOM/TMPJRN)"
SI PAS ASExec(sCmd) ALORS
SI ExtraitChaîne(ErreurInfo(),2,CR)="CPF7030" ALORS Info("Fichier déjà journalisé") SINON Info(ErreurInfo)
FIN
Dans l'exemple avec AsAppelRTV et ASRésultatRTV on utilise un RTVMBRD pour récupérer des propriétés d'un fichier mais on peut imaginer aussi la création d'un fichier avec un DSPFD
ASExec("DSPFD FILE(EASYCOM/SP_CUST) TYPE(*MBR) OUTPUT(*OUTFILE) OUTFILE(QTEMP/SORTIE)")
sortie est une Source de Données
HDéclareExterne("QTEMP/SORTIE",sortie,MaConnexion)
HLitPremier(sortie)
Info("Nombre d'enregistrements :"+sortie.mbnrcd)
Info("Nombre d'enregistrements supprimés :"+sortie.mbndtr)
ASExec("DLTF FILE(QTEMP/SORTIE)")