各位在ＡＳ４００上用ＲＰＧ开发时的过程是怎样的？

pinggle

在ＡＳ４００上的开发是否跟传统的软件工程过程一样？技术层面上说如果要用ＲＰＧ开发一个程序的话，基过程是什么？

sunokla

话题好大。

sjbao

本人是新人，操作还有点困难

pinggle

好象真正的DX们都不出来了?

liu__jiang

我不是DX，但是如果你想问要想学好RPG最基本的东西的话，操作码和内部函数是很重要的，还有就是你的逻辑能力。前提都是去大量的实践。当然经常来这里看看进步也是很大的！

xuguopeng

你的话题太大 没法回答

最好描述清楚你的情况,把问题具体化.

pinggle

看来真的是我的问题没问清楚. 试着再说一遍:
1. 想必大家都知道软件开发过程, 立项评估, 需求收集, 需求分析,概要设计/原型, 详细设计, 编码/单元测试, 功能测试, 集成测试, 交付测试, 上线准备, 培训, 上线, 上线后支持.
我的问题是: 在AS400上的开发也是这样一套过程吗?
2. 基于PACKAGE的定制或修改, 如SAP ABAP, JDE 的 Customization, Siebel Script的定制开发有可能不同．
3. 仅针对编码而言, 拿Ｃ语言举例吧，根据设计编写原代码，包括.c, .h. lib等，编译成二进制码，再编译成可执行代码，对于ＲＰＧ而言是否也是这样的过程呢？

请原谅我对ＡＳ４００了解太少．算是比较土的问题吧．

liu__jiang

原帖由 pinggle 于 2005-12-7 16:49 发表
看来真的是我的问题没问清楚. 试着再说一遍:
1. 想必大家都知道软件开发过程, 立项评估, 需求收集, 需求分析,概要设计/原型, 详细设计, 编码/单元测试, 功能测试, 集成测试, 交付测试, 上线准备, 培训, 上线, 上 ...

第一个问题，我个人的意见---是的。
第三个问题，过程可能会更简单些，写完，编译，查错、修改，通过，测试验证，发布，OK！
我感觉还是拿个例子你试着去看，可能效果会更好：
   H DEBUG DATEDIT(*YMD) OPTION(*NODEBUGIO)
     FSTAFFERPF UF A E           K DISK    RENAME(STAR:STAX)
     FSTAFFERLF IF     E           K DISK
     FSTAFFDSPF CF   E              WORKSTN SFILE(DTASFL:RRN)
     F                                                     INDDS(INDICATOR)
     DRRN                S              4  0
     DTOSNO            S                   LIKE(NO)
     DINDICATOR        DS
     DADD                      2      2N
     DEXIT                     3      3N
     DCANCEL              12     12N
     DERRMSG              40     40N
     DSFLDSP               90     90N
     DSFLCTL                80     80N
     DSFLCLR                70     70N
      /free
         dou exit;
           select;
             when code=*zero;
               exsr sfl@;
             when code<>*zero;
               exsr query@;
           endsl;
           if rrn>0;
             sfldsp='1';
           else;
             sfldsp='0';
           endif;
           sflctl='1';
             exfmt ctlsfl;
             IF ADD='1';
               EXSR ADD@;
             ENDIF;
           sflctl='0';
           readc dtasfl;
           dou %eof;
             select;
               when tcode='i' or tcode='I';
                 exsr detail@;
               when tcode='c' or tcode='C';
                 exsr change@;
               when tcode='d' or tcode='D';
                 exsr delete@;
               other;
                 leave;
             endsl;
           readc dtasfl;
           enddo;
           tcode=' ';
         enddo;
      /end-free
     C                   SETON                                        LR
      *********
      **sfl@
      *********
      /free
         begsr sfl@;
           sflclr='1';
           write ctlsfl;
           sflclr='0';
           reset rrn;
           setll tosno star;
             dou %eof(stafferlf);
               read stafferlf;
               if not %eof;
                 clear dtasfl;
                 rrn=rrn+1;
                 no@=no;
                 name@=name;
                 sex@=sex;
                 age@=age;
                 write dtasfl;
               else;
                 leave;
               endif;
               if rrn=1;
                 tosno=*loval;
               endif;
             enddo;
             reset code;
         endsr;
      /end-free
      ****************
      **detail@
      ****************
      /free
         begsr detail@;
           chain no@ star;
             if %found;
               ino@=no;
               iname@=name;
               isex@=sex;
               iage@=age;
               exfmt queryrec;
             endif;
         endsr;
      /end-free
      ****************
      **change@
      ****************
      /free
         begsr change@;
           chain no@ stax;
             if %found;
               cno@=no@;
               cname@=name@;
               csex@=sex@;
               cage@=age@;
               exfmt chgrec;
             endif;
             no=cno@;
             name=cname@;
             age=cage@;
             sex=csex@;
          // write stax;
             update stax;
         endsr;
      /end-free
      **************
      **delete@
      **************
      /free
         begsr delete@;
           chain no@ stax;
             if %found;
               delete stax;
             endif;
         endsr;
      /end-free
      ************
      **add@
      ************
      /free
         begsr add@;
           dou cancel;
             exfmt addrec;
             if cancel='1';
               leave;
             endif;
             no=ano@;
             name=aname@;
             sex=asex@;
             age=aage@;
             chain ano@ stax;
               if %found;
                 errmsg='1';
               else;
                 errmsg='0';
                 write stax;
           //    update stax; //只有增加是用write,否则用update.
               endif;
           enddo;
           eval ano@=*zero;
           eval aname@=*blanks;
           eval asex@=*blanks;
           eval aage@=*zero;
         endsr;
      /end-free
      *************
      **query@
      *************
      /free
         begsr query@;
           tosno=code;
           exsr sfl@;
         endsr;
      /end-free

实现的是基本的增加，查询，修改，删除。  你可以看看。

pinggle

you are so great help, thank you very much.

cyj8205

liu__jiang   
骑士
真强啊，美女快追她，他是帅哥！哦