Maintain Constants

INCLUDE 'OHTF0102' OBJECT DSYS ID SIMG