********************************************************************
PATCH FOR SUN OS
********************************************************************
************
************
40165      10   IF(FILENM(K:K).EQ.'_') THEN
******
40163   C  Patch for Sun OS (which passes OPEN(92,...,ERR=20) without error
40164   C  even if the same file is opened for two LFNs).  FW 2/6/02
40165           IF(IATN.EQ.IATNP) GOTO 20
40166      10   IF(FILENM(K:K).EQ.'_') THEN
************
************