RECOVER CFSTRUCT

1 RECOVER CFSTRUCT(
2+ ,
2 structure-name
3 )
2! CMDSCOPE(' ')
2?
2 CMDSCOPE(qmname)
3! TYPE(NORMAL)
3?
3 TYPE(PURGE)