PING from /free

[Huddy]

Hi, Can someone post me an example of a PING from rpg free which has error trapping. i.e. PING not successful.

I guess it's using the QCMDEXC.. in fact how do you monitor for errors when using this command?

Thanks

Huddy

[kitvb1]

Re: PING from /free

I can post you some code when I get home tonight.
IIRC ... i did it with CL.

[Huddy]

Re: PING from /free

tis okay , i found this..

 
monitor;
QCMDEXC( 'PING RMTSYS([URL="http://www.ibm.com/"]WWW.IBM.COM[/URL]) MSGMODE(*VERBOSE *ESCAPE)' : 51 );
PingOk = *on;
on-error;
PingOk = *off;
endmon;

Needs to be in a monitor.

Cheers

Huddy

[jamief]

Re: PING from /free

this does work ... just thought I'd wake the dead thread.
I needed this because of tracking machines on the shop floor using LXE wireless devices.
when the LXE unit {EXPLODES} and a substitute is put into production, I needed a way
to automatically check to see if the unit is active. There is much more code involved but this
is the core.

d cmdlength       s             15  5                                      
d cmdstring       s            512                                         
d*ipaddress       s             13    inz('10.0.10.128')                   
d ipaddress       s             13    inz('10.0.10.199')                   
d pingOK          s               n                                        
d Q               s              1    inz('''')                            
                                                                           
d $command        pr                  extpgm('QCMDEXC')                    
d   command                    512                                         
d   Length                      15  5                                      
                                                                           
                                                                           
 /Free                                                                     
                                                                           
   cmdstring = 'PING RMTSYS(' +  Q + %trim(Ipaddress) + Q + ') ' +         
               ' MSGMODE(*VERBOSE *ESCAPE)';                               
   cmdlength = %len(%trim(cmdstring));                                     
                                                                           
   monitor;    
    $command (cmdstring: cmdlength);                
    PingOk = *on;                                   
   on-error;                                        
    PingOk = *off;                                  
   endmon;                                          
                                                    
   *inlr = *on;                                     
                                                    
 /End-Free 

[ARobb73]

Re: PING from /free

this does work ... just thought I'd wake the dead thread.

And just cause:

[dhanuxp]

Re: PING from /free

I can post you some code when I get home tonight.
IIRC ... i did it with CL.

and Kit is still on his way home....

[kitvb1]

Re: PING from /free

and Kit is still on his way home....

I'm getting older ... it takes me a while but I'm almost there

http://www.gpsies.com/map.do?fileId=rnjyypfxmkmwprug

[dhanuxp]

Re: PING from /free

I'm getting older ... it takes me a while but I'm almost there
http://www.gpsies.com/map.do?fileId=rnjyypfxmkmwprug

gosh! was that the "nice little ride" u posted in FB ?

[kitvb1]

Re: PING from /free

Yep... trying to get fit for the 220km (around) Lake Constance Marathon.

[jamief]

Re: PING from /free

CL is for small children & farm animals...

[egami]

I was searching on QCMDEXC w/ PING and this thread came up among others. I stumbled into using SQL call to invoke ping and I like this new method of invoking QCMDEXC, but hoping someone can clarify something for me.

In the example below I can use SQLCOD to check whether ping is successful, but the monitor statement does not. It seems to maybe just be verifying that invoking the command worked?

    monitor;                                                     
    exec sql CALL QSYS2.QCMDEXC                                  
      ( 'PING RMTSYS(WWW.IBM.COM) MSGMODE(*VERBOSE *ESCAPE)' );  

  // this does not work to test valid ping                                          
      PingOk = *on;                                              
    on-error;                                                    
      PingOk = *off;                                             
    endmon;                                                      

  // this works to test valid ping                                                 
      if SQLCOD = 0;                                             
        PingOk = *on;                                            
      endIf; 

[Scott Klement]

Can you explain why you are using SQL? This seems like an odd thing to do since you're in an RPG program that can easily call QCMDEXC directly (like the earlier examples in the thread) and elimimate the extra complexity of having SQL involved.

[egami]

Because I can do what I need with about 12 less lines of code...