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 CUNBBPRM,R4 		Make parameter area addressable
	XC    CUNBBPRM,CUNBBPRM	Init PARAMETER AREA TO BINARY 0
	LA    R15,CUNBBPRM_VER 	Get Version
	ST    R15,CUNBBPRM_VERSION Store to parameter area
	LA    R15,CUNBBPRM_LEN 	Initialize Length
	ST    R15,CUNBBPRM_LENGTH 	Move to parameter area	
	LA    R15,CUNBBPRM_SRCCCSID  Initialize String Type Src
	ST    R15,CUNBBPRM_CCSID_Src 
	LA    R15,CUNBBPRM_TRGCCSID  Initialize String Type Trg
	ST    R15,CUNBBPRM_CCSID_Trt

	*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 CUNLBIDI,((R4))		Call stub routine with CUNBBPRM
	*address as argument.

	CUNBBIDF DSECT=YES 		Provide Mappings (CUNBBPRM,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 CUN4BBPR,R4 		Make parameter area addressable
	XC    CUN4BBPR,CUN4BBPR	Init PARAMETER AREA TO BINARY 0
	LA    R15,CUN4BBPR_VER 	Get Version
	ST    R15,CUN4BBPR_VERSION Store to parameter area
	LA    R15,CUN4BBPR_LEN 	Initialize Length
	ST    R15,CUN4BBPR_LENGTH 	Move to parameter area	
	LA    R15,CUN4BBPR_SRCCCSID  Initialize String Type Src
	ST    R15,CUN4BBPR _CCSID_Src
	LA    R15,CUN4BBPR_TRGCCSID  Initialize String Type Trg
	ST    R15,CUN4BBPR__CCSID_Trt

	*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 CUN4LBID,((R4))		Call stub routine with CUN4BBPR
	*address as argument.

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