SETPMOD

Change window’s permitted modes

Source

CALL SETPMOD USING Window-id Mode

Parameters

Window-id

The window id of the window whose mode is to be changed.

Mode

#01 	Enquiry only
#03	Enquiry and Select.
#05	Enquiry, Maintain and Display
#6D	All modes

Other modes will need to be determined by experimentation.

Copybooks

None

Other Requirements

This routine should not be used to change the mode of a window already on-screen.

Purpose

This routine is used to change the modes in which the passed window is allowed to operate i.e. it changes the mode of operation flag that tells speedbase weather a window is allowed to add records, maintain records, delete records, enquire on records etc.

Exceptions

None

Example

WINDOW W1 USING RT * Main transaction entry window
...		   * By default all modes allowed (ADD, MNT, ENQ etc)
...
ENDWINDOW
PROCEDURE DIVISION
IF	M1-OPT = "E"		  * Enquire
	CALL SETPMOD USING W1 #01 * Only operate in ENQ mode to
	ENTER WINDOW W1		  * allow operator browse without
	ON EXCEPTION		  * danger of them updating records.
	END
END
IF	M1-OPT = "U"
	CALL SETPMOD USING W1 #6D * Full update
	ENTER WINDOW W1		  * Allow operator full record 
	ON EXCEPTION		  * access.
	END
END

Global 3000 Example

This routine is used by DL111A (Debtors Ledger Transaction Entry) to change the main transaction entry window into an enquiry and select window to allow users to browse posted batches.