Il nome della subroutine può essere lungo fino ad otto caratteri, a meno che il linguaggio in uso per scrivere la subroutine non richieda un nome più breve. Il nome deve cominciare con una lettera e può consistere in una combinazione di lettere e/o numeri. I simboli speciali non sono consentiti.

Quando si creano argomenti per una subroutine, è necessario considerare i seguenti problemi:

• Numero massimo di argomenti. Una subroutine è in grado di contenere fino a 200 argomenti. È possibile saltare questa restrizione, creando una subroutine che accetta più chiamate, come descritto in Inclusione di più di 200 argomenti in una chiamata della subroutine.
• Tipi di argomento. È possibile usare gli stessi tipi di argomenti in una subroutine come anche in una funzione. Per dettagli su questi tipi di argomenti, consultare Tipi di Argomento.
• Argomenti di Immissione. Gli argomenti di immissione vengono inoltrati ad una subroutine usando le convenzioni standard. Registrare un punto nell'elenco degli argomenti.

  Non si dovrebbe assumere che i parametri di immissione siano memorizzati in memoria contigua.

• Argomenti di Emissione. Una subroutine restituisce solo un argomento di emissione. Questo argomento deve essere l'ultimo in una subroutine. È possibile scegliere qualsiasi formato per l'argomento di emissione, tranne in Dialogue Manager, che richiede lo stesso formato del campo di emissione.
• Elaborazione interna. Gli argomenti di una subroutine sono elaborati come segue:
  • L'argomento alfanumerico non si cambia.
  • L'argomento numerico viene convertito in formato precisione-doppia punto-mobile, tranne nel comando RUN del sistema operativo, o quando si memorizza l'emissione in una variabile.
• Requisiti di Dialogue Manager. Se si sta scrivendo una subroutine specificatamente per Dialogue Manager, la subroutine potrebbe dover eseguire una conversione. Per dettagli sull'uso di una subroutine con Dialogue Manager, consultare Chiamata di una funzione dal comando Dialogue Manager.

Le lunghezze della chiamata di argomenti, come definito in WebFOCUS devono corrispondere alle lunghezze degli argomenti corrispondenti, definiti nella subroutine.

Qualsiasi deviazione da queste regole potrebbe risultare in problemi nell'uso della subroutine. Information Builders consiglia di modificare la subroutine per essere conformi alle regole definite e quindi collegarla sopra la linea. Per poter caricare le subroutine sopra la linea, le seguenti sono le opzioni di modifica collegamenti richiesti per la compilazione e la memorizzazione della subroutine:

• AMODE 31 (Addressing Mode - 31-bit addressing)
• RMODE ANY (Il sistema è in grado di caricare questa routine ovunque)

Quando si scrive una subroutine, è necessario considerare i seguenti problemi di linguaggio:

Linguaggio e memoria. Se si scrive una subroutine in un linguaggio che trasferisce le librerie in memoria (per esempio, FORTRAN e COBOL), le libreria riducono la quantità di memoria disponibile per la subroutine.

FORTRAN. TSO supporta le operazione di immissione/emissione FORTRAN.

COBOL. Quando si scrive una subroutine in COBOL:

• La subroutine deve usare il comando GOBACK per ritornare al programma di chiamata. STOPRUN non è supportato.
• Gli argomenti numerici ricevuti da una richiesta devono essere dichiarati come COMP-2 (precisione doppia punto mobile).
• Il formato descritto nel comando DEFINE o COMPUTE determina il formato dell'argomento di emissione:

  Formato FOCUS	Immagine
  An	Xn
  I	S9(9) COMP
  P	S9(n)[V9(m)] dove: (1+n+m)/2 = 8 per numeri compressi di piccole dimensioni. (1+n+m)/2 = 16 per numeri compressi di grandi dimensioni.
  D	COMP-2
  F	COMP-1

• Non è possibile usare l'attributo RETURNS.
• Il seguente attributo deve trovarsi nella dichiarazione di procedura (PROC):

  OPTIONS (COBOL)

• Gli argomenti alfanumerici ricevuti da una richiesta devono essere dichiarati come

  CHARACTER (n)

  dove:

  n

  La lunghezza del campo come definita dalla richiesta. Non usare l'attributo VARYING.

• Gli argomenti numerici ricevuti da una richiesta devono essere dichiarati come

  DECIMAL FLOAT (16)

  oppure

  BINARY FLOAT (53)

• Il formato descritto nel comando DEFINE o COMPUTE determina il formato dell'argomento di emissione:

  Formato FOCUS	Dichiarazione PL/I per Emissione
  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) (per numeri compressi di piccole dimensioni, 8 byte) DECIMAL FIXED (31) (pre numeri compressi di grandi dimensioni, 16 byte)

• È necessario dichiarare le variabili che non sono argomenti con l'attributo STATIC. Questa azione evita l'allocazione dinamica di queste variabili ogni volta che si esegue la rubroutine.

• Non restituire un valore con la dichiarazione di ritorno.
• Dichiarare i campi precisione-doppia come Doppi.
• Il formato definito nel comando DEFINE o COMPUTE determina il formato dell'argomento di emissione:

  Formato FOCUS	Dichiarazione C per Emissione
  An	char *xxx n I campi alfanumerici non vengono terminati con un byte nullo e non possono essere elaborati dalla maggior parte delle subroutine di manipolazione stringhe nella libreria run-time.
  I	long *xxx
  F	float *xxx
  D	double *xxx
  P	Non equivalente in C.

Considerare il seguente quando si pianificano i requisiti di programmazione:

• Scrivere la subroutine per includere un argomento che specifica il campo di emissione.
• Se la subroutine inizializza una variabile, la deve inizializzare ad ogni esecuzione (riusabilità seriale).
• Poiché una singola richiesta potrebbe eseguire una subroutine molte volte, codificare la subroutine il modo più efficiente possibile.
• Se si crea la subroutine in un file testo o libreria testo, la subroutine deve essere indirizzabile di 31-bit.
• L'ultimo argomento, di solito usato per restituire il risultato della subroutine, può inoltre essere usato per fornire l'emissione dalla subroutine.

È possibile aggiungere flessibilità alla propria subroutine, usando una tecnica di programmazione. La tecnica di programmazione può essere una delle seguenti:

• Esecuzione di una subroutine in un punto di entrata. Un punto di entrata consente l'uso di un algoritmo per produrre risultati diversi. Per dettagli, consultare Esecuzione di una subroutine in un punto di entrata.
• Creazione di una subroutine con più chiamate di subroutine. Più chiamate consentono alla subroutine di elaborare più di 200 argomenti. Per dettagli, consultare Inclusione di più di 200 argomenti in una chiamata della subroutine.

{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