RV: Chain a DS

[Fernando P�rez]

Title: RV: Chain a DS

Lo olvidaba. Estoy en V5R2

Saludos.

Fernando P�rez.

Cer�mica Saloni. Dpto. Sistemas

<mailto:[EMAIL PROTECTED]>

<<Fernando P�rez.vcf>>
 -----Mensaje original-----
De:     Fernando P�rez 
Enviado el:     martes, 12 de agosto de 2003 13:25
Para:   Foro 400 ([EMAIL PROTECTED])
Asunto: Chain a DS

Hola, sufridos foreros.

Estoy intentando reproducir un ejemplo de c�mo hacer un chain a una DS, pero me casca al compilar, diciendo que el El operando de Campo de resultado no est� permitido para la operaci�n. Este es el c�digo:

ForL00100  if   e           K disk                                
 *                                                                
Dreg              DS                  LIKEREC(RORF001)            
 *                                                                
 /FREE                                                            
      CHAIN (5) orL00100 reg;                                
 /END-FREE                                                        
C     opsitu        dsply                                         
C                   EVAL      *INLR=*ON          

El error(*RNF5155) me lo da en la l�nea del chain. Por m�s que he leido el manual, y comparado esto con el ejemplo que viene, no encuentro ninguna diferencia.

�Estoy haciendo algo mal o necesito aplicar ptf's (o irme de vacaciones ;) )?              

Saludos.
Fernando P�rez.
Cer�mica Saloni. Dpto. Sistemas
<mailto:[EMAIL PROTECTED]>
<<Fernando P�rez.vcf>>

Fernando P�rez.vcf
Description: Binary data

Fernando P�rez.vcf
Description: Binary data