/*********************************************************************/ /* */ /* Header File Name: USERSPACE */ /* Definitionen für Benutzung User Spaces */ /* */ /*********************************************************************/ /IF NOT DEFINED (USERSPACE_QRPGLEH) /DEFINE USERSPACE_QRPGLEH /INCLUDE QRPGLEH,ERRORDS /*===================================================================*/ DCreateUserSpace PR EXTPGM('QUSCRTUS') /* Qualified user space name */ D USerSpaceName 20 CONST D extendedAtt 10 CONST D initialSize 10U 0 CONST D initialValue 1 CONST D publicAuth 10 CONST D description 50 CONST D replace 10 CONST OPTIONS(*NOPASS) D errorCode * OPTIONS(*NOPASS) D domain 10 OPTIONS(*NOPASS) /*===================================================================*/ DDeleteUserSpace PR EXTPGM('QUSDLTUS') /* Qualified user space name */ D 20 CONST /* Error code */ D * OPTIONS(*NOPASS) /*===================================================================*/ DGetUserSpaceP PR EXTPGM('QUSPTRUS') /* Qualified user space name */ D 20 CONST /* Pointer to User Space */ D * /* Error code */ D * OPTIONS(*NOPASS) /ENDIF