Delphi, C#, Java Connect to AS400 demo

As400 CLLE 

             PGM        PARM(&MYFG)
             /*   PROGRAM ID ...........:                           */
             /*   PROGRAM DESCRIPTION ..:                           */
             /*   JOB NUMBER ...........:                           */
             /*   CREATED BY ...........: VCYONGPAN                 */
             /*   CREATION DATE ........: 2013.07.24                */
             DCL        VAR(&MYFG) TYPE(*CHAR) LEN(1)
             DCL        VAR(&MYJOB) TYPE(*CHAR) LEN(10)
             DCL        VAR(&MYUSER) TYPE(*CHAR) LEN(10)
             DCL        VAR(&MYNBR) TYPE(*CHAR) LEN(6)
             DCL        VAR(&MYDATE) TYPE(*CHAR) LEN(6)
             DCL        VAR(&MYUSRLIBL) TYPE(*CHAR) LEN(2750)
             DCL        VAR(&MYCURLIB) TYPE(*CHAR) LEN(10)
             DCL        VAR(&MYCURUSER) TYPE(*CHAR) LEN(10)
             DCL        VAR(&MYCCSID) TYPE(*DEC) LEN(5 0)
             DCL        VAR(&MYDATETIME) TYPE(*CHAR) LEN(20)

             RTVJOBA    JOB(&MYJOB) USER(&MYUSER) NBR(&MYNBR) +
                          DATE(&MYDATE) USRLIBL(&MYUSRLIBL) +
                          CURLIB(&MYCURLIB) CURUSER(&MYCURUSER) +
                          CCSID(&MYCCSID) DATETIME(&MYDATETIME)

             CHGLIBL    LIBL(QTEMP VCYONGPAN QGPL) /* chage library */

             CHGJOB     CCSID(65535)

        /*   CRTDUPOBJ  OBJ(ZYP006F ) FROMLIB(VCYONGPAN) +       */
        /*                OBJTYPE(*FILE) TOLIB(QTEMP) +          */
        /*                NEWOBJ(ZYP001F1) DATA(*NO)             */
        /*                                                       */
        /*   OVRDBF     FILE(ZYP006F ) TOFILE(QTEMP/ZYP001F1) +  */
        /*                MBR(*FIRST) OVRSCOPE(*JOB)             */

             CALL       PGM(ZYP006R) PARM(&MYFG &MYJOB &MYUSER +
                          &MYNBR &MYDATE &MYUSRLIBL &MYCURLIB +
                          &MYCURUSER &MYCCSID &MYDATETIME)

 END:        ENDPGM

Delphi demo 1

uses DB, ADODB, Grids, DBGrids, StdCtrls, ComObj;

function TForm2.GetRpgDataSet(PFName: string): TADODataSet;
var str,cmd: string; //調用RPG生成DB2臨時表數據,返回數據集
  cn400, DpcxrpgCmd: Variant;
  ARecordSet1: _Recordset;
  ds: TADODataSet;
  FieldList, Ti