Example of creating and using a shared memory object

The following example creates a shared memory object one megabyte in size. It specifies a constant with value of one as a user token.

IARV64 REQUEST=GETSHARED,
       SEGMENTS=ONE_SEG,
       USERTKN=USERTKNA,
       ORIGIN=VIRT64_ADDR,
       COND=YES,
       FPROT=NO,
       KEY=MYKEY,
       CHANGEACCESS=LOCAL
ONE_SEG	DC FD'1'
USERTKNA	DC 0D'0'
        	DC F'15' High Half must be non-zero
	      	DC F'1'  UserToken of 1
VIRT64_ADDR DS  D

Note: If you want the memory object to have key 9, the declaration for MYKEY is as follows:

MYKEY  DC X'90'