For AMODE (31)

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
	GETMAIN ........Obtain storage for parameter area
	*in primary address space.

	LR    R4,R1 			Save parameter area address
	USING CUNBPPRM,R4 		Make parameter area addressable
	XC    CUNBBPRM(CUNBBPRM_LEN),CUNBBPRM Init PARAMETER AREA TO BINARY 0
	LA    R15,CUNBPPRM_VER 	Get Version
	ST    R15,CUNBPPRM_VERSION Store to parameter area
	LA    R15,CUNBPPRM_LEN 	Initialize Length
	ST    R15,CUNBPPRM_LENGTH 	Move to parameter area	
	MVC   CUNBPPRM_PROF_NAME,=CL8'CUNSTCIS' Provide profile name

	*Supply source buffer pointer,length and ALET.
	*Supply work buffer pointer,length and ALET.
	*Supply target buffer pointer,length and ALET.
	*Fill all required fields of the parameter area.

	CALL CUNLSTRP,((R4))		Call stub routine with CUNBPPRM
	*address as argument.

	CUNBPIDF DSECT=YES 		Provide Mappings (CUNBPPRM,return and
	*reason codes,constants for version
	*and length).

For AMODE (64)

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
	GETMAIN ........Obtain storage for parameter area
	*in primary address space.

	LR    R4,R1 			Save parameter area address
	USING CUN4BPPR,R4 		Make parameter area addressable
	XC     CUN4BBPR(CUN4BBPR_LEN),CUN4BBPR CLEAR PARAMETER AREA
	LA    R15,CUN4BPPR_VER 	Get Version
	ST    R15,CUN4BPPR_VERSION Store to parameter area
	LA    R15,CUN4BPPR_LEN 	Initialize Length
	ST    R15,CUN4BPPR_LENGTH 	Move to parameter area	
	MVC   CUN4BPPR_PROF_NAME,=CL8'CUNSTCIS' Provide profile name

	*Supply source buffer pointer,length and ALET.
	*Supply work buffer pointer,length and ALET.
	*Supply target buffer pointer,length and ALET.
	*Fill all required fields of the parameter area.

	CALL CUN4LSTP,((R4))		Call stub routine with CUNBPPRM
	*address as argument.

	CUN4BPID DSECT=YES 		Provide Mappings (CUN4BPPR,return and
	*reason codes,constants for version
	*and length).