PGM                                                                
/*-------------------------------------------------------------------*/         
/*   TESTWCCJ  :   現行ジョブの変更                                  */         
/*                                                                   */         
/*   2017/02/01  作成                                                */         
/*-------------------------------------------------------------------*/         
             DCL        VAR(&PGM) TYPE(*CHAR) LEN(10)                           
             DCL        VAR(&KEYBUF) TYPE(*CHAR) LEN(22)                        
             DCL        VAR(&KEYSU) TYPE(*CHAR) LEN(4) +                        
                          VALUE(X'00000001')                                    
             DCL        VAR(&KEY3) TYPE(*CHAR) LEN(4) +                         
                          VALUE(X'00000003')                                    
             DCL        VAR(&KEYL) TYPE(*CHAR) LEN(4) +                         
                          VALUE(X'0000000A')                                    
             DCL        VAR(&APIERR) TYPE(*CHAR) LEN(116) +                     
                          VALUE(X'000074') /* 2 進数  */                        
                                                                                
             CHGVAR     VAR(&PGM) VALUE('PGM201    ')                           
             /*( WRKACTJOB に現在のプログラム名を表示する )*/                   
             CHGVAR     VAR(%BIN(&KEYL)) VALUE(10)                              
             CHGVAR     VAR(%SST(&KEYBUF 1 4)) VALUE(&KEYSU)                    
             CHGVAR     VAR(%SST(&KEYBUF 5 4)) VALUE(&KEY3)                     
             CHGVAR     VAR(%SST(&KEYBUF 9 4)) VALUE(&KEYL)                     
             CHGVAR     VAR(%SST(&KEYBUF 13 10)) VALUE(&PGM)                    
             CALL       PGM(QWCCCJOB) PARM(&KEYBUF &APIERR)                     
             DLYJOB     DLY(10)                                                 
             RETURN                                                             
                                                                                
             ENDPGM