亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

  免費(fèi)注冊(cè) 查看新帖 |

Chinaunix

  平臺(tái) 論壇 博客 文庫(kù)
最近訪問(wèn)板塊 發(fā)新帖
查看: 6352 | 回復(fù): 8
打印 上一主題 下一主題

COBOL 與 RPG [復(fù)制鏈接]

論壇徽章:
0
跳轉(zhuǎn)到指定樓層
1樓 [收藏(0)] [報(bào)告]
發(fā)表于 2006-02-23 23:07 |只看該作者 |倒序?yàn)g覽
請(qǐng)教COBOL  與  RPG 兩者有何區(qū)別？

論壇徽章:
0
2樓 [報(bào)告]
發(fā)表于 2006-02-23 23:15 |只看該作者
高手呢?

論壇徽章:
0
3樓 [報(bào)告]
發(fā)表于 2006-02-24 09:25 |只看該作者
COBOL是最古老且使用最廣泛的電腦語(yǔ)言，雖然不是400上最主要的語(yǔ)言（是RPG），但在商業(yè)中仍深具影響力。例子：
IDENTIFICATION DIVISION.
PROGRAM-ID. ORDERS.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. AS400.
OBJECT-COMPUTER. AS400.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
       SELECT ACCOUNTS-FILE
             ASSIGN TO DATABASE-ACCOUNTS
                   ORGANIZATION IS INDEXED
                   ACCESS MODE IS DYNAMIC
                   FILE STATUS IS ACCOUNT-FILE-STATUS
                   RECORD KEY IS EXTERNALLY-DESCRIBED-KEY.
       SELECT  PRINT-FILE
               ASSIGN TO PRINTER-QPRINT.
DATA DIVISION.
FILE SECTION.
FD     ACCOUNTS-FILE
         LABEL RECORDS ARE STANDARD.
01     ACCOUNTS-RECORD.
COPY DDS-ALL-FORMATS OF ACCOUNTS.
FD      PRINT-FILE
          LABEL RECORDS ARE OMITTED.
01      PRINT-RECORD                      PIC X(132).
WORKING-STORAGE SECTION.
77      ACCOUNTS-FILE-STATUS        PIC XX          VALUE SPACES.
01      RPT-REC.
          05   FNAME                             PIC X(15)      VALUE SPACES.
          05   LNAME                             PIC X(20)      VALUE SPACES.
          05   AMOUNT                          PIC 9999V9999 VALUE ZDROS.
          05   BIG-OUDER                      PIC X            VALUE SPACES.
PROCEDURE DIVISION.
A0000-MAIN-ROUTINE.
           OPEN INPUT ACCOUNTS-FILE
                     OUTPUT PRINT-FILE.
B0000-READ-RECORD.
           READ ACCOUNTS-FILE NEXT
                     AT END
                     GO TO B003-EXIT.
                      MOVE LSTNAM OF ACCT OF ACCOUNTS-RECORD
                                TO LNAME OF RPT-REC.
                      MOVE FSTNAM OF ACCT OF ACCOUNTS-RECORD
                                TO FNAME OF RPT-REC.
                      MOVE AMT OF ACCT OF ACCOUNTS-RECORD
                                TO AMOUNT OF RPT-REC.
                      IF        AMOUNT OF RPT-REC>1000
                                 MOVE "*" TO BIG-ORDER OF RPT-REC
                                 PERFORM B001-DISCOUNT
                      ELSE
                      MOVE  SPACES TO BI-ORDER OF RPT-REC.
          PERFORM B002-WRITE-RECORD.
         GO TO B000-READ-RECORD.
B001-DISCOUNT.
         COMPUTER AMOUNT = AMOUNT * .97.
B002-WRITE-RECORD.
          WRITE PRINT-RECORD FROM RPT-REC AFTER 1.
B003-EXIT.
         CLOSE ACCOUNTS-FILE
                     PRINT-FILE.
          STOP RUN.   
