U_STOREND

Store a rendition scheme

WTSupported in traditional Synergy on Windows
WNSupported in Synergy .NET on Windows
USupported on UNIX
VSupported on OpenVMS
xcall U_STOREND(channel, [scheme], [status][, flag])

channel

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

scheme

(optional) The name of the rendition scheme (a maximum of 30 characters). (a)

status

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

flag

(optional) If true (non-zero), U_STOREND prompts the user before replacing an existing rendition scheme of the same name. If false, it is replaced without warning. (n)

U_STOREND stores a rendition scheme to an open rendition file.

Channel must be open in U:I mode.

If scheme is not passed or is blank, the currently loaded renditions are stored as the working rendition scheme (blank key).

Customizing the look of your application

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

subroutine pers_rend
    a_scheme      ,a
    a_ldstflg      ,n      ;Load flag: 1=restore, 0=save
.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