---

4glWorks reference: Scrollers

---

function dtb_looks(frm, dsc, p)
    define frm	char(14),		# form file name
	   dsc	char(40),		# form description
	   p	smallint		# pane length

function dtb_scroller(im, ip)
    define im, ip	smallint

• MB_init to MB_maxupstream
• MB_prevrec (detailed display only)
• MB_nextrec (detailed display only)
• MB_display (detailed display only)

• MB_display
• MB_open
• MB_declare
• MB_exit
• All messages serviced by browse_filter
• MB_reloadset
• MB_brief
• MB_deleterec (asks for confirmation, and passes it down on a positive answer)

• The scroller uses a select statement as specified in the search global variable
• the current row is held in globals code1 and code2

function mlt_create()

function mlt_delete(type_rec, link_rec)
    define type_rec	char(1),		# The type of the record
	   link_rec	integer			# The primay key of the record

function mlt_downstream(im, ip)
    define im, ip	smallint

• MB_display
• MB_open
• MB_declare
• MB_exit
• All messages serviced by scroll_filter
• MB_changerec (highlights record, asks for confirmation, and passes it down on a positive answer)
• MB_deleterec (highlights record, asks for confirmation, and passes it down on a positive answer)
• MB_prevrec
• MB_nextrec

function mlt_head_tail(h, t)
    define h	char(78),
	   t	char(40)

function mlt_looks(frm, p)
    define frm	char(14),		# form file name
	   p	smallint		# pane lenght

function mlt_newline(txt, num_ord)
    define txt		char(78),		# The actual text
	   num_ord	smallint		# The line number

function mlt_newrec(tr, lr, dr, ai, maxl)
    define tr	char(1),		# Table type
	   lr	integer,		# Record primary key
	   dr	date,			# A date, for time sorting purposes
	   ai,				# The line auto increment flag
	   maxl	smallint		# The highest line number in the record

function mlt_op_filter(m, t)
    define m	smallint,	# message body
	   t	char(10)	# list of record types

function mlt_open(new_ord, cpos)
    define new_ord,			#new display order
	   cpos		smallint	#cursor position

• -1: date_rec desc, link_rec desc
• 0: link_rec
• 1: date_rec, type_rec, link_rec
• 2: date_rec desc, type_rec desc, link_rec
• 3: type_rec, date_rec, link_rec
• 4: type_rec desc, date_rec desc, link_rec
• 11: date_rec, link_rec, type_rec
• 12: date_rec, type_rec, link_rec #=1, but needed
• 13: link_rec, type_rec, date_rec
• 14: type_rec, link_rec, date_rec

• 1: last line
• 2: current record
• 3: current line number
• any other value: first line

function mlt_recdone()

function mlt_retrieve(r)
    define r	integer

function mlt_scroller(im, ip)
    define im, ip	smallint

function mlt_upstream(im, ip)
    define im, ip	smallint

• MB_init to MB_maxupstream
• MB_notfound
• MB_print

function stb_looks(frm, dsc, p)
    define frm	char(14),		# form file name
	   dsc	char(40),		# form description
	   p	smallint		# pane lenght

function stb_open(fname, cond)
    define fname	char(3),
	   cond		char(250)

function stb_scroller(im, ip)
    define im, ip	smallint

• MB_init to MB_maxupstream
• MB_prevrec (detailed display only)
• MB_nextrec (detailed display only)
• MB_display (detailed display only)

• MB_display
• MB_open
• MB_declare
• MB_exit
• All messages serviced by browse_filter
• MB_reloadset
• MB_brief
• MB_deleterec (asks for confirmation, and passes it down on a positive answer)

• The scroller uses a select statement as specified in the search global variable
• the current row is held in global code1

function uni_create()

function uni_downstream(im, ip)
    define im, ip	smallint

• MB_display
• MB_open
• MB_declare
• MB_exit
• All messages serviced by scroll_filter

function uni_getlength()

function uni_gettext(t)
    define t	text

function uni_looks(frm, p)
    define frm	char(14),		# form file name
	   p	smallint		# pane lenght

• The form needs to have a screen array containing one character field (name unimportant) for each of the panes tracked by the scroller. The name of the array is dependent on the id of the pane: s_uni if 1, s_uni<id> for all other id's.
• see uni_setid for more info on how to use multiple panes

function uni_newline(txt)
    define txt	char(78)

function uni_retrieve(r)
    define r	integer

• Although the uni scroller services print requests, for multi pane viewers, it may be necessary to write more complex reports. uni_retrieve comes handy in such circumstances
• see uni_setid for more info on how to use multiple panes

function uni_scroller(im, ip)
    define im, ip	smallint

function uni_setid(p)
    define p	smallint

function uni_settext(t)
    define t	text

function uni_upstream(im, ip)
    define im, ip	smallint

• MB_init to MB_maxupstream
• MB_print