RPG最簡(jiǎn)單的例子：
C     'HELLO WORLD' DSPLY                                            
C                   SETON                                        LR  
C                                                                    
通過(guò)對(duì)比應(yīng)該可以理解吧？~~

論壇徽章:
0
4樓 [報(bào)告]
發(fā)表于 2006-02-24 22:04 |只看該作者
估計(jì)是我看不懂的那部分就是COBOL,直觀上有了了解，謝謝！

論壇徽章:
0
5樓 [報(bào)告]
發(fā)表于 2006-03-17 15:53 |只看該作者
IDENTIFICATION DIVISION.
       PROGRAM-ID. ORDERS.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. AS400.
       OBJECT-COMPUTER. AS400.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
              SELECT ACCOUNTS-FILE
                    ASSIGN TO DATABASE-ACCOUNTS
                          ORGANIZATION IS INDEXED
                          ACCESS MODE IS DYNAMIC
                          FILE STATUS IS ACCOUNT-FILE-STATUS
                          RECORD KEY IS EXTERNALLY-DESCRIBED-KEY.
              SELECT  PRINT-FILE
                      ASSIGN TO PRINTER-QPRINT.
       DATA DIVISION.
       FILE SECTION.
       FD     ACCOUNTS-FILE
                LABEL RECORDS ARE STANDARD.
       01     ACCOUNTS-RECORD.
       COPY DDS-ALL-FORMATS OF ACCOUNTS.
       FD      PRINT-FILE
                 LABEL RECORDS ARE OMITTED.
       01      PRINT-RECORD                PIC X(132).
       WORKING-STORAGE SECTION.
       77      ACCOUNTS-FILE-STATUS        PIC XX           VALUE SPACES.
       01      RPT-REC.
                 05   FNAME                PIC X(15)        VALUE SPACES.
                 05   LNAME                PIC X(20)        VALUE SPACES.
                 05   AMOUNT               PIC 9999V9999    VALUE ZDROS.
                 05   BIG-OUDER            PIC X            VALUE SPACES.
       PROCEDURE DIVISION.
       A0000-MAIN-ROUTINE.
                  OPEN INPUT ACCOUNTS-FILE
                       OUTPUT PRINT-FILE.
       B0000-READ-RECORD.
                  READ ACCOUNTS-FILE NEXT
                       NOT AT END
                           MOVE LSTNAM OF ACCT OF ACCOUNTS-RECORD
                                     TO LNAME OF RPT-REC
                           MOVE FSTNAM OF ACCT OF ACCOUNTS-RECORD
                                     TO FNAME OF RPT-REC
                           MOVE AMT OF ACCT OF ACCOUNTS-RECORD
                                     TO AMOUNT OF RPT-REC
                           IF        AMOUNT OF RPT-REC>1000
                                      MOVE "*" TO BIG-ORDER OF RPT-REC
                                      PERFORM B001-DISCOUNT
                           ELSE
                           MOVE  SPACES TO BI-ORDER OF RPT-REC
                           PERFORM B002-WRITE-RECORD
                           GO TO B000-READ-RECORD
                        AT END
                            GO TO B003-EXIT
                    END-READ
       B001-DISCOUNT.
                COMPUTER AMOUNT = AMOUNT * .97.
       B002-WRITE-RECORD.
                 WRITE PRINT-RECORD FROM RPT-REC AFTER 1.
       B003-EXIT.
                CLOSE ACCOUNTS-FILE
                      PRINT-FILE.
                STOP RUN.

