SELECT MYFILE
ASSIGN TO DATABASE-MY#FILE
:
:
FD MYFILE.
01 MYFILE-REC.
/copy-ddr-all-formats .....