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