/copy *PSSR

2 replies
October 20, 2008 - 12:09pm
projex
projex's picture
Joined: Jan 17 2007
User offline. Last seen 7 hours 8 min ago.

 Just testing some of the authority changes to the forum... they're bound to crash... hence the PSSR  ;)

But if they don't then

REGISTERED USERS - should be able to reply to or add comments to this forum entry without any validation.

ANONYMOUS USERS - should also be able to reply but will be presented with the CAPTCHA validation screen when they submit their comments, just to make sure they are real people and not one of these horribly annoying 'buy your russian viagra' here scammers.

 


Top
October 3, 2008 - 1:15pm
#1
Finkpad
Finkpad's picture
Joined: Oct 15 2008
User offline. Last seen 4 days 5 hours ago.
ok - authorities look good to me.

 ******************************************************************  

 

 *      standard error handling sub-routine.                     **  

 ******************************************************************  

C     *PSSR         Begsr                                            

 *   test if recursive call and exit immediatively if so.            

C                   IF        RECUR        = 'Y'                     

C                   Return                                           

C                   EndIf                                            

C                   Move      'Y'           RECUR             1      

 *   call cl program to send dump message.                           

C                   Call      'XA998CLP'                           99

C                   Parm                    P#PGID                   

 *   dump program (note 1 must be specified in h-spec.).             

 *   dump can be suppressed when testing by setting switch 2 on.     

C  NU2              Dump                                             

 *   call program to write lda and psds to error log file xap99.     

C                   Out       LDA                                    

C                   Call      'XA999'                              99

 *   this programs psds is passed as a parameter for dump program.   

C                   Parm                    PSTAT                    

 *   set return code to inform calling program (e.g. menu) that      

 *   program failed.                                                 

C                   Move      '**'          L#RTCD                   

 

C                   Out       LDA                                  

 *   exit program with lr.                                         

C                   Seton                                        LR

C                   Return

C                   Endsr

Top
December 3, 2008 - 1:28pm
#2
random-surfer (not verified)
once I have logged out I get this...
I'm an anonymous bloke and I see the CAPTCHA THING below.
Top

Comment viewing options

Select your preferred way to display the comments and click "Save settings" to activate your changes.
  • Post Reply

Visitor Locations

Locations of visitors to this page

Recent comments

Who's online

There are currently 0 users and 11 guests online.

's beers

Beers are visible to logged in users only