NS-TXT

Set current field colour to 4 (Non scrolled text)

Source

S.HM

CALL NS-TXT

Parameters

None

Copybooks

None

Other Requirements

None

Purpose

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

Exceptions

None

Example

WINDOW W1
01 01	W1-TXT	X(7)   NSC DIS
01 10	W1-FLD	X(10)  CNV NUL

ROUTINES SECTION
B-W1-TXT.
   IF A-PARAM = 1			
      MOVE "Account" TO W1-TXT	* System is either accepting an account
   ELSE				* or
      MOVE "Product" TO W1-TXT	* a product code in the next field.
   END				*
   CALL NS-TXT			* Display in correct colour, i.e. text
EXIT	

Global 3000 Example

This routine is used throughout Global 3000. Specific examples include ST110R (Stock transaction entry) that uses it to define a number of variable field titles.