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.