*ID RSNOOPEN 
*/   Reduce open file exists print statements
*/  
*//
*//Built by  R Stratton (hadas) on Thu Jan 15 09:11:38 GMT 1998
*//
*//--------------
*DECLARE PORTIO2A
*//--------------
*D GBC6C404.180
