Server Guide

Example

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.


[ Top of Page | Previous Page | Next Page | Table of Contents | Index ]