|
WSupported on Windows
|
USupported on Unix
|
VSupported on OpenVMS
|
NSupported in Synergy .NET
|
xcall U_LDREND(channel, [scheme][, status])
Arguments
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)
Discussion
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.
See also
Customizing the look of your application
Examples
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
