請教一個COBOL簡單語句?

whawkqq

請教一下:
COBOL中的一個簡單的語句的作用:
FILE SECTION.
FD ABC LABEL RECORD IS STANDARD.
01 A PIC X(80)

smileflyer

不知道你有沒有cobol的資料，如果沒有我可以給你發(fā)幾本。

pantierui

我正在學(xué)COBOL，能給我發(fā)一份嗎！
謝謝！
dlptr2008@yahoo.com.cn

kelvenlee

FILE SECTION.   ------文件句
FD ABC LABEL RECORD IS STANDARD.  ---- 讀磁盤上的文件一定要有這句的,不要問為什么
01 A PIC X(80)   -----  定義A變量為80個字符

kelvenlee

原帖由 pantierui 于 2007-4-5 14:43 發(fā)表
我正在學(xué)COBOL，能給我發(fā)一份嗎！
謝謝！
dlptr2008@yahoo.com.cn

輕舟老大有很多, 發(fā)短訊給他就是了

jxylh111018

FILE SECTION.
FD ABC LABEL RECORD IS STANDARD.
01 A PIC X(80)
定義之前  應(yīng)該有 數(shù)據(jù)庫的定義
FILE-CONTROL.
select  {PGM-FILE NAME}
           ASSIGN     TO   DATABASE-{PF NAME  OR LF NAME}
          ORGANIZATION    IS  INDEXED                     
          ACCESS MODE     IS  RANDOM                     
          RECORD KEY       IS  EXTERNALLY-DESCRIBED-KEY.

   
      

DATA                          DIVSION.
FILE                           SECTION.
FD  {PGM-FILE NAME}       LABEL RECORDS ARE STANDARD.   
01  {PMG-RECORD NAME}                                       
COPY DDSR-ALL-FORMAT     OF    {PF  OR LF }

kelvenlee

jxylh111018  說得對.   用cobol模板修改一下就是了, 憑空寫不是好方法

sean810

這個是最基本的cobol結(jié)構(gòu)。
如果有誰要cobol的學(xué)習(xí)資料，發(fā)mail給我。
感覺cobol的數(shù)據(jù)庫操作沒有rpg好。

sh-vagrant

樓上的兄弟們有沒有基礎(chǔ)的入門級的培訓(xùn)教程哈

八哥看鋪

原帖由 smileflyer 于 2007-4-5 14:32 發(fā)表
不知道你有沒有cobol的資料，如果沒有我可以給你發(fā)幾本。

這位兄臺，方便的話能發(fā)給我一份么？不勝感謝
starling_lee@sina.com.cn