MEMSQUEEZE fills a target buffer with
the contents of a source buffer with all multiple occurrences of a
specified character replaced by one. It returns a size_t value
that indicates the number of bytes written to the target buffer.
>>-MEMSQUEEZE(p,m,q,n,z,-+---+-)------------------------------->< '-i-'
- p
- Specifies the address of the target buffer.
- m
- Specifies the length in bytes of the target buffer. It must have a computational type and is converted to type size_t.
- q
- Specifies the address of the source buffer.
- n
- Specifies the length in bytes of the source buffer. It must have a computational type and is converted to type size_t. It must be non-negative.
- z
- An expression that must have the type CHARACTER(1) NONVARYING.
- i
- An optional expression that must be computational and will be
converted to size_t as necessary. If not specified,
the default value for i is 1. If i < 1, default value
of 1 is used.
The returned value depends
on the address of the target buffer or the size of the target buffer:
- If the address of the target buffer is zero (null), the number of bytes that would be written is returned.
- If the target buffer is not large enough, a value of -1 is returned.
- If the target buffer is large enough, the number of bytes that are written to the buffer is returned.
- The target buffer will include all the characters
in the source buffer before the ith character (without any
collapsing) and then all characters from the nth position onwards,
squeezed and trimmed as appropriate.
Example
dcl s char(20);
dcl t char(20);
dcl cx fixed bin(31);
s = '...abc....def...gh..';
cx = memsqueeze(sysnull(), 0, addr(s), stg(s), '.');
/* cx = 12 */
cx = memsqueeze(addr(t), stg(t), addr(s), stg(s), '.');
/* cx = 12 */
/* t = '.abc.def.gh.' */