Inquire UIPACK Initialised OK

This Subprogram inquires whether the UIPACK Package has already been initialised.

Short Name Calling Sequence

STATUS = UIIQUI(INITOK)

Long Name Calling Sequence

STATUS = UI_INQUIRE_UIPACK(...)

Input Arguments

None

Output Arguments

INITOK (Logical) Initialised OK Flag

Function Value

UI__SUCCESS ) Success UISUCC )

UI__NOT_INITIALIZED ) Package not Initialized UININI )

Note:

1. The INITOK Output Argument will be set .TRUE. if UIPACK has already been initialised and .FALSE. otherwise.
2. Errors are informational only - no signalling is performed.