PROC(NUMBER_ARGUMENTS,
      FAILURE_CODE,
      MESSAGE_BUFFER_PTR,
      MESSAGE_BUFFER_LENGTH,
      TEXT_AREA_PTR,
      TEXT_AREA_LENGTH,
      NUMBER1,
      NUMBER1_LENGTH)
      OPTIONS(FETCHABLE)
      REORDER;
 /*---------------------*/
 /* LINKAGE FROM CALLER */
 /*---------------------*/
 DCL  NUMBER_ARGUMENTS        FIXED BIN(31);
 DCL  FAILURE_CODE            FIXED BIN(31);

 DCL  MESSAGE_BUFFER_PTR      PTR;                                   
 DCL  1 MESSAGE_BUFFER_STR    BASED(ADDR(MESSAGE_BUFFER_PTR)),      
        4 MESSAGE_BUFFER      CHAR(255);
 DCL  MESSAGE_BUFFER_LENGTH   FIXED BIN(31);

 DCL  TEXT_AREA_PTR           PTR;                                  
 DCL  1 TEXT_AREA_STR         BASED(ADDR(TEXT_AREA_PTR)),            
        4 TEXT_AREA           CHAR(15);                              
 DCL  TEXT_AREA_LENGTH        FIXED BIN(31);

 DCL  NUMBER1                 FIXED BIN(31);
 DCL  NUMBER1_LENGTH          FIXED BIN(31);

O primeiro campo é chamado TEXT e seu tamanho máximo é de 15 bytes. Os dados podem ser movidos dele e para ele usando o campo PL/I TEXT-AREA. Se não for um campo de tamanho fixo, TEXT-AREA-LENGTH deverá ser usado para determinar o tamanho real. Se o programa quiser alterar o tamanho, ele deverá armazenar o valor necessário no campo TEXT-AREA-LENGTH.
O segundo campo é numérico, que, no Navegador, é definido como NUM32. Os dados podem ser movidos dele e para ele usando o campo NUMBER1. Não é comum querer usar o campo NUMBER1-LENGTH.
Se o campo não for anulável, ele conterá um valor de 4 na entrada para o programa PL/I.
Se o campo NUMBER1-LENGTH for NULL, ele será definido para 0. Essa situação poderá ocorrer se o campo era NULL antes do programa ser chamado. Se o programa definir o campo NULL, ele também definirá NUMBER1-LENGTH para 0.