Parameter passing with COBOL and REXX

     TO WHOM IT MAY CONCERN
     
     I am trying to pass a variable from a COBOL program to a REXX program 
     using the REXX external data queue. The problem is that I am told by 
     an error message when the program is run that the parameters I am 
     passing do not match those required. Following is the program's 
     working storage. Does anyone know why this will not work or is there a 
     better way to pass a parameter to a REXX program from a COBOL or CL 
     program. 
     
     01 PARM-LIST.
     05 FUNCTION-CODE        PIC X.
     05 WS-TLA                       PIC X(4). 05 BUFF-LENGTH          PIC 
     9999 COMP-4. 05 FLAG                 PIC 99 COMP-4.
     88 FIFO         VALUE '0'.
     88 LIFO         VALUE '1'.
     05 RETURN-CODE          PIC 99 COMP-4.
     
     This area of working storage is filled with the following code.
     
     MOVE 'A' TO FUNCTION-CODE
     MOVE TLA-IDENT OF DSP-INPUT-1 TO WS-TLA MOVE 4 TO BUFF-LENGTH  
     SET FIFO TO TRUE
     MOVE ZEROES TO RETURN-CODE.
     
     The REXX external data queue is called using the following code.
     
     CALL 'QREXQ' USING PARM-LIST. 
     
     
     
     Thanks Ross