PGM                                                                
/*---------------------------------------------------------*/                   
/*   DEMO     :   パネル・ワーカー・デモ                   */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)                           
             DCLF       FILE(PANELWKR/DEMOFM)                                   
             DCL        VAR(&SAKBFR) TYPE(*CHAR) LEN(2) VALUE(X'2FC6')          
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))                 
                                                                                
             CHGVAR     VAR(&S#KBFR) VALUE(&SAKBFR)                             
             SNDRCVF    RCDFMT(DEMO010) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT001))                
             DLYJOB     DLY(3)                                                  
NXT001:                                                                         
             SNDRCVF    RCDFMT(DEMO020) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT002))                
             DLYJOB     DLY(4)                                                  
NXT002:                                                                         
             SNDRCVF    RCDFMT(DEMO030) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT003))                
             DLYJOB     DLY(1)                                                  
NXT003:                                                                         
             CHGVAR     VAR(&IN61) VALUE('1')                                   
             SNDRCVF    RCDFMT(DEMO030) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT004))                
             DLYJOB     DLY(3)                                                  
NXT004:                                                                         
             CHGVAR     VAR(&IN62) VALUE('1')                                   
             SNDRCVF    RCDFMT(DEMO030) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT005))                
             DLYJOB     DLY(3)                                                  
NXT005:                                                                         
             CHGVAR     VAR(&IN63) VALUE('1')                                   
             SNDRCVF    RCDFMT(DEMO030) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT006))                
             DLYJOB     DLY(3)                                                  
NXT006:                                                                         
             CHGVAR     VAR(&IN64) VALUE('1')                                   
             SNDRCVF    RCDFMT(DEMO030) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT007))                
             DLYJOB     DLY(4)                                                  
NXT007:                                                                         
             SNDRCVF    RCDFMT(DEMO040) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT008))                
             DLYJOB     DLY(10)                                                 
NXT008:                                                                         
             CHGVAR     VAR(&WNDL) VALUE(10)                                    
             CHGVAR     VAR(&WNDP) VALUE(17)                                    
             SNDRCVF    RCDFMT(DEMO041) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT009))                
             DLYJOB     DLY(10)                                                 
NXT009:                                                                         
             CHGVAR     VAR(&WNDL) VALUE(2)                                     
             CHGVAR     VAR(&WNDP) VALUE(2)                                     
             SNDRCVF    RCDFMT(DEMO042) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT010))                
             DLYJOB     DLY(10)                                                 
NXT010:                                                                         
             CHGVAR     VAR(&WNDL) VALUE(13)                                    
             CHGVAR     VAR(&WNDP) VALUE(2)                                     
             SNDRCVF    RCDFMT(DEMO043) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT011))                
             DLYJOB     DLY(10)                                                 
NXT011:                                                                         
             CHGVAR     VAR(&WNDL) VALUE(2)                                     
             CHGVAR     VAR(&WNDP) VALUE(17)                                    
             SNDRCVF    RCDFMT(DEMO044) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT012))                
             DLYJOB     DLY(15)                                                 
NXT012:                                                                         
             CHGVAR     VAR(&WNDL) VALUE(8)                                     
             CHGVAR     VAR(&WNDP) VALUE(10)                                    
             SNDRCVF    RCDFMT(DEMO045) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT013))                
             DLYJOB     DLY(10)                                                 
NXT013:                                                                         
             SNDRCVF    RCDFMT(DEMO050) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT014))                
             DLYJOB     DLY(10)                                                 
NXT014:                                                                         
             SNDRCVF    RCDFMT(DEMO060) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT015))                
             DLYJOB     DLY(10)                                                 
NXT015:                                                                         
             TESTPNL    GRP(QSYS/QGSPDSPQ) PANEL(SPDOUTQ)                       
             SNDRCVF    RCDFMT(DEMO070) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT016))                
             DLYJOB     DLY(3)                                                  
NXT016:                                                                         
             SNDRCVF    RCDFMT(DEMO071) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT017))                
             DLYJOB     DLY(10)                                                 
NXT017:                                                                         
             SNDRCVF    RCDFMT(DEMO072) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT018))                
             DLYJOB     DLY(10)                                                 
NXT018:                                                                         
             SNDRCVF    RCDFMT(DEMO080) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT019))                
             DLYJOB     DLY(10)                                                 
NXT019:                                                                         
             SNDRCVF    RCDFMT(DEMO085) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT020))                
             DLYJOB     DLY(10)                                                 
NXT020:                                                                         
             SNDF       RCDFMT(CLRKSN)                                          
             SNDF       RCDFMT(KEISEN)                                          
             SNDRCVF    RCDFMT(DEMO086) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT021))                
             DLYJOB     DLY(10)                                                 
NXT021:                                                                         
             SNDRCVF    RCDFMT(DEMO090) WAIT(*NO)                               
             MONMSG     MSGID(CPF0887) EXEC(GOTO CMDLBL(NXT022))                
             DLYJOB     DLY(10)                                                 
NXT022:                                                                         
             GO PANELWKR                                                        
             RETURN                                                             
 ERROR:      RCVMSG     RMV(*NO) MSG(&MSG)                                      
             SNDPGMMSG  MSG(&MSG) MSGTYPE(*DIAG)                                
             ENDPGM