H DATEDIT(*YMD/)                                                                               
     F********** TESTQSH : ZIP 圧縮のテスト ********************************                        
     F*                                                                                             
     F**********************************************************************                        
     D*( QP2SHELL  のプロトタイプ宣言 )                                                             
     D QP2SHELL        PR                  EXTPGM('QP2SHELL')                                       
     D  CMD                       32767A   CONST OPTIONS(*VARSIZE)                                  
     D  OPT                       32767A   CONST OPTIONS(*VARSIZE:*NOPASS)                          
     D  PARM1                     32767A   CONST OPTIONS(*VARSIZE:*NOPASS)                          
     D  PARM2                     32767A   CONST OPTIONS(*VARSIZE:*NOPASS)                          
                                                                                                    
      /FREE                                                                                         
         QP2SHELL('/QOﾆﾄSﾓﾍ/ｲｹﾄ/ﾀｱﾈ' + X'00': 'ｳﾐｶ' + X'00':                                        
                  '/TEST/ITS.ﾔｹﾆ' + X'00': '/ITS' + X'00');                                         
         *INLR = *ON;                                                                               
      /END-FREE