PGM        PARM(&JOB &USER &NBR &OUTQ &OUTQLIB &DATE +             
                          &TYPE &PRTDEV &LANGID &CNTRYID &CCSID +               
                          &DFTCCSID &CYMDDATE &SBMMSGQ &SBMMSGQLIB)             
/*---------------------------------------------------------*/                   
/*   RTVJOBA    :  R��ȹ�е JŲ A��ȹ��ε ��� C/400 PGM    */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)                           
             DCL        VAR(&JOBINFO) TYPE(*CHAR) LEN(26)                       
             DCL        VAR(&JOBID) TYPE(*CHAR) LEN(16)                         
             DCL        VAR(&JOB) TYPE(*CHAR) LEN(10)                           
             DCL        VAR(&USER) TYPE(*CHAR) LEN(10)                          
             DCL        VAR(&NBR) TYPE(*CHAR) LEN(6)                            
             DCL        VAR(&OUTQ) TYPE(*CHAR) LEN(10)                          
             DCL        VAR(&OUTQLIB) TYPE(*CHAR) LEN(10)                       
             DCL        VAR(&DATE) TYPE(*CHAR) LEN(6)                           
             DCL        VAR(&TYPE) TYPE(*CHAR) LEN(1)                           
             DCL        VAR(&PRTDEV) TYPE(*CHAR) LEN(10)                        
             DCL        VAR(&LANGID) TYPE(*CHAR) LEN(3)                         
             DCL        VAR(&CNTRYID) TYPE(*CHAR) LEN(2)                        
             DCL        VAR(&CCSID) TYPE(*DEC) LEN(5 0)                         
             DCL        VAR(&CCSID_C) TYPE(*CHAR) LEN(5)                        
             DCL        VAR(&DFTCCSID) TYPE(*DEC) LEN(5 0)                      
             DCL        VAR(&DFTCCSID_C) TYPE(*CHAR) LEN(5)                     
             DCL        VAR(&CYMDDATE) TYPE(*CHAR) LEN(7)                       
             DCL        VAR(&SBMMSGQ) TYPE(*CHAR) LEN(10)                       
             DCL        VAR(&SBMMSGQLIB) TYPE(*CHAR) LEN(10)                    
             DCL        VAR(&SWS) TYPE(*CHAR) LEN(8)                            
             DCL        VAR(&JOBVAR) TYPE(*CHAR) LEN(512)                       
             DCL        VAR(&JOBLEN) TYPE(*CHAR) LEN(4)                         
             DCL        VAR(&BIN4) TYPE(*CHAR) LEN(4)                           
             DCL        VAR(&APIERR) TYPE(*CHAR) LEN(4) +                       
                          VALUE(X'00000000') /* 2 �i��  */                      
                                                                                
             CHGVAR     VAR(%BIN(&JOBLEN)) VALUE(512)                           
             IF         COND(&JOB *EQ '*         ') THEN(DO)                    
             RTVJOBA    JOB(&JOB) USER(&USER) NBR(&NBR)                         
             ENDDO                                                              
             CHGVAR     VAR(&JOBINFO) VALUE(&JOB *CAT &USER *CAT &NBR)          
             CALL       PGM(QUSRJOBI) PARM(&JOBVAR &JOBLEN +                    
                          'JOBI0300' &JOBINFO &JOBID &APIERR)                   
             CHGVAR     VAR(&JOBID) VALUE(%SST(&JOBVAR 35 16))                  
             CHGVAR     VAR(&OUTQ) VALUE(%SST(&JOBVAR 85 10))                   
             CHGVAR     VAR(&OUTQLIB) VALUE(%SST(&JOBVAR 95 10))                
             CHGVAR     VAR(&DATE) VALUE(%SST(&JOBVAR 182 6))                   
             CHGVAR     VAR(&TYPE) VALUE(%SST(&JOBVAR 61 1))                    
             IF         COND(&TYPE *EQ 'B') THEN(CHGVAR VAR(&TYPE) +            
                          VALUE('0'))                                           
             IF         COND(&TYPE *EQ 'I') THEN(CHGVAR VAR(&TYPE) +            
                          VALUE('1'))                                           
             CHGVAR     VAR(&SBMMSGQ) VALUE(%SST(&JOBVAR 143 10))               
             CHGVAR     VAR(&SBMMSGQLIB) VALUE(%SST(&JOBVAR 153 10))            
             CHGVAR     VAR(&PRTDEV) VALUE(%SST(&JOBVAR 107 10))                
                                                                                
             CHGVAR     VAR(%BIN(&JOBLEN)) VALUE(512)                           
             CALL       PGM(QUSRJOBI) PARM(&JOBVAR &JOBLEN +                    
                          'JOBI0400' '*INT                ' &JOBID +            
                          &APIERR)                                              
             CHGVAR     VAR(&LANGID) VALUE(%SST(&JOBVAR 343 3))                 
             CHGVAR     VAR(&CNTRYID) VALUE(%SST(&JOBVAR 346 2))                
             CHGVAR     VAR(&BIN4) VALUE(%SST(&JOBVAR 301 4))                   
             CHGVAR     VAR(&CCSID) VALUE(%BIN(&BIN4))                          
             CHGVAR     VAR(&BIN4) VALUE(%SST(&JOBVAR 373 4))                   
             CHGVAR     VAR(&DFTCCSID) VALUE(%BIN(&BIN4))                       
             CHGVAR     VAR(&SWS) VALUE(%SST(&JOBVAR 350 8))                    
             CHGVAR     VAR(&CYMDDATE) VALUE('1' *CAT &DATE)                    
             IF         COND(%SST(&SWS 1 1) *EQ '1') THEN(DO)                   
             CHGVAR     VAR(&LANGID) VALUE('DBG')                               
             ENDDO                                                              
             RETURN                                                             
                                                                                
             ENDPGM