sample: package;
sample: proc options( main );
	dcl sum fixed bin(31);
	sum = addtwo( 3 );
	put skip list ( 'sum = ‘ || sum );
end;

addtwo: proc( limit )
  returns( byvalue fixed bin(31) );
		
	dcl limit fixed bin(31) byvalue;
	dcl sum fixed bin(31);
	sum = 0;
	
	return( sum );
end;

end;