DEFINE CFSTRUCT

1 DEFINE CFSTRUCT(structure-name)
2! CFLEVEL(3)
2?
2 CFLEVEL(integer)
3! DESCR(' ')
3?
3 DESCR ( string )
4? LIKE(cfstruct-name)
5! RECOVER (NO)
5?
5 RECOVER (YES)
6! NOREPLACE
6?
6 REPLACE