/* set a file's icon from REXX */ /* Supply the name of the file and the path to the icon file */ /* on the command line. */ CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' CALL SysLoadFuncs parse ARG target_file icon_file . if target_file = '' | icon_file = '' then do say "Usage icon_set target_file icon_file" exit end call SysSetIcon target_file, icon_file /* SysSetIcon returns 1 for success. */ if RESULT \= 1 then say "SysSetIcon returned an error. Return Code:" RESULT