Um nome de subrotina pode possuir até oito caracteres, a não ser que a linguagem que você estiver utilizando para gravar a subrotina exija um nome mais curto. Um nome deve começar com uma letra e pode ser formado de uma combinação de letras e/ou números. Símbolos especiais não são permitidos.

Quando você cria argumentos para uma subrotina, é necessário considerar os seguintes pontos:

• Número máximo de argumentos. Uma subrotina pode conter até 200 argumentos. É possível contornar esta restrição criando uma subrotina que aceita diversas chamadas, como descrito em Como Incluir Mais de 200 Argumentos em uma Chamada de Subrotina.
• Tipos de argumentos. É possível utilizar os mesmos tipos de argumentos em uma subrotina que em uma função. Para obter detalhes sobre estes tipos de argumentos, consulte Tipos de Argumentos.
• Argumentos de entrada. Argumentos de entrada são passados para uma subrotina utilizando convenções padrão. O registro um aponta para a lista de argumentos.

  Não deve-se presumir que os parâmetros de entrada estão armazenados na memória contígua.

• Argumentos de saída. Uma subrotina retorna apenas um argumento de saída. Este argumento deve ser o último da subrotina. É possível escolher qualquer formato para o argumento de saída, exceto no Dialogue Manager, que exige que o argumento possua o formato do campo de saída.
• Processamento interno. Os argumentos de uma subrotina são processados da seguinte forma:
  • Um argumento alfanumérico não é alterado.
  • Um argumento alfanumérico é convertido para o formato de precisão dupla com ponto flutuante, exceto em um comando RUN do sistema operacional ou quando a saída for armazenada em uma variável.
• Requerimentos do Dialogue Manager. Se você estiver gravando uma subrotina especificamente para o Dialogue Manager, uma conversão poderá ser necessária. Para obter detalhes sobre como utilizar uma subrotina com o Dialogue Manager, consulte Como Chamar uma Função a partir de um Comando do Dialogue Manager.

Os comprimentos dos argumentos sendo chamados como definidos no WebFOCUS devem corresponder aos comprimentos dos argumentos correspondentes definidos na subrotina.

Qualquer desvio destas regras pode resultar em problemas no uso da subrotina. A Information Builders recomenda que você modifique a subrotina para que fique em conformidade com as regras mencionadas e, em seguida, vincule-a acima da linha. Para carregar subrotinas acima da linha, as opções obrigatórias de vínculo e edição para a compilação e o armazenamento da subrotina são:

• AMODE 31 (Modo de Endereçamento - endereçamento de 31 bits)
• RMODE ANY (O sistema pode carregar esta rotina a qualquer momento)

Ao gravar uma subrotina, você deve considerar os seguintes problemas de linguagem:

Linguagem e memória. Se você gravar uma subrotina em uma linguagem que traz as bibliotecas para a memória (por exemplo, FORTRAN e COBOL), as bibliotecas reduzirão a quantidade de memória disponível para a subrotina.

FORTRAN. TSO suporta operações de entrada/saída FORTRAN.

COBOL. Quando uma subrotina é gravada em COBOL:

• A subrotina deve utilizar o comando GOBACK para retornar ao programa que a chamou. Não há suporte para STOPRUN.
• Os argumentos numéricos recebidos de uma solicitação deve ser declarados como COMP-2 (precisão dupla com ponto flutuante).
• O formato descrito no comando DEFINE ou COMPUTE determina o formato do argumento de saída:

  Formato FOCUS	Foto
  An	Xn
  I	S9(9) COMP
  P	S9(n)[V9(m)] onde: (1+n+m)/2 = 8 para número compactados baixos. (1+n+m)/2 = 16 para número compactados altos.
  D	COMP-2
  F	COMP-1

• O atributo RETURNS não pode ser utilizado.
• O atributo a seguir deve estar na declaração do procedimento (PROC):

  OPTIONS (COBOL)

• Os argumentos alfanuméricos recebidos de uma solicitação devem ser declarados como

  CHARACTER (n)

  onde:

  n

  É o comprimento do campo como definido pela solicitação. Não utilize o atributo VARYING.

• Os argumentos numéricos recebidos de uma solicitação devem ser declarados como

  DECIMAL FLOAT (16)

  ou

  BINARY FLOAT (53)

• O formato descrito no comando DEFINE ou COMPUTE determina o formato do argumento de saída:

  Formato FOCUS	Declaração PL/I para a Saída
  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 compactados baixos, 8 bytes) DECIMAL FIXED (31) (para números compactados altos, 16 bytes)

• As variáveis que não são argumentos com o atributo STATIC devem ser declaradas. Isto evita que haja a alocação dinâmica destas variáveis toda a vez em que a subrotina for executada.

• Não retorne um valor com a declaração de retorno.
• Declare os campos de precisão dupla como Duplos.
• O formato definido no comando DEFINE ou COMPUTE determina o formato do argumento de saída:

  Formato FOCUS	Declaração C para a Saída
  An	char *xxx n Campos alfanuméricos não terminam com um byte nulo e não podem ser processados por muitas das subrotinas de manipulação de strings da biblioteca da hora de execução.
  I	long *xxx
  F	float *xxx
  D	double *xxx
  P	Não há equivalente na linguagem C.

Considere os pontos abaixo ao planejar seus requerimentos de programação:

• Grave a subrotina para incluir um argumento que especifica o campo de saída.
• Se a subrotina iniciar a variável, ela deverá iniciá-la cada vez em que for executada (reusabilidade de série).
• Já que uma solicitação única pode executar uma subrotina inúmeras vezes, codifique a subrotina da maneira mais eficiente possível.
• Se você criar sua subrotina em um arquivo ou biblioteca de texto, a subrotina deve ser de 31 bits.
• O último argumento, que é utilizado normalmente para retornar o resultado da subrotina, também pode ser usado para fornecer a entrada da subrotina.

É possível adicionar flexibilidade à sua subrotina utilizando uma técnica de programação. Esta técnica pode ser uma das seguintes:

• Execute uma subrotina em um ponto de entrada. Um ponto de entrada permite que você utilize um algoritmo para produzir diferentes resultados. Para obter detalhes, consulte Como Executar uma Subrotina em um Ponto de Entrada.
• Crie uma subrotina com diversas chamadas de subrotina. Diversas chamadas permitem que a subrotina processe mais de 200 argumentos. Para obter detalhes, consulte Como Incluir Mais de 200 Argumentos em uma Chamada de Subrotina.

{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