Data Types in Managed COBOL
*> Value types
condition-value
binary-char (unsigned)
character
binary-short (unsigned)
binary-long (unsigned)
binary-double (unsigned)
float-short
float-long
decimal
DateTime (not a built-in COBOL type)
*> Reference types
object
string
*> Initializing. Two methods shown.
*> Method 1, in working storage
01 isTrue condition-value value true.
01 hex binary-char unsigned value h"2a". *> Hex
01 octal binary-char unsigned value o"52". *> Octal
01 person object value null.
01 aName string value "Dwight".
01 grade character value "B".
01 today type DateTime value
type DateTime::Parse("12/3/2007 12:15:00)
01 amount decimal value 35.99.
01 gpa float-short value 2.9.
01 pi float-long value 3.14159265.
01 lTotal binary-double value 123456.
01 sTotal binary-short value 123.
01 usTotal binary-short unsigned value 123.
01 uiTotal binary-long value 123.
01 ulTotal binary-long unsigned value 123.
*> Method 2, local declaration
declare isTrue condition-value value true.
declare hex binary-char unsigned value h"2a". *> Hex
declare octal binary-char unsigned value o"52". *> Octal
declare person object value null.
declare aName string value "Dwight".
declare grade character value "B".
declare today type DateTime value
type DateTime::Parse("12/3/2007 12:15:00)
declare amount decimal value 35.99.
declare gpa float-short value 2.9.
declare pi float-long value 3.14159265.
declare lTotal binary-double value 123456.
declare sTotal binary-short value 123.
declare usTotal binary-short unsigned value 123.
declare uiTotal binary-long value 123.
declare ulTotal binary-long unsigned value 123.
*> Type information
01 x binary-long.
display x::GetType *> Prints System.Int32
display type of binary-long *> Prints System.Int32
display x::GetType::Name *> Prints Int32
*> Type conversion
01 d float-short value 3.5. *> automatic conversion
set i to d as binary-long *> set to 3 (truncates decimal)
*> COBOL types not supported in C# or Java
*> Only a few examples here
01 displayNumber pic 9(9).99.
01 computeNumber pic 9(9)V99.
01 alphaNumberic pic a(23).
01 binaryStorage pic x(12).
*> Also groups and redefines - a few examples
01 arecord.
03 aSubRecord pic x(10).
03 aUnion pic 9(10) redefines aSubrecord.
Data Types in C#
// Value Types
bool
byte, sbyte
char
short, ushort
int, uint
long, ulong
float, double
decimal
DateTime // (not a built-in C# type)
// Reference Types
object
string
// Initializing
bool isTrue = true;
byte hex = 0x2A; // hex
object person = null;
string aName = "Dwight";
char grade = 'B';
DateTime today = DateTime.Parse("12/31/2007 12:15:00");
decimal amount = 35.99m;
float gpa = 2.9f;
double pi = 3.14159265;
long lTotal = 123456L;
short sTotal = 123;
ushort usTotal = 123;
uint uiTotal = 123;
ulong ulTotal = 123;
// Type Information
int x;
Console.WriteLine(x.GetType()); // Prints System.Int32
Console.WriteLine(typeof(int)); // Prints System.Int32
Console.WriteLine(x.GetType().Name); // prints Int32
// Type Conversion
float d = 3.5f;
int i = (int)d; // set to 3 (truncates decimal)