Obtains CICS main storage.
| resultfromGetmain obtainedStorage | resultfromGetmain := CICS getmain length: 81; initimg: 0; shared; exec. obtainedStorage := resultfromGetmain set.