createprogramaction procedure
#13