method GetLocalisationCode

Description

Returns current active localisation code.

Parameters

ocLocalisationCode

output

character

Internal usage

unused

program code (program1/business.p)

if vcLocalisationCode = ""
then do viFcCount1 = 1 to num-entries(session:server-connection-context):
    if entry(viFcCount1,session:server-connection-context) begins "Localisation=":U
    then vcLocalisationCode = substring(entry(viFcCount1,session:server-connection-context),14,-1,"CHARACTER":U).
end.

if vcLocalisationCode = ""
then do viFcCount1 = 1 to num-entries(session:parameter):
    if entry(viFcCount1,session:parameter) begins "Localisation=":U
    then vcLocalisationCode = substring(entry(viFcCount1,session:parameter),14,-1,"CHARACTER":U).
end.

ocLocalisationCode = vcLocalisationCode.