U_LDREND

Load a rendition scheme

WSupported on Windows
USupported on Unix
VSupported on OpenVMS
NSupported in Synergy .NET
xcall U_LDREND(channel, [scheme][, status])

channel

The channel on which the rendition file is already opened. (n)

scheme

(optional) The rendition scheme name. (a)

status

(optional) Returned with zero (0) if the load operation is successful, or with a Synergy DBL error number if it is unsuccessful. (n)

U_LDREND loads a rendition scheme from an open rendition file. Once the rendition scheme is loaded, the rendition definitions are used for subsequent screen displays.

If scheme is not passed or is blank, the working rendition settings are loaded.

Customizing the look of your application

The following utility subroutine loads and saves personalized rendition schemes from a rendition file.

subroutine pers_rend
        a_scheme        ,a
        a_ldflg         ,n      ;Load flag: 1=load, 0=store
.include "WND:tools.def"
global data section mygb
record
        rendchn         ,i4
endglobal

record
        error           ,i4
proc
        if (a_ldflg) then
          xcall u_ldrend(rendchn, a_scheme, error)
        else
          xcall u_storend(rendchn, a_scheme, error, TRUE)
        if (error)
          xcall proc_error
        xreturn
endsubroutine