Création d’un user space, récupération des infos, écriture, lecture et
suppression.
ch est chaîne
sus_pcml est chaîne = [
<pcml version=="4.0">
<program name="TESTUS" >
<data name="data" type="char" length="45" usage="input"/>
</program>
</pcml>
]
HOuvreConnexion(MaConnexionpower8)
//Création
SI PAS ASCreeUserSpace(MaConnexionpower8,"USPC1","CR") ALORS
Info(ErreurInfo())
FIN
isAutoExtend est un booléen = Faux
infoUSPC est un ASUserSpaceInfo
//Récupération des infos
SI ASInfoUserSpace(infoUSPC,MaConnexionpower8,"USPC1","*LIBL") ALORS
SI infoUSPC.autoExtend ALORS
isAutoExtend = Vrai
FIN
Info("USPC LIB : " + infoUSPC.uspcLibName,"USPC Space : " + infoUSPC.spaceSize,"USPC AutoExtend : " + isAutoExtend ,"USPC Initial Char value : " + infoUSPC.InitialValue);
SINON
Info(ErreurInfo())
FIN
ch="test uspc"
//Ecriture
SI PAS ASEcritUserSpace(sus_pcml, "CR/USPC1", 1, MaConnexionpower8,ch)
Erreur(ErreurInfo())
FIN
sRes est une chaîne
//Lecture
SI PAS ASLitUserSpace(sus_pcml, "CR/USPC1", 1, MaConnexionpower8, sRes)
Erreur(ErreurInfo())
SINON
Info(sRes)
FIN
//Suppression
ASSupprUserSpace(MaConnexionpower8,"USPC1","CR")