The following example creates a non-shared standard hiperspace,
20 blocks in size, named SCROLLHS.
*
DSPSERV CREATE,NAME=HSNAME,TYPE=HIPERSPACE,HSTYPE=SCROLL, X
BLOCKS=20,STOKEN=HSSTOKEN
*
HSNAME DC CL8'SCROLLHS' * NAME FOR THE HIPERSPACE
HSSTOKEN DS CL8 * STOKEN OF THE HIPERSPACE