STRPGMEXP  PGMLVL(*CURRENT) SIGNATURE('STDIO') 
EXPORT     SYMBOL('STDIN')                     
EXPORT     SYMBOL('STDOUT')                    
EXPORT     SYMBOL('STDERR')                    
EXPORT     SYMBOL('EXIT') 
ENDPGMEXP