proc ConfigFramePayload {args} {
    set params {}
    set argIndex 0
    while {$argIndex < [llength $args]} {
	set currentArg [lindex $args $argIndex]
	switch -exact -- $currentArg { 
	    -configElementObj {
		set configElementObj [lindex $args [expr $argIndex + 1]]
		incr argIndex 2
	    }
	    -type {
		# custom, decrementByte, decrementWord, incrementByte, incrementWord, random
		set type [lindex $args [expr $argIndex + 1]]
		append params " -type $type"
		incr argIndex 2
	    }
	    -customPattern {
		set customPattern [lindex $args [expr $argIndex + 1]]
		append params " -customPattern $customPattern"
		incr argIndex 2
	    }
	    # True|False
	    -customRepeat {
		set customRepeat [lindex $args [expr $argIndex + 1]]
		append params " -customRepeat $customRepeat"
		incr argIndex 2
	    }
	    default {
		puts "\nError ConfigFrameRate: No such parameter: $currentArg"
	    }
	}
    }

    puts "\nConfigFramePayload: $params"
    if {[catch {eval ixNet setMultiAttribute $configElementObj/framePayload $params} errMsg]} {
	puts "Error: ConfigFramePayload: $params"
	return 1
    }
    ixNet commit
    return 0
}