003700 LINKAGE SECTION.
003800
003900 01  NUMBER-FIELDS           PIC S9(9) COMP.
003901
003902 01  FAILURE-CODE            PIC S9(9) COMP.
003903
003904 01  MESSAGE-BUFFER.
003905     05  MESSAGE-BUFFER-BYTE PIC X(1)
003906                 OCCURS 1 TO 128
003907                 DEPENDING ON MESSAGE-BUFFER-LENGTH.
003908 01  MESSAGE-BUFFER-LENGTH   PIC S9(9) COMP.
003910
004000 01  TEXT-AREA.
004010     05  TEXT-AREA-BYTE      PIC X(1) OCCURS 15.
004100 01  TEXT-AREA-LENGTH        PIC S9(9) COMP.
004111
004120 01  NUMBER1                 PIC S9(9) COMP.
004130 01  NUMBER1-LENGTH          PIC S9(9) COMP.
005730
005800 PROCEDURE DIVISION USING
005801     NUMBER-FIELDS
005802     FAILURE-CODE
005803     MESSAGE-BUFFER
005807     MESSAGE-BUFFER-LENGTH
005809     TEXT-AREA
005810     TEXT-AREA-LENGTH
005811     NUMBER1
005820     NUMBER1-LENGTH

O primeiro campo é TEXT e o tamanho máximo é de 15 bytes. Os dados podem ser movidos dele e para ele usando o campo COBOL TEXT-AREA. Se não for um campo CHAR de tamanho fixo, TEXT-AREA-LENGTH deverá ser usado para determinar o tamanho real. Se o programa COBOL quiser alterar o tamanho, ele deverá armazenar o valor necessário no campo TEXT-AREA-LENGTH.
O segundo campo é numérico, que, no Navegador do PowerExchange, é definido como NUM32. Os dados podem ser movidos dele e para ele usando o campo COBOL NUMBER1. Geralmente, esse campo não é usado.
Se o campo não puder ser anulado, ele conterá um valor de 4 na entrada para o programa COBOL. Se NUMBER1-LENGTH for NULL, ele será definido como zero. Essa situação poderá ocorrer se o campo era NULL antes do programa ser chamado. Se NUMBER1-LENGTH for definido como NULL, o programa definirá o campo NUMBER1-LENGTH como 0.