論壇徽章:
0
6樓 [報(bào)告]
發(fā)表于 2006-03-17 15:59 |只看該作者
IDENTIFICATION DIVISION.
       PROGRAM-ID. ORDERS.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. AS400.
       OBJECT-COMPUTER. AS400.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
              SELECT ACCOUNTS
                    ASSIGN TO DATABASE-ACCOUNTS
                          ORGANIZATION IS INDEXED
                          ACCESS MODE IS DYNAMIC
                          FILE STATUS IS ACCOUNT-FILE-STATUS
                          RECORD KEY IS EXTERNALLY-DESCRIBED-KEY.
              SELECT  PRINT-FILE
                      ASSIGN TO PRINTER-QPRINT.
       DATA DIVISION.
       FILE SECTION.
       FD     ACCOUNTS
                LABEL RECORDS ARE STANDARD.
       01     ACCOUNTS-RECORD.
       COPY DDS-ALL-FORMATS OF ACCOUNTS.
       FD      PRINT-FILE
                 LABEL RECORDS ARE OMITTED.
       01      PRINT-RECORD                PIC X(132).
       WORKING-STORAGE SECTION.
       77      ACCOUNTS-STATUS        PIC XX           VALUE SPACES.
       01      RPT-REC.
                 05   FNAME                PIC X(15)        VALUE SPACES.
                 05   LNAME                PIC X(20)        VALUE SPACES.
                 05   AMOUNT               PIC 9999V9999    VALUE ZDROS.
                 05   BIG-OUDER            PIC X            VALUE SPACES.
       PROCEDURE DIVISION.
       A0000-MAIN-ROUTINE.
                  OPEN INPUT ACCOUNTS
                       OUTPUT PRINT-FILE.
       B0000-READ-RECORD.
                  READ ACCOUNTS NEXT
                       NOT AT END
                           MOVE LSTNAM OF ACCT OF ACCOUNTS-RECORD
                                     TO LNAME OF RPT-REC
                           MOVE FSTNAM OF ACCT OF ACCOUNTS-RECORD
                                     TO FNAME OF RPT-REC
                           MOVE AMT OF ACCT OF ACCOUNTS-RECORD
                                     TO AMOUNT OF RPT-REC
                           IF        AMOUNT OF RPT-REC>1000
                                      MOVE "*" TO BIG-ORDER OF RPT-REC
                                      PERFORM B001-DISCOUNT
                           ELSE
                           MOVE  SPACES TO BI-ORDER OF RPT-REC
                           PERFORM B002-WRITE-RECORD
                           GO TO B000-READ-RECORD
                        AT END
                            GO TO B003-EXIT
                    END-READ
       B001-DISCOUNT.
                COMPUTER AMOUNT = AMOUNT * .97.
       B002-WRITE-RECORD.
                 WRITE PRINT-RECORD FROM RPT-REC AFTER 1.
       B003-EXIT.
                CLOSE ACCOUNTS
                      PRINT-FILE.
                STOP RUN.

論壇徽章:
0
7樓 [報(bào)告]
發(fā)表于 2006-03-18 15:41 |只看該作者
COBOL 和RPG是2種語(yǔ)言了

語(yǔ)法什么的都不一樣，但都能實(shí)現(xiàn)相同的功能，舉個(gè)不太合適的例子：JSP和ASP都是寫網(wǎng)頁(yè)的語(yǔ)言，你說(shuō)他倆有啥區(qū)別？

論壇徽章:
0
8樓 [報(bào)告]
發(fā)表于 2006-03-22 11:15 |只看該作者
cobol自由格式閱讀性好些但語(yǔ)法繁瑣，rpg固定格式閱讀性稍差但語(yǔ)法簡(jiǎn)潔。

論壇徽章:
0
9樓 [報(bào)告]
發(fā)表于 2006-03-22 11:46 |只看該作者
rpg也有自由格式
您需要登錄后才可以回帖 登錄 | 注冊(cè)

本版積分規(guī)則 發(fā)表回復(fù)

  

北京盛拓優(yōu)訊信息技術(shù)有限公司. 版權(quán)所有 京ICP備16024965號(hào)-6 北京市公安局海淀分局網(wǎng)監(jiān)中心備案編號(hào)：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年舉報(bào)專區(qū)
中國(guó)互聯(lián)網(wǎng)協(xié)會(huì)會(huì)員  聯(lián)系我們：huangweiwei@itpub.net
感謝所有關(guān)心和支持過(guò)ChinaUnix的朋友們 轉(zhuǎn)載本站內(nèi)容請(qǐng)注明原作者名及出處

清除 Cookies - ChinaUnix - Archiver - WAP - TOP