monitor loop

[jamief]

using the monitor opcode to loop on a locked
dataarea until the lock is released or until
the cows come home

       //  

     d alreadylocked   s               n
     d cmdstring       s            256
     d cmdlength       s             15  5
     d somefield       s              5  0

     D Locked          C                   00202

       //
       //  external calls
       //

     d $command        pr                  extpgm('QCMDEXC')
     d   command                    256
     d   Length                      15  5

      /Free

        //--------------------------------------------------------
        // MAIN PROGRAM
        //--------------------------------------------------------

         cmdstring = 'ALCOBJ OBJ((LBIFIL/BRC01LOCK *DTAARA *EXCL))';
         cmdlength =  %len(%trim(cmdstring));

         dou Alreadylocked = *off;
         monitor;
         AlreadyLocked = *off;
         $command(cmdstring: cmdlength);
         On-error Locked;
          somefield =  %Status;
          AlreadyLocked = *on;
         endmon;
         enddo;

         *inlr = *on;



      /End-Free 

[arrow483]

Re: monitor loop

Minor addition:

If CowsAreHome
Goto Exit
EndIf
Exit       Tag 

Yeah, i know - fixed format required. But to be able to use a GOTO and an INDICATOR, its worth it !

[jamief]

Re: monitor loop

Moooo! ........

[MdnghtPgmr]

Re: monitor loop

Minor addition:

If CowsAreHome
Goto Exit
EndIf
Exit       Tag 

Yeah, i know - fixed format required. But to be able to use a GOTO and an INDICATOR, its worth it !

Arrow,

Please! Are you guys kidding me?! Subprocedures are required!

If NOT( CowsAreHome );
   If SeachForCowsSucessfull <> TRUE;
      CallStatePolice = *ON;
      PoliceHelpNeeded( CallStatePolice );
Else;
      GotoBedAndSleepSoundly;
EndIf; 

By the way, the only reason I'm on here is my better half is out of town. What's your excuses for being here in the evening?

Having fun, typing slowly,
MdnghtPgmr

[jamief]

Re: monitor loop

im a big geek!

[MdnghtPgmr]

Re: monitor loop

Jamie,1

I guess that makes me one too! Break out the adult beverages!

Slurping away,
MdnghtPgmr

[jamief]

Re: monitor loop

I have to say my wife is also out....and Im finding this Vista to be more difficult as
I go..... The Cisco VPN client I have wont connect.....and it triggered some kind of non-compatability error which I couldnt clear...had to restore from restore point.........YEEHA! what fun Im having now ....Guess Ill be on the phone with CISCO all day tomorow

[mjhaston]

Re: monitor loop

Not to doubt anyone, but does this method of trapping an error outside of the RPG program work? I used to think it did until I worked with it and found that I had to import the exception to capture something that went bad with a QCMDEXC call. I found that Monitor only handled errors internal to the program.

Does that make sense? Is it correct?

[jamief]

Re: monitor loop

you are correct .... the qcmdexc actually ends with error 202
(Called program or procedure failed; halt indicator)
not :
00431 Data area previously locked by another program
00432 Data area locked by program in the same process