Hola Javier, he de reconocer que llevo más de 25 años sin utilizar en el IBM i (AS/400) esa estrategia de varios formatos de registro dentro de un mismo fichero. Era muy habitual en el S/36 y me ha sorprendido mucho que todavía se utilice hoy en día.
En este caso no puedo darte ni una mísera pista. Saludos, Javier Mora El lun., 10 ago. 2020 a las 13:31, Javier Baca Lechuga (<[email protected]>) escribió: > > 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.
____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L.
