More button test

You can define variables in body or outside of body also. 01 ws-user pic x(20). 01 ws-pw-editor pic x(20). 01 ws-pw-admin pic x(20). 01 ws-pw-super-admin pic x(20). ?> ------------------------------------------------------------------------------ LOGIN-INFO SECTION. *>------------------------------------------------------------------------------ call "HTM2COB-POST" using "user", ws-user end-call evaluate ws-user when "Editor" call "HTM2COB-POST" using "pw_editor", ws-pw-editor end-call if ws-pw-editor = "qwerty1" then display "Display information for Editor...
" else display "No access
" end-if when "Admin" call "HTM2COB-POST" using "pw_admin", ws-pw-admin end-call if ws-pw-admin = "qwerty2" then display "Display information for Admin...
" else display "No access
" end-if when "SuperAdmin" call "HTM2COB-POST" using "pw_super_admin", ws-pw-super-admin end-call if ws-pw-super-admin = "qwerty3" then display "Display information for SuperAdmin...
" else display "No access
" end-if end-evaluate display "Display information for Guest...
" EXIT SECTION . ?>