pgm

dcl &msgid *char  7

chksplf myspool job(myjob myuser 649403)
rcvmsg msgid(&msgid)
If (&msgid ¬= ' ') do

/* Aquí manejar el error */

enddo

endpgm