Frees storage using the DATA parameter.
| resultfromGetmain resultfromFreemain obtainedStorage |
resultfromGetmain := CICS getmain
flength: 81;
initimg: 0;
exec.
obtainedStorage := resultfromGetmain set.
resultfromFreemain := CICS freemain
data: obtainedStorage;
exec.