PGM        PARM(&PRFHND &CURHND)                                   
/*---------------------------------------------------------*/                   
/*   LOGOFF      :   仮想ログオフ                          */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)                           
             DCL        VAR(&PRFHND) TYPE(*CHAR) LEN(12)                        
             DCL        VAR(&CURHND) TYPE(*CHAR) LEN(12)                        
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))                 
                                                                                
  /*( 仮想ログイン・ユーザーのハンドルを解放 )*/                                
             CALL       PGM(QSYS/QSYRLSPH) PARM(&PRFHND)                        
  /*( 元のユーザーでのハンドルを取得してセッションを再開 )*/                    
             CALL       PGM(QSYS/QSYSETH) PARM(&CURHND)                         
             RETURN                                                             
                                                                                
 ERROR:      RCVMSG     RMV(*NO) MSG(&MSG)                                      
 SNDMSG:     SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)                                
             ENDPGM