PGM        PARM(&PFRTIME &TIMEDEF)                                 
/*-------------------------------------------------------------*/               
/*   STRPFRMON :   パフォーマンス・モニター開始                */               
/*-------------------------------------------------------------*/               
             DCL        VAR(&PFRTIME) TYPE(*DEC) LEN(5 0)                       
             DCL        VAR(&TIMEDEF) TYPE(*DEC) LEN(5 0)                       
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)                           
             DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)                          
             DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(132)                       
             DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)                          
             DCL        VAR(&MSGF) TYPE(*CHAR) LEN(10)                          
             DCL        VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)                       
             DCL        VAR(&JOB) TYPE(*CHAR) LEN(10)                           
             DCL        VAR(&USER) TYPE(*CHAR) LEN(10)                          
             DCL        VAR(&NBR) TYPE(*CHAR) LEN(6)                            
             DCL        VAR(&TYPE) TYPE(*CHAR) LEN(1)                           
             DCL        VAR(&SEV) TYPE(*DEC) LEN(2 0)                           
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))                 
                                                                                
             RTVJOBA    JOB(&JOB) USER(&USER) NBR(&NBR) TYPE(&TYPE)             
             SBMJOB     CMD(CALL PGM(ASNET.COM/PFRMON) PARM(&PFRTIME +          
                          &TIMEDEF)) JOB(PFRMONTOR) +                           
                          JOBQ(ASNET.COM/ENTPRSSVR)                             
                                                                                
 ERROR:      RCVMSG     MSGTYPE(*LAST) RMV(*NO) MSG(&MSG) +                     
                          MSGDTA(&MSGDTA) MSGID(&MSGID) SEV(&SEV) +             
                          MSGF(&MSGF) MSGFLIB(&MSGFLIB)                         
 SNDMSG:                                                                        
             IF         COND(&TYPE *EQ '0') THEN(DO) /*  バッチ JOB */          
             IF         COND(&SEV *GE 10) THEN(DO)                              
             DMPCLPGM                                                           
             SNDPGMMSG  MSG(' ダンプを QEZDEBUG に出力しました。 ') +           
                          TOMSGQ(*SYSOPR)                                       
             SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +                    
                          MSGDTA(&MSGDTA) TOMSGQ(*SYSOPR)                       
             SNDPGMMSG  MSG('STRPFRMON- ジョブ ' *CAT &JOB *TCAT +              
                          '/' *CAT &USER *TCAT '/' *CAT &NBR +                  
                          *TCAT +                                               
                          ' で次のエラーが発生しました。 ') +                   
                          TOMSGQ(*SYSOPR)                                       
             ENDDO                                                              
             ELSE       CMD(DO)                                                 
             SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +                    
                          MSGDTA(&MSGDTA) TOMSGQ(*SYSOPR) +                     
                          MSGTYPE(*COMP)                                        
             ENDDO                                                              
             ENDDO      /*  バッチ JOB */                                       
             ELSE       CMD(DO) /*  対話式  */                                  
             SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +                    
                          MSGDTA(&MSGDTA) TOMSGQ(*TOPGMQ) +                     
                          MSGTYPE(*DIAG)                                        
             ENDDO      /*  対話式  */                                          
             ENDPGM