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