{src/adm2/globals.i}
DEFINE VARIABLE hObject AS HANDLE NO-UNDO.
DEFINE VARIABLE cSessionTypeCode AS CHARACTER NO-UNDO.
DEFINE VARIABLE cDynamicsVersion AS CHARACTER NO-UNDO.
ASSIGN hObject = SESSION:FIRST-CHILD.
WINDOW-BLK:
DO WHILE VALID-HANDLE (hObject) :
IF hObject:TYPE = 'WINDOW':U THEN DO:
IF hObject:TITLE BEGINS 'AppBuilder':U THEN DO:
ASSIGN cSessionTypeCode = DYNAMIC-FUNCTION ('getSessionParam':U IN gshSessionManager, 'ICFSESSTYPE':U)
cDynamicsVersion = DYNAMIC-FUNCTION ('getSessionParam':U IN gshSessionManager, 'DynamicsVersion':U).
ASSIGN hObject:TITLE = 'Dynamics development ' + cDynamicsVersion + ' - ':U + cSessionTypeCode.
END.
END.
ASSIGN hObject = hObject:NEXT-SIBLING.
END.
