CL

ここでは PASE 環境(UNIX との互換の環境) のSHELLコマンドの実行の方法と
IBM System i 上での zip圧縮の方法を API: QP2SHELL を使って実現する方法を
一気に紹介しよう。

STRQSH コマンドで対話式で PASE 環境を起動して、SHELLコマンドを実行する方法は
よく知られているがバッチでプログラムから SHELLコマンドを簡単に起動する方法は
ほとんど紹介されていない。
何やら IBM が公開しているAPI: QP2SHELL を使えばできそうではあるが
実際にやってみるとかなり骨が折れて容易には QP2SHELL API は動作してくれない。

さらに同時に zip 圧縮の方法もここで紹介する。
System i で zip圧縮を実現するには OS Ver7.1 で ZIP のための API として

QzipZip, QzipUnzip

が提供されているが、PTF を適用しなければならない。
これも面倒な話で、一般的な方法とは言えない。

IBM System i で zip圧縮を実現するには、次の３つの方法がある。

1. GNU Zip を導入する。: GNU サイトから System i 用の GNU Zip をダウンロードして導入する。
GNU サイトとは無償で公開されているフリー・ソフトのサイトである。
2. zlib を導入する: PHP 用に公開されている zlib をダウンロードして導入する。
3. SHELL : jar コマンドを実行する: SHELL コマンド: jar を実行して、 zip を作成する。
jar コマンドは一般的には jarファイルを生成するためのものであるが
jar ファイルとは zip ファイルそのものであるので
zip ファイルを作成するのに jar コマンドを利用することができる。

- 1.と 2. の場合はWebサイトよりダウンロードして導入する、というものでこれらは
やはり面倒な手続きを必要とするし、何より業務として使用するには OS のリリース・アップや
System i の入れ替え時にも再導入の必要が出てくるのは、心配の種が増えようというものである。
3. の jar コマンドを利用する方法は、

・ PASE 環境が導入されていること
・ Java が導入されていること

が、必要条件とはなるが今では OS V5R1M0 以降であればほとんどの System iでは PASE 環境も
Java も導入されているはずであるので問題はない、と予想できる。
3. の SHELL コマンドを使う方法であれば、System i に導入の必要が一切、ない。
問題はどのように SHELL コマンドを使うか、そして zip圧縮を実現するか、である。
それをこの章で紹介していく。

【 TESTQSH: /ITSフォルダー以下のIFSファイルをすべて /TEST/ITS.zip
として圧縮するサンプル】

ソースコード

0001.00              PGM                                                                 
0002.00 /*---------------------------------------------------------*/                    
0003.00 /*   TESTQSH  : ZIP 圧縮のテスト                           */                    
0004.00 /*---------------------------------------------------------*/                    
0005.00              DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)                            
0006.00              DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)                           
0007.00              MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))                  
0008.00                                                                                  
0009.00              CALL       PGM(QP2SHELL) PARM('/QOpenSys/bin/jar' 'cvf' +           
0010.00                           '/TEST/ITS.zip' '/ITS')                                
0011.00              RETURN                                                              
0012.00                                                                                  
0013.00  ERROR:      RCVMSG     MSGTYPE(*LAST) RMV(*NO) MSG(&MSG) MSGID(&MSGID)          
0014.00              SNDPGMMSG  MSG(&MSGID *CAT '=' *CAT &MSG) +                         
0015.00                           TOMSGQ(*TOPGMQ) MSGTYPE(*DIAG)                         
0016.00              ENDPGM