程序中打JAR包

在rpgle程序中打jar的使用方法:

djar           c                'qsh cmd(''cd &d; jar cf &j &f'')'

c                 eval    qcmd=jar

c*使用REPLACE将&D 换成对应的目录,&J换成对应的JAR包名,&F换成对应的文件名连成的字符

C*串                 

.....

c                 call    'QCMDEXC'          QCMDEXC

..........

C                 EVAL    *INLR = '1'

 

C     QCMDEXC     PLIST

C                 PARM                       QCMD                200

C                 PARM    200                QCMDLEN              15 5