FILE SECTION PADA COBOL
FILE SECTION Menerangkan tentang file yg dipakai dalam program, meliputi nama-file, cara erekaman, jumlah record per block, jumlah karakter per record, label serta nama dari record tersebut.
DATA DIVISION.
FILE SECTION.
FD nama-file
[ BLOCK CONTAINS [ int1 TO int2 ] { CHARACTERS/RECORDS } ]
[ RECORD CONTAINS [ int3 TO int4 ] CHARACTERS ]
LABEL {RECORD IS/RECORDS ARE} {STANDARD/OMITTED}
[VALUE OF FILE-ID IS nama-file-di-label ]
[DATA {RECORD IS/RECORDS ARE} nama-rec1 [ , nama-rec2] ]
Keterangan :
BLOCK CONTAINS clause
Menunjukkan ukuran record di dalam file untuk tiap-tiap blocknya. Clause ini biasanya digunakan untuk file yg berupa tape magnetik, sifatnya optional. Bila tidak ditulis maka dianggap setiap block berisi 1 record.
RECORD CONTAINS clause
Menunjukkan banyaknya karakter untuk tiap-tiap record di dalam file. Jika clause ini tidak ditulis, maka panjang record diambil dari record description entry. Jika panjang record tetap, maka panjang record ini ditunjukkan oleh nilai dari int1.
LABEL RECORD atau LABEL RECORDS clause
Menunjukkan apakah file yg dipergunakan mempunyai label atau tidak.
OMMITED digunakan untuk card-file atau print-file yang tidak mempunyai file.
STANDARD digunakan untuk disk-file yg mempunyai label
Clause ini harus ditulis jika FILE SECTION ada.
VALUE OF FILE-ID clause
Berisi informasi mengenai file yg mempunyai label di disk. Label di disk ini berupa
suatu nama-file yg berisi data yg direkam di dalam disk tsb.
DATA RECORD atau DATA RECORDS clause
Menunjukkan nama-record di dalam file, sifatnya optional.
Bentuk Umum FILE SECTION
DATA DIVISION.
FILE SECTION.
FD nama-file
[ BLOCK CONTAINS [ int1 TO int2 ] { CHARACTERS/RECORDS } ]
[ RECORD CONTAINS [ int3 TO int4 ] CHARACTERS ]
LABEL {RECORD IS/RECORDS ARE} {STANDARD/OMITTED}
[VALUE OF FILE-ID IS nama-file-di-label ]
[DATA {RECORD IS/RECORDS ARE} nama-rec1 [ , nama-rec2] ]
Keterangan :
BLOCK CONTAINS clause
Menunjukkan ukuran record di dalam file untuk tiap-tiap blocknya. Clause ini biasanya digunakan untuk file yg berupa tape magnetik, sifatnya optional. Bila tidak ditulis maka dianggap setiap block berisi 1 record.
RECORD CONTAINS clause
Menunjukkan banyaknya karakter untuk tiap-tiap record di dalam file. Jika clause ini tidak ditulis, maka panjang record diambil dari record description entry. Jika panjang record tetap, maka panjang record ini ditunjukkan oleh nilai dari int1.
LABEL RECORD atau LABEL RECORDS clause
Menunjukkan apakah file yg dipergunakan mempunyai label atau tidak.
OMMITED digunakan untuk card-file atau print-file yang tidak mempunyai file.
STANDARD digunakan untuk disk-file yg mempunyai label
Clause ini harus ditulis jika FILE SECTION ada.
VALUE OF FILE-ID clause
Berisi informasi mengenai file yg mempunyai label di disk. Label di disk ini berupa
suatu nama-file yg berisi data yg direkam di dalam disk tsb.
DATA RECORD atau DATA RECORDS clause
Menunjukkan nama-record di dalam file, sifatnya optional.
Komentar