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.
