Delphi, C#, Java Connect to AS400 demo

最新推荐文章于 2022-06-29 17:16:30 发布

原创

最新推荐文章于 2022-06-29 17:16:30 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

这篇博客介绍了如何使用Delphi, C#和Java编程语言连接到AS400系统，包括CLLE命令的使用和不同语言的连接示例。" 88960299,8305856,CPU调度的类与对象实现,"['C++编程', '面向对象', '进程管理', '算法设计']

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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