Previous Topic Next topic Print topic


Open PL/I Equivalent Data Types

This table lists compatible data types for determining equivalent argument type correspondence. Some data types (for example, char in C) are used more than once in the table to show the correspondence of equivalent types in more than two languages. The subscripts used in the table have the following meanings:

PL/I COBOL C C++ FORTRAN BASIC PASCAL
Fixed Bin, P <= 7 COMP PIC

S9 (1) – S9 (2)

char char INTEGER*1
Fixed Bin,

8 <= P <= 15

COMP PIC

S 9 (3) – S 9 (4)

short short INTEGER*2 INTEGER (%) Integer
Fixed Bin, P >15 COMP PIC

S 9 (5) – S 9 (9)

int or long int or long INTEGER*4 Integer
char char INTEGER*1 Packed Array[1...5]
Character (n) DISPLAY A(n) or PIC X(n) char [n] char[n] CHARACTER*n
Character (N) Varying DISPLAY PIC X OCCURS num1 to num2

DEPENDING on N

struct

{short s; char c[n];}

struct

{short s; char c[n];}

Char
Character (1) DISPLAY PIC X char char CHARACTER*1
Character (*) char[ ] char[ ]
Fixed Decimal COMP–3 PIC S9 (n)
  DISPLAY PIC S9(n) SIGN TRAILING
DISPLAY PIC S9(n) SIGN LEADING SEPARATE
DISPLAY PIC S9(n) SIGN TRAILING SEPARATE
Bit(1)
Bit(1) Aligned char char Boolean
Bit(N) Aligned COMP–5 PIC

[S] 9 (n), n<5

Set
int or long int or long LOGICAL*4
short short LOGICAL*2
char char LOGICAL*1 /BYTE
Float Bin, p > 23 COMP–2 double double REAL*8 REAL (#) (MBASIC)
Float Bin, p <= 22 COMP–1 float float REAL*4 REAL (1) (MBASIC) Real
struct

{float real, imaginary;}

struct

{float real, imaginary;}

COMPLEX*8
struct

{double real; double imaginary}

#include <complex.h> class complex COMPLEX*16
Pointer Pointer Pointer Pointer
Label alternate return
Entry DISPLAY PIC X(32) Dummy procedure
Float Decimal REAL (CBASIC)
STRING

($)

Area
Offset COMP PIC

S 9 (5) – S 9 (9)

int or long int or long INTEGER*4 integer
Previous Topic Next topic Print topic