public void MultiLine05()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.DataType.MultiLines05);
IDataParser parser = CreateDataParser(reader, DataTypeParser.HierarchyParser(3));
AssertParsedUsingXml(parser,
new HierarchyModel(new DataTypeModel("DataType", "DSTRCT-CODE PIC X(4)", "[ 1] District Code MANDATORY VALUE\n(DSTRCT-CODE) ERROR\n(6534) ACTIVE\nDB,KEY:0")));
}
public void MultiLine31()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.DataType.MultiLines31);
IDataParser parser = CreateDataParser(reader, DataTypeParser.HierarchyParser(16));
AssertParsedUsingXml(parser,
new HierarchyModel(new DataTypeModel("DataType", "MSF062-DATA-2-062-PB PIC X(24)", "[ 33] Reference data 2")));
}
public void SingleLine13()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.DataType.SingleLine13);
IDataParser parser = CreateDataParser(reader, DataTypeParser.HierarchyParser(7));
AssertParsedUsingXml(parser,
new HierarchyModel(new DataTypeModel("DataType", "MSF061-MSB566-RUN-1A PIC X(4)", "[ 5] MSB566 Run Number NUMERIC RANGE (11)")));
}
public void SingleLine15()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.DataType.SingleLine15);
IDataParser parser = CreateDataParser(reader, DataTypeParser.HierarchyParser(8));
AssertParsedUsingXml(parser,
new HierarchyModel(new DataTypeModel("DataType", "MSF062-REQ-NO-RC PIC X(6)", "[ 38] Requisition number")));
}
public void SingleLine11()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.DataType.SingleLine11);
IDataParser parser = CreateDataParser(reader, DataTypeParser.HierarchyParser(6));
AssertParsedUsingXml(parser,
new HierarchyModel(new DataTypeModel("DataType", "SUBLEDGER-TYPE PIC X(2)", "[ 30] Subledger Account Type OPTIONAL TABLE ('SA')")));
}
public void SingleLine09()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.DataType.SingleLine09);
IDataParser parser = CreateDataParser(reader, DataTypeParser.HierarchyParser(5));
AssertParsedUsingXml(parser,
new HierarchyModel(new DataTypeModel("DataType", "AVAIL-SOH PIC S9(9) COMP-3", "[1851] Available SOH")));
}
public void SingleLine05()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.DataType.SingleLine05);
IDataParser parser = CreateDataParser(reader, DataTypeParser.HierarchyParser(3));
AssertParsedUsingXml(parser,
new HierarchyModel(new DataTypeModel("DataType", "FULL-PERIOD PIC X(6)", "[ 5] Full Period CCYYPP DB,KEY:0")));
}
public static IModelParser CobolHierarchy()
{
return(new HierarchyParser(
new ClassParser(),
PropertyParser.HierarchyParser(2),
DataTypeParser.HierarchyParser(2),
RedefinesParser.HierarchyParser(2),
OccursParser.HierarchyParser(2)));
}
public void SingleLine03()
{
Reader reader = Reader.CreateStringReader(ExampleStrings.DataType.SingleLine03);
IDataParser parser = CreateDataParser(reader, DataTypeParser.HierarchyParser(2));
AssertParsedUsingXml(parser,
new HierarchyModel(
new DataTypeModel("DataType", "TAX-PERIOD-CLOSED PIC X(1)", "[ 27] Tax Period Closed DB")
));
}