Buenas tardes,
Tengo el lógico LOGICO1 que contiene 3 formatos de registro :
0008.00 A R REG1 PFILE(ARCHI1)
0010.00 A K CAMPO1
0011.00 A K CAMPO2
0012.00 A K CAMPO3
0013.00 A K CAMPO4
0014.00 A K CAMPO5
0015.00 *-
0016.00 A R REG2 PFILE(ARCHI2)
0016.01 A K CAMPO1
0016.02 A K CAMPO2
0016.03 A K CAMPO3
0016.04 A K CAMPO4
0016.05 A K CAMPO5
0023.00 *-
0024.00 A R REG3 PFILE(ARCHI3)
0024.01 A K CAMPO1
0024.02 A K CAMPO2
0024.03 A K CAMPO3
0024.04 A K CAMPO4
0024.05 A K CAMPO5
Para saber qué fomato de registro (REG1, REG2 o REG3) ha leído, en el rpg hago
lo siguiente :
IREG1 21
IREG2 22
IREG3 23
Y al leer LOGICO1 :
/free
If *in21;
Sentencias;
If *in22;
Sentencias;
If *in23;
Sentencias
/end-free
Me gustaría sustituir las hojas I por un trozo de código /free - /end-free.
¿Alguien sabe cómo hacerlo?
Un saludo y gracias.
Javier
____________________________________________________
�nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 � Publicaciones Help400, S.L.
