01 prodname string value "Micro Focus - Visual COBOL". 01 compname string. unstring prodname into compname *> incorrect unstring prodname delimited by "-" into compname *> correct