//Déclaration des variables
MaConnexion est une Connexion
sp_cust est une Source de Données
//Description de la connexion
SI PAS HDécritConnexion(MaConnexion,"user","pwd","194.206.160.105","",hAccèsNatifAS400,hOLectureEcriture,"")
ALORS
Info(HErreurInfo())
FIN
//Déclaration du fichier externe SP_CUST
SI PAS HDéclareExterne("EASYCOM/SP_CUST", SP_CUST, MaConnexion) ALORS
Info(HErreurInfo())
FIN
//Lecture des enregistrements du fichier SP_CUST
HLitPremier(SP_CUST)
TANTQUE PAS HEnDehors
Info(sp_cust.cust_id,sp_cust.firstname,sp_cust.lastname,sp_cust.address,sp_cust.city,sp_cust.state)
HLitSuivant(sp_cust)
FIN