FILL
Fill a variable with a pattern
WTSupported in traditional Synergy on Windows
|
WNSupported in Synergy .NET on Windows
|
USupported on UNIX
|
VSupported on OpenVMS
|
xcall FILL(pattern, destination)
Arguments
pattern
An expression that contains a value to be loaded into the destination variable. (a)
destination
The variable that will be loaded with the specified pattern. (a)
Discussion
The FILL subroutine fills an alpha variable with the specified pattern.
All character positions of the destination variable are loaded left-justified. If the destination is longer than the pattern, the pattern is repeated until the destination variable is filled. For example, loading a 15-byte variable with the pattern “ABCD” gives the variable the following contents:
ABCDABCDABCDABC
Examples
subroutine sub record dest ,a10 pat ,a16, "0123456789ABCDEF" proc xcall fill("]", dest) ;dest = "]]]]]]]]]]" xcall fill(pat, dest) ;dest = "0123456789" xcall fill(pat(4,6), dest) ;dest = "3453453453" xcall fill("A.", dest) ;dest = "A.A.A.A.A." return endsubroutine