D xxOK 1A INZ('N') D CHNSTR 50A INZ(' ') D CHNe 1A INZ(X'0E') D CHNf 1A INZ(X'0F') D xxi 2P 0 INZ(0) D xxie 2P 0 INZ(0) D xxif 2P 0 INZ(0) C CLEAR xxOK C*--- C CLEAR CHNSTR C EVAL CHNSTR = HCCN C EXSR /CHKCHN C IF (xxie > 0) or (xxif > 0) C EVAL xxOK = 'Y' C LEAVESR C ENDIF C*********************************************************