AS/400 - Como leer un archivo de as400 desde rexx?

Sres.
Me pueden indicar como leo un archivo en AS400 y almacenarlo en una variable.
Que no sea el STDIN ya que este es una QUEUE que no se como borrarla y la pasar el control a otro programa me arrastra los datos del STDIN abierto en un programa principal.
Quivalente a comando 'EXECIO * DISKR ENTRADA(STEM 'LINEA. 'FINIS' en HOST 3390, en donde el contenido del archivo se guarda en la variable. LINEA.

Saludos.
Espero sus prontas respuesta.

Alfredo/

Como estas ?

Para leer un archivo de as/400 desde un CLP , guardando los valores en variables, podes hacerlo de la siguiente manera:

Declarativas en en clp (USUARIOS = Archivo de dtaos )

DCLF FILE(*LIBL/USUARIOS)

con la siguiente sentencia lo lees:

RCVF
MONMSG CPF0864 EXEC(GOTO END) /* END OF FILE


Los campos se llaman igual que en las DDS pero le antecede la palabra &

Ejemplo :

IF COND(&TYPE *EQ 'INT') THEN(DO)

espero te sirva.
slds
Daniel