It works for me using the Repository definition. If you look at the variable
list at the end of the compilation you will see all the intrinsic functions
listed...if you coded "Repository. Function all Intrinsic."
1 filler.
3 input-array occurs 10 times
pic x(15) value 'AB23.45D'.
move ' XYZ ' to input-array(1)
move trim(input-array(1), trailing) to Variable-data
display 'Variable-Data = "' Variable-Data '"'
compute Char-Length = length(trim(input-array(1), trailing))
display 'Variable-Length = ' Char-Length
Variable-Data = " XYZ"
Variable-Length = +00005
Cheers,
Jon Butler
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
