PGM                                                                
/*---------------------------------------------------------*/                   
/*   STRWEBCL :    ブラウザの起動                          */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)                           
             DCL        VAR(&CMD) TYPE(*CHAR) LEN(123)                          
                                                                                
             CHGVAR     VAR(&CMD) VALUE('START +                                
                          HTTP://WWW.OFFICEQUATTRO.COM')                        
             STRPCO                                                             
             MONMSG     IWS4010                                                 
             STRPCCMD   PCCMD(&CMD) PAUSE(*NO)                                  
             RETURN                                                             
                                                                                
                                                                                
 ERROR:      RCVMSG     RMV(*NO) MSG(&MSG)                                      
             SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)                                
             ENDPGM