20 lines
1.6 KiB
Rexx
20 lines
1.6 KiB
Rexx
|
/*REXX pgms demonstrates various methods/approaches of invoking/calling a REXX function.*/
|
||
|
|
|
||
|
|
/*╔════════════════════════════════════════════════════════════════════╗
|
||
|
|
║ Calling a function that REQUIRES no arguments. ║
|
||
|
|
║ ║
|
||
|
|
║ In the REXX language, there is no way to require the caller to not ║
|
||
|
|
║ pass arguments, but the programmer can check if any arguments were ║
|
||
|
|
║ (or weren't) passed. ║
|
||
|
|
╚════════════════════════════════════════════════════════════════════╝*/
|
||
|
|
|
||
|
|
yr= yearFunc() /*the function name is caseless if it isn't */
|
||
|
|
/*enclosed in quotes (') or apostrophes (").*/
|
||
|
|
say 'year=' yr
|
||
|
|
exit /*stick a fork in it, we're all done. */
|
||
|
|
|
||
|
|
yearFunc: procedure /*function ARG returns the # of args.*/
|
||
|
|
errmsg= '***error***' /*an error message eyecatcher string. */
|
||
|
|
if arg() \== 0 then say errmsg "the YEARFUNC function won't accept arguments."
|
||
|
|
return left( date('Sorted'), 3)
|