VS COBOL II Release 4 -- change bars on the doc:

x LENGTH OF Special Register 
x     The LENGTH OF special register contains the number of bytes used by an
x     identifier.
 
x     LENGTH OF creates an implicit special register whose content is equal
x     to the current byte length of the data item referenced by the
x     identifier.
 
x     Note:  For DBCS data items, each character occupies 2 bytes of 
x     storage.

... and more

Charles

On Sun, 21 May 2023 00:51:33 +0000, Frank Swarbrick 
<[email protected]> wrote:

>At least VS COBOL II, as far as I can remember.  This is when CICS added the 
>COBOL2 translate option to allow the LENGTH argument to be omitted, since it 
>used LENGTH OF under the covers.
>Also, it's called a "special register" rather than built-in function; though 
>now there is also an intrinsic function LENGTH, as well as BYTE-LENGTH.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to