Un nom de sous-routine peut contenir jusqu'à huit caractères à moins que la langue que vous utilisez pour écrire la sous-routine nécessite un nom plus court. Un nom doit commencer par une lettre et peut être constitué de n'importe quelle combinaison de lettres et / ou de nombres. Les symboles spéciaux ne sont pas autorisés.

Lorsque vous créez des arguments pour une sous-routine, vous devez considérer les points suivants :

• Nombre maximum d'arguments. Une sous-routine peut contenir jusqu'à 200 arguments. Vous pouvez contourner cette restriction en créant une sous-routine qui accepte plusieurs appels, comme décrit dans Intégrer plus de 200 arguments dans un appel de sous-routine.
• Types d'arguments. Vous pouvez utiliser les mêmes types d'arguments dans une sous-routine que dans une fonction. Pour plus de détails sur ces types d'arguments, reportez-vous à Types d'arguments.
• Arguments d'entrée. Les arguments d'entrée sont transmis vers une sous-routine à l'aide de conventions standards. La caisse numéro un pointe vers la liste d'arguments.

  Ne supposez pas que les paramètres d'entrée soient forcément stockés dans une mémoire continue.

• Arguments de sortie. Une sous-routine ne renvoie qu'un argument de sortie. Cet argument doit se trouver au moins dans la sous-routine. Vous pouvez choisir tout format pour l'argument de sortie excepté dans le Gestionnaire de dialogues qui nécessite que l'argument soit au format du champ de sortie.
• Traitement interne. Les arguments d'une sous-routine sont traités comme ce qui suit :
  • Un argument alphanumérique n'est pas modifié.
  • Un argument numérique est converti au format virgule flottante en double précision sauf dans la commande RUN d'un système d'exploitation ou lors d'un stockage de la sortie en une variable.
• Conditions requises du Gestionnaire de dialogues. Si vous écrivez une sous-routine spécifiquement pour le Gestionnaire de dialogues, la sous-routine devrait peut-être réaliser une conversion. Pour plus d'informations sur l'utilisation d'une sous-routine avec le Gestionnaire de dialogues, consultez Appeler une fonction à partir d'une commande Dialog Manager.

Les longueurs des arguments d'appel définis dans WebFOCUS doivent correspondre à la longueur des arguments correspondants définis dans la sous-routine.

Toute dérogation à ces règles peut entraîner des problèmes dans l'utilisation de la sous-routine. Information Builders vous recommande de modifier la sous-routine pour être conforme aux règles établies, puis de la lier au-dessus de la ligne. Pour charger des sous-routine au-dessus de la ligne, voici les options de liaison et de modifiation requises pour la compilation et le stockage de la sous-routine :

