program callQCMDEXC
	
    MyI IBMiConnection? { @Resource };
	
    function main()
	command string = "SNDMSG 'TEST' LOGICAAPS";
        call this.QCMDEXC(command, characterLen(clip(command))) using MyI;
    end

    function QCMDEXC(input string in, length decimal(15,5) in)
    {
	@IBMiProgram {
		programName = "QCMDEXC",
		libraryName = "/QSYS.LIB",
		parameterAnnotations = [
			@AS400Text {length = 80},
			@AS400PackedDecimal {}
		]
	}
    }
    end
end