Monday, November 27, 2017
RECORD
RECORD adalah suatu kumpulan elemen hingga,
terurut dan heterogen sebagai suatu unit.
Elemen dari suatu record disebut field.
Field adalah suatu area dari record yang menggunakan suatu
informasi tertentu.
Contoh 1:
|
NIP
|
NAMA
|
JABATAN
|
GAJI
|
|
85001
|
ARINI
|
ANALIS
|
700000
|
Di sini :
|
Field
|
Tipe
data
|
|
NIP
|
String |
|
NAMA
|
String
|
|
JABATAN
|
String
|
|
GAJI
|
Integer
|
DEKLARASI
PASCAL
Var recpeg : RECORD
NIP : string[5];
NAMA : string[20];
JABATAN : string[10];
GAJI : integer
END;
COBOL
01 PEGAWAI.
02
NIP PIC X(5).
02 NAMA PIC X(20).
02 JABATAN PIC X(10).
02 GAJI PIC 9(7).
Contoh 2 :
|
NIP
|
NAMA
|
JABATAN
|
ALAMAT
|
GAJI
|
|
|
KECIL
|
KELUARGA
|
||||
|
85001
|
ARINI
|
ISKANDAR
|
ANALIS
|
JL.JAMBU 29
|
700000
|
Di sini :
|
Field
|
Tipe
data
|
|
|
NIP
|
String |
|
 |
|
Kecil |
 NAMA |
Record
|
|
|
|
|
Keluarga
|
|
JABATAN
|
String
|
|
|
ALAMAT
|
String
|
|
|
GAJI
|
Integer
|
|
DEKLARASI
PASCAL
Var recpeg : RECORD
NIP
: string[5];
NAMA
: RECORD
KECIL : string[10]
KEL :
string[15]
END;
JABATAN
: string[10];
ALAMAT : string[20];
GAJI : integer
END;
COBOL
01 PEGAWAI.
02
NIP PIC X(5).
02 NAMA.
03 KECIL PIC
X(10).
03 KEL PIC
X(15).
02 JABATAN PIC X(10).
02 ALAMAT PIC
X(20).
02 GAJI PIC 9(7).
Contoh 3 :
|
NIP
|
NAMA
|
ABSEN
HADIR
|
|||||
|
1
|
2
|
3
|
4
|
...
|
12
|
||
|
85001
|
ARINI
|
19
|
20
|
24
|
23
|
|
24
|
Di sini :
|
Field
|
Tipe
data
|
|
NIP
|
String |
|
NAMA
|
String
|
|
ABSEN
|
Array - integer
|
DEKLARASI
PASCAL
Var recpeg : RECORD
NIP
: string[5];
NAMA
: string[20];
ABSEN : Array[1..12] of integer
END;
COBOL
01 PEGAWAI.
02 NIP PIC
X(5).
02 NAMA PIC
X(10).
02 ABSEN OCCURS 12 TIMES
03
JUMLAH PIC
99.
