In ALGOL, the user must declare local variables in the appropriate formats and use input and output mappings on FIND, STORE, GET, and PUT statements, since the data items are not directly accessible.
In COBOL, database items are directly accessible and there is no need for mapping.
Real data items occupy one word and cannot be used to store normalized 12-digit numbers greater than 549,755,813,887. COBOL converts all real items with a precision of 12 to precision 11.
DASDL to Host Language Conversion Table details the conversion of DASDL data types to ALGOL and COBOL data types.
Table 75. DASDL to Host Language Conversion Table
|
DASDL |
ALGOL |
COBOL |
|---|---|---|
|
name ALPHA(n) |
STRING name: ALPHA(n) |
name PIC X(n) DISPLAY. |
|
No CCSVERSION |
STRING name: ALPHA(n) |
name PIC X(n) DISPLAY. |
|
CCSVERSION = KANJI |
Not applicable |
For COBOL74:~ name PIC X(n) KANJI.~For COBOL85:~ name PIC N(n) NATIONAL. |
|
CCSVERSION=~<ccsversion name other than KANJI> |
Not applicable |
For COBOL74:~ name PIC X(n) DISPLAY.~For COBOL85:~ name PIC N(n) NATIONAL. |
|
name NUMBER(n) |
INTEGER name: NUMBER(n) |
name PIC 9(n) COMP-2. |
|
name NUMBER(Sn) |
INTEGER name: NUMBER(Sn) |
name PIC S9(n) COMP-2. |
|
name NUMBER(n,m) |
REAL name: NUMBER(n,m) |
name PIC9(n‑m)V9(m) COMP-2. |
|
name NUMBER(Sn,m) |
REAL name: NUMBER(Sn,m) |
name PIC S9(n‑m) V9(m) COMP-2. |
|
name REAL |
REAL name |
name COMP-4. |
|
name REAL(n) |
INTEGER name: REAL(n) |
name PIC 9(n) COMP. |
|
name REAL(Sn) |
INTEGER name: REAL(Sn) |
name PIC S9(n) COMP. |
|
name REAL(n,m) |
REAL name:REAL(n,m) |
name PIC 9(n-m)V9(m) COMP. |
|
name REAL(Sn,m) |
REAL name: REAL(Sn,m) |
name PIC S9(n‑m)V9(m) COMP. |
|
name BOOLEAN |
BOOLEAN name |
name BOOLEAN. |
|
name FIELD |
REAL name: FIELD(n,m) |
name FIELD SIZE IS n BITS. |
|
name FIELD(name BOOLEAN; name) |
REAL name: FIELD(n) BOOLEAN name BOOLEAN name |
name FIELD SIZE IS n BITS. name BOOLEAN. name BOOLEAN. |
|
name GROUP(name ALPHA(n); name REAL) |
STRING name: GROUP(length)~STRING name: ALPHA(n) REAL name |
name. name PIC X(n) DISPLAY. name COMP-4. |
|
name REAL OCCURS ~n TIMES |
REAL name[1:m] |
name COMP-4 OCCURS n. |
|
FILLER SIZE n |
Not applicable |
Not applicable |
