Hola Creo que este ejemplo te puede servir http://www.bmeyers.net/faqs/15-faqs/74-record-locking-problem-in-a-monitor-block
Salu2 2013/10/25 Carlos C. <[email protected]> > > Buen dia forero > Alguien de Uds. no tienen un ejemplo de uso de la rutina de error en RPG? > por ejemplo cuando un fichero esta bloqueado y no se puede grabar un > registro. > > Baje un ejemplo de la web y para clave duplicada no me funciono. > > FMYFILE UF A E K DISK > F INFSR(PrdInfsr) > F INFDS(PrdInfds) > > > monitor > ; > > > On-Error RecordLock; // Record > Lock > Dsply 'Record Locked - Sorry > Charlie'; > > > On-Error *FILE; // Any other file > error > StatusCode = > %Status; > Dsply > StatusCode; > Dsply 'Some File > Error'; > > > On-Error Result2Big; // Field not large > enough > Dsply 'Define the result big enough, > goofy'; > > > On-Error *PROGRAM; // Any other program > error > StatusCode = > %Status; > Dsply > StatusCode; > Dsply 'Some Program > Error'; > EndMon; > > Desde ya muchas gracias > > ------------------------------ > > ____________________________________________________ > Ú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.
