Erreur d'instruction de fonction dans la routine de serveur de données (BASIC). Très simple mais ne fonctionnait pas

Question

J'ai un problème avec l'utilisation de l'instruction de fonction de routine du serveur de données.

Voulez-vous s'il vous plaît noter moi à quel est le problème avec mon code?

Il est simple mais je ne sais pas pourquoi ne fonctionne pas ...

Le code est

$INCLUDE DSINCLUDE JOBCONTROL.H 
    FUNCTION GetTS(A,B) 
    ARG1 = A:B 
    RETURN(ARG1) 

    DEFFUN GetTS(A,B) 

    S='aaa' 
    K='bbb' 

    txt = GetTS(S,K) 
    Ans = txt 

et le message d'erreur est

Compiling: Source = 'DSU_BP/DSU.Test02', Object = 'DSU_BP.O/DSU.Test02' 
************************************************? 
Line 0002  
1 Errors detected, No Object Code Produced. 

message d'erreur Normaly dit quel est le problème, mais cette fois n'est pas ...

Answer 1

J'ai trouvé quelque chose. Les routines du serveur font partie de l'instruction Function.

L'instruction de fonction dans Server Routine est donc impossible.