...

PROCEDURE DIVISION.

 ...

call "WD2$CLIENT-INFO" using wd2-get-user-agent

                              user-agent

call "WD2$CLIENT-INFO" using wd2-get-browser-name

                              browser-name

perform until exit

call "WD2$SESSION"

         using wd2-get-session-value

"iscobol.wd2.on_client_info.desktop.width"

               desktop-width-px

call "WD2$SESSION"

using wd2-get-session-value

"iscobol.wd2.on_client_info.desktop.height"

               desktop-height-px

call "WD2$SESSION"

using wd2-get-session-value

"iscobol.wd2.on_client_info.screen.width"

               screen-width-px

call "WD2$SESSION"

using wd2-get-session-value

"iscobol.wd2.on_client_info.screen.height"

               screen-height-px

if desktop-width-px  not = spaces and

       desktop-height-px not = spaces and

       screen-width-px   not = spaces and

       screen-height-px  not = spaces

exit perform

else

call "C$SLEEP" using "0.3"

end-if

end-perform

string "User Agent: " user-agent x"0a"

"Browser: "    browser-name x"0a"

"Desktop: "    desktop-width-px "x"

                       desktop-height-px x"0a"

"Screen: "     screen-width-px "x"

                       screen-height-px x"0a" delimited by size

into client-info

modify ef-info value client-info.