zOs/REXX/EXDIGITS

/* rexx */
say 'digits' digits()
call procDig 24
say 'digits' digits() 'after procDig 24'
numeric digits 20
say 'digits' digits() 'after 20'
call procDig 24
say 'digits' digits() 'after procDig 24'
call subDig 27
say 'digits' digits() 'after subDig 27'
numeric digits 33
say 'digits' digits() 'after 33'
call procDig 31
say 'digits' digits() 'after procDig 31'
call procDigEE 35
say 'digits' digits() 'after procDigEE 31'

/* lrsn = 12 hex digits = 48 digits ~ 15 decimal digits */
lr =  '1000000089abc'
signal on syntax
do d=27 by-1
    numeric digits d
    say 'digits='d  x2d(lr)
    end
exit
syntax:
say 'after syntax'
lr =  '0000000089abc'
do d=27 by-1
    numeric digits d
    say 'digits='d  x2d(lr)
    end
exit

call procDig 222
subDig:
parse arg nn
say 'subDigits bef' digits()
numeric digits nn
say 'subDigits aft' digits()
return
call procDig 111
procDig: procedure
parse arg nn
say 'procDigits bef' digits()
numeric digits nn
say 'procDigits aft' digits()
return
procDigEE: procedure
parse arg nn
say 'procDigitsEE bef' digits()
numeric digits nn
say 'procDigitsEE aft' digits()
return