             PGM                                                                
/*---------------------------------------------------------*/                   
/*   TESTQSH  : ZIP ˆ³k‚ÌƒeƒXƒg                           */                   
/*---------------------------------------------------------*/                   
             DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)                           
             DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)                          
             MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))                 
                                                                                
             CALL       PGM(QP2SHELL) PARM('/QOÆµÄSÓÍ/²¹Ä/À±È' '³Ð¶' +          
                          '/TEST/ITS.Ô¹Æ' '/ITS')                               
             RETURN                                                             
                                                                                
 ERROR:      RCVMSG     MSGTYPE(*LAST) RMV(*NO) MSG(&MSG) MSGID(&MSGID)         
             SNDPGMMSG  MSG(&MSGID *CAT '=' *CAT &MSG) +                        
                          TOMSGQ(*TOPGMQ) MSGTYPE(*DIAG)                        
             ENDPGM