{num = split($0,parts) ; for (i = 1; i < num; i++) printf(s.,parts[i])
	printf(obj\n)}n)})}e GetPartitionHandle
define GetUserNumber
define AllocExch
define Request
define Wait
define RqHeaderType
include <ctoslib.h>
include <stdio.h>
include <stdlib.h>
include <string.h>

typedef struct {
	RqHeaderType	RqHeader;
	Word		cbMax;	* The Maximum size of the environment *
	PbCbType	psbRet;
} EnvRqBlock;

define NOSPACE		1
define NOTFOUND	1
define ENVIRON		0x6010
define OFFSET		2
define OK		