• AMODE 31 (Mode d'adressage - adressage à 31 bits)
• RMODE ANY (Le système ne peut pas charger cette routine où que ce soit)

Lorsque vous écrivez une sous-routine, vous devez considérer les questions linguistiques suivantes :

Langue et mémoire. Si vous écrivez une sous-routine dans un langage qui apporte des bibliothèques dans la mémoire (par exemple, FORTRAN et COBOL), les bibliothèques réduisent la quantité de mémoire disponible pour la sous-routine.

FORTRAN. TSO prend un charge les opérations d'entrée / de sortie FORTRAN.

COBOL. Lors de l'écriture d'une sous-routine dans COBOL :

• La sous-routine doit utiliser la commande GOBACK puor envoyer le programme d'appel. STOPRUN n'est pas pris en charge.
• Les arguments numériques reçus d'une requête doivent être déclarées comme COMP-2 (virgule flottante en double précision).
• Le format décrit dans la commande DEFINE ou COMPUTE détermine le format de l'argument de sortie :

  WebFOCUS	Image
  An	Xn
  I	S9(9) COMP
  P	S9(n)[V9(m)] où : (1+n+m)/2 = 8 pour nombres en petits paquets. (1+n+m)/2 = 16 pour nombres condensés de grande taille.
  D	COMP-2
  F	COMP-1

• L'attribut RETURNS ne peut pas être utilisé.
• L'attribut suivant doit se trouver dans l'instruction de la procédure (PROC) :

  OPTIONS (COBOL)

• Les arguments alphanumériques reçus d'une requête doivent être effacés comme ce qui suit

  CHARACTER (n)

  où :

  n

  est la longueur du champ comme le définit la requête. N'utilisez pas l'attribut VARYING.

• Les arguments alphanumériques reçus d'une requête doivent être déclarés comme ce qui suit

  DECIMAL FLOAT (16)

  ou

  BINARY FLOAT (53)

• Le format décrit dans la commande DEFINE ou COMPUTE détermine le format de l'argument de sortie :

  WebFOCUS	Délaration PL/I pour Sortie
  An	CHARACTER (n)
  I	BINARY FIXED (31)
  F	DECIMAL FLOAT (6) or BINARY FLOAT (21)
  D	DECIMAL FLOAT (16) or BINARY FLOAT (53)
  P	DECIMAL FIXED (15) (pour les petits nombres condensés, 8 octets) DECIMAL FIXED (31) (pour les larges nombres condensés, 16 octets)

• Les variables autres que des arguments avec l'attribut STATIC doivent être déclarés. Ceci prévient l'allocation dynamique de ces variables chaque fois que la sous-routine est exécutée.

• Ne renvoyez pas de valeur avec l'instruction de retour.
• Déclarez les champs en double précision comme Double.
• Le format défini dans la commande DEFINE ou COMPUTE détermine le format de l'argument de sortie :

  WebFOCUS	Déclaration C pour Sortie
  An	char *xxx n Les champs alphanumériques ne sont pas terminés par un octet nul et ne peuvent pas être traité par de nombreuses sous-routines de manipulation de chaînes dans la bibliothèque d' exécution.
  I	long *xxx
  F	float *xxx
  D	double *xxx
  P	Pas d'équivalent en C.

Tenez en compte les éléments suivants lorsque vous projetez vos conditions requises de programmation :

• Ecrivez la sous-routine pour qu'elle comprenne un argument qui spécifie le champ de sortie.
• Si la sous-routine initialise une variable, elle doit aussi le faire à chaque fois qu'elle est exécutée (réutilisation en série).
• Puisqu'une requête unique doit exécuter une sous-routine à de multiples reprises, codez la sous-routine aussi efficacement que possible.
• Si vous créez votre sous-routine dans un fichier texte ou une bibliothèque texte, la sous-routine doit être adressable à 31 octets.
• Le dernier argument, qui est généralement utilisé pour renvoyer le résultat de la sous-routine peut également être utilisé pour fournir une entrée de la sous-routine.

Vous pouvez ajouter de la flexibilité à votre sous-routine en utilisant une technique de programmation. Une technique de programmation peut être :

• Exécutez une sous-routine à un point d'entrée. Un point d'entrée vous permet d'utiliser un algorithme pour produire des résultats différents. Pour plus de détails, consultez Exécuter une sous-routine à un point d'entrée.
• Créez un sous-routine avec plusieurs appels de sous-routines. Des appels multiples permettent à la sous-routine de traiter plus de 200 arguments. Pour plus de détails, consultez Intégrer plus de 200 arguments dans un appel de sous-routine.

{subroutine|entrypoint}  (input1, input2,...outfield)

Subroutine FTOC (FAREN, CENTI).
Let FLAG = 0.
Go to label X.
Entry FTOK (FAREN, CENTI).
Let FLAG = 1.
Label X.
Let CENTI = (5/9) * (FAREN - 32).
If FLAG = 1 then CENTI = CENTI - 273.
Return.
End of subroutine.

Subroutine FTOC (FAREN, CENTI).
Entry FTOK (FAREN, KELV).
Let CENTI = (5/9) * (FAREN - 32).
KELV = CENTI - 273.
Return.
End of Subroutine.

CENTIGRADE/D6.2 = FTOC (TEMPERATURE, CENTIGRADE);

KELVIN/D6.2 = FTOK (TEMPERATURE, KELVIN);

field = subroutine (1, group1, field)
;field = subroutine (2, group2, field);
   .
   .
   .outfield = subroutine (n, groupn, outfield);

Subroutine ADD32 (NUM, A, B, C, D, E, F, TOTAL).
If NUM is 1 then goto label ONE
else if NUM is 2 then goto label TWO
else if NUM is 3 then goto label THREE
else if NUM is 4 then goto label FOUR
else if NUM is 5 then goto label FIVE
else goto label SIX.
 
Label ONE.
Let SUM = A + B + C + D + E + F.
Return.
 
Label TWO
Let SUM = SUM + A + B + C + D + E + F
Return
 
Label THREE
Let SUM = SUM + A + B + C + D + E + F
Return
 
Label FOUR
Let SUM = SUM + A + B + C + D + E + F
Return
 
Label FIVE
Let SUM = SUM + A + B + C + D + E + F
Return
 
Label SIX
LET TOTAL = SUM + A + B
Return
End of subroutine

DEFINE FILE EMPLOYEE
DUMMY/D10 = ADD32 (1, 5, 7, 13, 9, 4, 2, DUMMY);
DUMMY/D10 = ADD32 (2, 5, 16, 2, 9, 28, 3, DUMMY);
DUMMY/D10 = ADD32 (3, 17, 12, 8, 4, 29, 6, DUMMY);
DUMMY/D10 = ADD32 (4, 28, 3, 22, 7, 18, 1, DUMMY);
DUMMY/D10 = ADD32 (5, 8, 19, 7, 25, 15, 4, DUMMY);
SUM32/D10 = ADD32 (6, 3, 27, 0, 0, 0, 0, SUM32);
END