## Example of usage of the entry point of the AIMP1 process
####################################################################
$ACTION
ACTION case
When "FIN" : Gosub FIN
Endcase
Return$FIN
If [F:ARP]RPTCOD="ETAT1" : # After ETAT1 follows ETAT2
GPE = 1
ETAT = "ETAT2"
Endif
Return