El nombre de la subrutina puede tener una longitud de hasta ocho caracteres, a menos que el lenguaje que esté usando requiera nombres más cortos. El nombre debe empezar por una letra y puede estar compuesto por una combinación de letras y números. No se permite el uso de caracteres especiales.

Al crear argumentos para una subrutina, tenga en cuenta las siguientes cuestiones:

• Número máximo de argumentos. Una subrutina puede incluir hasta 200 argumentos. Para eludir esta restricción, cree una subrutina que acepte múltiples llamadas, como se explica en Incluir más de 200 argumentos en una llamada de subrutina.
• Tipos de argumentos. Puede usar los mismos tipos de argumentos en una subrutina que en una función. Para más detalles sobre estos tipos de argumentos, consulte Tipos de argumento.
• Argumentos de entrada. Los argumentos de entrada se pasan a la subrutina por medio de convenciones estándar. El registro uno apunta hacia la lista de argumentos.

  No debe dar por sentado que los parámetros de entrada se encuentran almacenados en memoria contigua.

• Argumentos de salida. Las subrutinas sólo devuelven un argumento de salida. Este argumento debe ser el último de la subrutina. Puede utilizar cualquier formato para el argumento de salida, excepto en Dialogue Manager, que obliga a que el argumento tenga el mismo formato que el campo de salida.
• Procesamiento interno. Los argumentos de una subrutina se procesan del siguiente modo:
  • Los argumentos alfanuméricos no cambian.
  • Los argumentos numéricos se convierten al formato de punto flotante de doble precisión, excepto en sistemas operativos de comando RUN o al almacenar la salida en una variable.
• Requisitos de Dialogue Manager. Si está escribiendo una subrutina específica de Dialogue Manager, puede que tenga que realizar una conversión. Para más detalles acerca de cómo usar una subrutina con Dialogue Manager, consulte Cómo llamar a una función desde un comando de Dialogue Manager.

Las longitudes de los argumentos de llamada definidos en WebFOCUS, deben coincidir con las de los argumentos correspondientes, definidos en la subrutina.

Cualquier desviación respecto a estas reglas puede causar problemas de funcionamiento en la subrutina. Information Builders le recomienda que modifique la subrutina para que cumpla con las reglas establecidas, y después la vincule por encima de la línea. Para cargar subrutinas por encima de la línea, son necesarias las siguientes opciones de vincular-editar al compilar y almacenar la subrutina:

• AMODE 31 (modo de envío - envío de 31-bits)
• RMODE ANY (el sistema pueda cargar esta subrutina en cualquier lugar)

Al escribir una subrutina, es importante que tenga en cuenta las siguientes cuestiones:

Lenguaje y memoria. Si escribe una subrutina en un lenguaje que almacena las bibliotecas en la memoria (por ejemplo, FORTRAN o COBOL), se verá reducida la cantidad de memoria disponible para la subrutina.

FORTRAN. TSO es compatible con las operaciones de entrada y salida de FORTRAN.

COBOL. Al escribir una subrutina en COBOL:

• La subrutina debe usar el comando GOBACK para volver al programa de llamada. STOPRUN no es compatible.
• Debe declarar como COMP-2 (punto flotante de doble precisión) los argumentos numéricos recibidos de una solicitud.
• El formato descrito en el comando DEFINE o COMPUTE, determina el formato del argumento de salida:

  Formato WebFOCUS	Esquema
  An	Xn
  I	S9(9) COMP
  P	S9(n)[V9(m)] donde: (1+n+m)/2 = 8 para números empaquetados pequeños. (1+n+m)/2 = 16 para números empaquetados grandes.
  D	COMP-2
  F	COMP-1

• No se puede utilizar el atributo RETURNS.
• El siguiente atributo debe estar incluido en la declaración del procedimiento (PROC):

  OPTIONS (COBOL)

• Los argumentos alfanuméricos recibidos de una solicitud deben declararse como

  CHARACTER (n)

  donde:

  n

  Es la longitud del campo definida por la solicitud. No utilice el atributo VARYING.

• Los argumentos numéricos recibidos de una solicitud deben declararse como

  DECIMAL FLOAT (16)

  o

  BINARY FLOAT (53)

• El formato descrito en el comando DEFINE o COMPUTE, determina el formato del argumento de salida:

  Formato WebFOCUS	Declaración PL/I de salida
  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) (para números empaquetados pequeños, 8 bytes) DECIMAL FIXED (31) (para números empaquetados grandes, 16 bytes)

• Debe declarar las variables que no sean argumentos con el atributo STATIC. Esto evita la asignación de estas variables cada vez que se ejecute la subrutina.

• No devuelva un valor con la declaración de devolución.
• Declare como Doble los campos de doble precisión.
• El formato definido en el comando DEFINE o COMPUTE, determina el formato del argumento de salida:

  Formato WebFOCUS	Declaración C de salida
  An	char *xxx n Los campos alfanuméricos no terminan con un byte nulo y no pueden ser procesados por muchas de las subrutinas de manipulación de cadenas de la biblioteca de tiempo de ejecución.
  I	long *xxx
  F	float *xxx
  D	double *xxx
  P	No hay equivalente en C.

Tenga en cuenta lo siguiente a la hora de plantear sus requisitos de programación:

• Escriba la subrutina para que incluya un argumento que especifique el campo de salida.
• Si la subrutina inicializa una variable, debe hacerlo cada vez que se ejecute (reusabilidad en serie).
• Puesto que una solicitud individual es capaz de ejecutar una subrutina repetidas veces, codifique la subrutina lo más eficientemente posible.
• Si crea su subrutina en un archivo o biblioteca de texto, la subrutina debe ser de 31 bits direccionable.
• También puede emplear el último argumento, normalmente utilizado para devolver el resultado de la subrutina, para proporcionar la entrada de la subrutina.

Puede añadir flexibilidad a su subrutina utilizando una técnica de programación. Ejemplos de técnicas programación:

• Ejecución de una subrutina desde un punto de entrada. Los puntos de entrada permiten utilizar un solo algoritmo para producir resultados diferentes. Para más detalles, consulte Cómo ejecutar una subrutina desde un punto de entrada.
• Creación de una subrutina con múltiples llamadas de subrutina. El establecimiento de llamadas múltiples permite a la subrutina procesar más de 200 argumentos. Para más detalles, consulte Incluir más de 200 argumentos en una llamada de subrutina.

{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