如何在IBM i (OS/400)使用RPG编写命令行接口

介绍了如何在 IBM i 上使用 RPG 编写命令行接口 (CLI)。通过使用大气层 (ILE) 可以访问操作系统命令，在 RPG 中处理参数和输出。

H DFTACTGRP(*NO) BNDDIR('QC2LE')
D get_cl_parms       pr
D
D parm                            16A   const
D buflen                           5i 0 const
D                                                 
D output_parms     ds                  qualified
D  parm1                            1A   overlay(output_parms)
D  parm2                           17A   overlay(output_parms:*next)
D  parm3                           22A   overlay(output_parms:*next)
D  parm4                           32A   overlay(output_parms:*next)
D  parm5                          128A   overlay(output_parms:*next)
D                                                 
 /free
   // Parse the command line parameters
   get_cl_parms(%trim(parm) : %len(%trim(parm)) : output_parms);

   // Output the parameters to the command line
   dsply ('Parameter 1: ' + parm1);
   dsply ('Parameter 2: ' + parm2);
   dsply ('Parameter 3: ' + parm3);
   dsply ('Parameter 4: ' + parm4);
   dsply ('Parameter 5: ' + parm5);

   *inlr = *on;
   return;
 /end-free

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com