U@GETPREVLOC

U@GETPREVLOC retrieves the previous locale from the LOCALE database file.

Module DATABASE

Required Field and Return Value

Field Type and length Definition
E@LOCALE A 30

Locale is used to retrieve the previous locale.

The locale is also returned in this field.

Programming Example

This example gets the previous locale.

    EVAL      E@LOCALE       = F1@ILLCL(1) 
    CALLP     U@GETPREVLOC                Get Previous Locale
    IF        E@LOCALE <> *BLANKS 
    EVAL      F1@PTILLC      = F1@ILLCL(1)