PGM        PARM(&OPT)                                              
/*---------------------------------------------------------*/                   
/*   RSTNETSVR   :    ネット・サーバーの再起動             */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)                           
             DCL        VAR(&OPT) TYPE(*CHAR) LEN(4)                            
             DCL        VAR(&CMDSTR) TYPE(*CHAR) LEN(128)                       
                                                                                
             IF         COND(&OPT *EQ '*NO ') THEN(RETURN)                      
             CHGVAR     VAR(&CMDSTR) VALUE('?ENDTCPSVR  +                       
                          SERVER(*NETSVR)')                                     
             CALL       PGM(QCMDEXC) PARM(&CMDSTR 128)                          
             WRKACTJOB  SBS(QSERVER)                                            
             CHGVAR     VAR(&CMDSTR) VALUE('?STRTCPSVR  +                       
                          SERVER(*NETSVR)')                                     
             CALL       PGM(QCMDEXC) PARM(&CMDSTR 128)                          
             RCVMSG     MSGTYPE(*LAST) RMV(*NO) MSG(&MSG)                       
             GOTO       SNDMSG                                                  
                                                                                
 ERROR:      RCVMSG     RMV(*NO) MSG(&MSG)                                      
 SNDMSG:     SNDPGMMSG  MSG(&MSG) MSGTYPE(*COMP)                                
             ENDPGM