PGM        PARM(&DEV)                                              
/*---------------------------------------------------------*/                   
/*   QINSTAPP :    導入プログラム                          */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)                           
             DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(80)                        
             DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)                          
             DCL        VAR(&MSGF) TYPE(*CHAR) LEN(10)                          
             DCL        VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)                       
             DCL        VAR(&DEV) TYPE(*CHAR) LEN(10)                           
             DCL        VAR(&USER) TYPE(*CHAR) LEN(10)                          
             DCLF       FILE(QTEMP/QINSTAPPFM)                                  
             DCL        VAR(&SEV) TYPE(*DEC) LEN(2 0)                           
             MONMSG     MSGID(CPF0000)                                          
                                                                                
             RSTOBJ     OBJ(QINSTAPPFM) SAVLIB(QTEMP) DEV(&DEV) +               
                          ENDOPT(*LEAVE) MBROPT(*ALL) ALWOBJDIF(*ALL)           
             MONMSG     CPF3800                                                 
             SNDRCVF    RCDFMT(DSPHEAD) WAIT(*YES)                              
             IF         COND(&IN03 *EQ '1') THEN(DO)                            
             SNDPGMMSG  MSG('PANEL-WORKER FOR +                                 
                          CHAICAGO の導入は取消されました。 ') +                
                          MSGTYPE(*COMP)                                        
             RETURN                                                             
             ENDDO                                                              
/*( 権限の確認 )*/                                                              
             RTVJOBA    USER(&USER)                                             
             IF         COND(&USER *NE 'QSECOFR') THEN(DO)                      
             SNDPGMMSG  +                                                       
                          MSG(' 導入するには QSECOFR で実行してくだ +           
                           さい。 ')                                            
             RETURN                                                             
             ENDDO                                                              
/*( 導入の開始 )*/                                                              
             CHGJOB     STSMSG(*NORMAL)                                         
             CHGVAR     VAR(&LIB) VALUE('PANELWKR  ')                           
             SNDRCVF    RCDFMT(WINDOW) WAIT(*NO)                                
             RSTLIB     SAVLIB(PANELV31) DEV(&DEV) ENDOPT(*LEAVE) +             
                          MBROPT(*ALL) ALWOBJDIF(*ALL) RSTLIB(PANELWKR)         
             MONMSG     CPF3800                                                 
             RCVMSG     MSGTYPE(*LAST) RMV(*NO) MSGDTA(&MSGDTA) +               
                          MSGID(&MSGID) MSGF(&MSGF) MSGFLIB(&MSGFLIB)           
/*---( 作業進行中の ﾒｯｾｰｼﾞ 出力 )------------------------------------*/         
             SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +                    
                          MSGDTA(&MSGDTA) TOPGMQ(*EXT) +                        
                          MSGTYPE(*STATUS)                                      
             CHGVAR     VAR(&LIB) VALUE('QTRSRC    ')                           
             SNDRCVF    RCDFMT(WINDOW) WAIT(*NO)                                
             RSTLIB     SAVLIB(QTRSRC) DEV(&DEV) ENDOPT(*LEAVE) +               
                          MBROPT(*ALL) ALWOBJDIF(*ALL)                          
             MONMSG     CPF3800                                                 
             RCVMSG     MSGTYPE(*LAST) RMV(*NO) MSGDTA(&MSGDTA) +               
                          MSGID(&MSGID) MSGF(&MSGF) MSGFLIB(&MSGFLIB)           
/*---( 作業進行中の ﾒｯｾｰｼﾞ 出力 )------------------------------------*/         
             RMVMSG     CLEAR(*ALL)                                             
             SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +                    
                          MSGDTA(&MSGDTA) MSGTYPE(*DIAG)                        
             CHGVAR     VAR(&LIB) VALUE('QTROBJ    ')                           
             SNDRCVF    RCDFMT(WINDOW) WAIT(*NO)                                
             RSTLIB     SAVLIB(QTROBJ) DEV(&DEV) ENDOPT(*LEAVE) +               
                          MBROPT(*ALL) ALWOBJDIF(*ALL)                          
             MONMSG     CPF3800                                                 
             RCVMSG     MSGTYPE(*LAST) RMV(*NO) MSGDTA(&MSGDTA) +               
                          MSGID(&MSGID) MSGF(&MSGF) MSGFLIB(&MSGFLIB)           
/*---( 作業進行中の ﾒｯｾｰｼﾞ 出力 )------------------------------------*/         
             SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +                    
                          MSGDTA(&MSGDTA) TOPGMQ(*EXT) +                        
                          MSGTYPE(*STATUS)                                      
             CHGVAR     VAR(&LIB) VALUE('QTRFIL    ')                           
             SNDRCVF    RCDFMT(WINDOW) WAIT(*NO)                                
             RSTLIB     SAVLIB(QTRFIL) DEV(&DEV) ENDOPT(*UNLOAD) +              
                          MBROPT(*ALL) ALWOBJDIF(*ALL)                          
             MONMSG     CPF3800                                                 
             RCVMSG     MSGTYPE(*LAST) RMV(*NO) MSGDTA(&MSGDTA) +               
                          MSGID(&MSGID) MSGF(&MSGF) MSGFLIB(&MSGFLIB)           
/*---( 作業進行中の ﾒｯｾｰｼﾞ 出力 )------------------------------------*/         
             SNDPGMMSG  MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +                    
                          MSGDTA(&MSGDTA) TOPGMQ(*EXT) +                        
                          MSGTYPE(*STATUS)                                      
             SNDPGMMSG  +                                                       
                          MSG(' 導入は正常に完了しました。テープをは +          
                           ずしてください。 ') MSGTYPE(*COMP)                   
             RETURN                                                             
                                                                                
 ERROR:      RCVMSG     RMV(*NO) MSG(&MSG) SEV(&SEV)                            
             IF         COND(&MSG *NE ' ') THEN(DO)                             
             IF         COND(&SEV *GE 30) THEN(DO)                              
             SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)                                
             ENDDO                                                              
             GOTO       ERROR                                                   
             ENDDO                                                              
             ENDPGM