U_STOREND

Store a rendition scheme

WSupported on Windows

USupported on Unix

VSupported on OpenVMS

NSupported in Synergy .NET

xcall U_STOREND(channel, [scheme], [status][, flag])

Arguments

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)

Discussion

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).

See also

Customizing the look of your application

Examples

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