             PGM                                                                
             DCL        VAR(&ATTR) TYPE(*CHAR) LEN(10)                          
             DCL        VAR(&APIERR) TYPE(*CHAR) LEN(116) +                     
                          VALUE(X'0000007400000000') /* 2 恑悢  */              
                                                                                
             STRDBG     PGM(CHAO.COM/QSYSOPRCL) UPDPROD(*YES) +                 
                          OPMSRC(*YES) DSPMODSRC(*NO)                           
             CALLPRC    PRC('Q蔚R滴裙敌礑挡戏A挝裙蚕蔚') +                      
                          PARM(('*OPMSRC   ') (&ATTR) (&APIERR))                
             ENDDBG                                                             
             SNDPGMMSG  MSG('ATTR=' *CAT &ATTR) MSGTYPE(*DIAG)                  
            ENDPGM