S-TXT

Set current field colour to 3 (Scrolled text)

Source

S.HM

CALL S-TXT

Parameters

None

Copybooks

None

Other Requirements

It should be called from the B- routine of the data field whose colour is to be changed.

Purpose

Used to display a window data item in the same colour as a scrolled text item. This is most commonly used where a variable column heading is required in a scrolled window.

Exceptions

None

Example

WINDOW W1 USING OH
SCROLL 8 BY 1
01 01	W1-TXT	X(7)   NSC DIS
01 10	OHFLD	X(10)  CNV NUL
	
ROUTINES SECTION
B-W1-TXT.
   IF A-PARAM = 1			
      MOVE "Account" TO W1-TXT	* System is either storing an account
   ELSE				*            or
      MOVE "Product" TO W1-TXT	* a product code in OHFLD
   END				*
   CALL S-TXT			* Display in correct colour, i.e.
EXIT

Global 3000 Example

This routine is used throughout Global 3000. Specific examples include SO110B (Sales order summary) that uses it to set the location column heading if multiple locations are used. If multiple locations are not used the heading is left blank as the data items holding the location code will also be blank.