各位在ＡＳ４００上用ＲＰＧ開發(fā)時(shí)的過程是怎樣的？

pinggle

在ＡＳ４００上的開發(fā)是否跟傳統(tǒng)的軟件工程過程一樣？技術(shù)層面上說如果要用ＲＰＧ開發(fā)一個(gè)程序的話，基過程是什么？

sunokla

話題好大。

sjbao

本人是新人，操作還有點(diǎn)困難

pinggle

好象真正的DX們都不出來了?

liu__jiang

我不是DX，但是如果你想問要想學(xué)好RPG最基本的東西的話，操作碼和內(nèi)部函數(shù)是很重要的，還有就是你的邏輯能力。前提都是去大量的實(shí)踐。當(dāng)然經(jīng)常來這里看看進(jìn)步也是很大的！

xuguopeng

你的話題太大 沒法回答

最好描述清楚你的情況,把問題具體化.

pinggle

看來真的是我的問題沒問清楚. 試著再說一遍:
1. 想必大家都知道軟件開發(fā)過程, 立項(xiàng)評(píng)估, 需求收集, 需求分析,概要設(shè)計(jì)/原型, 詳細(xì)設(shè)計(jì), 編碼/單元測試, 功能測試, 集成測試, 交付測試, 上線準(zhǔn)備, 培訓(xùn), 上線, 上線后支持.
我的問題是: 在AS400上的開發(fā)也是這樣一套過程嗎?
2. 基于PACKAGE的定制或修改, 如SAP ABAP, JDE 的 Customization, Siebel Script的定制開發(fā)有可能不同．
3. 僅針對(duì)編碼而言, 拿Ｃ語言舉例吧，根據(jù)設(shè)計(jì)編寫原代碼，包括.c, .h. lib等，編譯成二進(jìn)制碼，再編譯成可執(zhí)行代碼，對(duì)于ＲＰＧ而言是否也是這樣的過程呢？

請?jiān)�諒我�?duì)ＡＳ４００了解太少．算是比較土的問題吧．

liu__jiang

原帖由 pinggle 于 2005-12-7 16:49 發(fā)表
看來真的是我的問題沒問清楚. 試著再說一遍:
1. 想必大家都知道軟件開發(fā)過程, 立項(xiàng)評(píng)估, 需求收集, 需求分析,概要設(shè)計(jì)/原型, 詳細(xì)設(shè)計(jì), 編碼/單元測試, 功能測試, 集成測試, 交付測試, 上線準(zhǔn)備, 培訓(xùn), 上線, 上 ...

第一個(gè)問題，我個(gè)人的意見---是的。
第三個(gè)問題，過程可能會(huì)更簡單些，寫完，編譯，查錯(cuò)、修改，通過，測試驗(yàn)證，發(fā)布，OK！
我感覺還是拿個(gè)例子你試著去看，可能效果會(huì)更好：
   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

實(shí)現(xiàn)的是基本的增加，查詢，修改，刪除。  你可以看看。

pinggle

you are so great help, thank you very much.

cyj8205

liu__jiang   
騎士
真強(qiáng)啊，美女快追她，他是帥哥！哦