DLYJOB DLY(30)
DLTSPLF FILE(*SELECT)
CVTBINDEC FROMBIN(&A) TODEC(&B) /*CONVERT FROM BINARY TO DECIMAL*/
CHKOBJ OJB(LIB/OBJ) OBJTYPE(*FILE)
MONMSG MSGID(CPF9801) EXEC(GOGO NOTFOUND)
DLYJOB DLY(30)
DLTSPLF FILE(*SELECT)
CVTBINDEC FROMBIN(&A) TODEC(&B) /*CONVERT FROM BINARY TO DECIMAL*/
CHKOBJ OJB(LIB/OBJ) OBJTYPE(*FILE)
MONMSG MSGID(CPF9801) EXEC(GOGO NOTFOUND)