RE: [WEB400] Switching Profiles

["Hatzenbeler, Tim" <thatzenbeler@xxxxxxxxxxxxx>]

Found it... Thanks....

Next question...
      if CGI_RunWithUserAuthority(%paddr(DoRealWork)) = *OFF;
           ErrorMsg = CGI_Error();
           // call a subprocedure to send the error msg to
           // the support staff.
       endif;
       *inlr = *on; // if appropriate

I have never used the %paddr function...

It's weird to see %paddr(Do  without using  '  ' around a string...

DoRealWork...  would it look like this...

h specs.
d specs.
      if CGI_RunWithUserAuthority(%paddr(DoRealWork)) = *OFF;
           ErrorMsg = CGI_Error();
           // call a subprocedure to send the error msg to
           // the support staff.
       endif;

     P DoRealWork      B

     D DoRealWork      PI            17  6

 

     D   widget          S             17  6 inz(0)

 

     .... do all my web stuff here ...

 

     c                   Return    (widget)

 

     P DoRealWork      E


This e-mail message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential or privileged
information.  Any unauthorized review, use, disclosure or distribution is
prohibited.  If you are not the intended recipient, please contact the
sender by reply e-mail and destroy the message.