Skip to content

Commit

Permalink
Added size benchmarks for COBOL
Browse files Browse the repository at this point in the history
  • Loading branch information
@holgerknoche
holgerknoche committed Apr 29, 2024
1 parent 510c4a2 commit 1ac3024
Show file tree
Hide file tree
Showing 15 changed files with 20,784 additions and 28 deletions.
8,471 changes: 8,468 additions & 3 deletions gutta-apievolution-cobol/APICONV.cbl
View file

Large diffs are not rendered by default.

7 changes: 7 additions & 0 deletions gutta-apievolution-cobol/STRCT000.cpy
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,7 @@
* Test structure with 0 elements
05 '*-'TEST-STRUCT-0.
10 '*-'TEST-STRUCT-0-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.

127 changes: 127 additions & 0 deletions gutta-apievolution-cobol/STRCT010.cpy
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,127 @@
* Test structure with 10 elements
05 '*-'TEST-STRUCT-10.
10 '*-'TEST-STRUCT-10-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.

10 '*-'INT-FIELD-1-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'INT-FIELD-1 PIC S9(9) BINARY.

10 '*-'INT-FIELD-2-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'INT-FIELD-2 PIC S9(9) BINARY.

10 '*-'INT-FIELD-3-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'INT-FIELD-3 PIC S9(9) BINARY.

10 '*-'INT-FIELD-4-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'INT-FIELD-4 PIC S9(9) BINARY.

10 '*-'INT-FIELD-5-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'INT-FIELD-5 PIC S9(9) BINARY.

10 '*-'INT-FIELD-6-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'INT-FIELD-6 PIC S9(9) BINARY.

10 '*-'INT-FIELD-7-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'INT-FIELD-7 PIC S9(9) BINARY.

10 '*-'INT-FIELD-8-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'INT-FIELD-8 PIC S9(9) BINARY.

10 '*-'INT-FIELD-9-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'INT-FIELD-9 PIC S9(9) BINARY.

10 '*-'INT-FIELD-10-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'INT-FIELD-10 PIC S9(9) BINARY.

10 '*-'STRING-FIELD-1-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'STRING-FIELD-1 PIC X(10).

10 '*-'STRING-FIELD-2-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'STRING-FIELD-2 PIC X(10).

10 '*-'STRING-FIELD-3-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'STRING-FIELD-3 PIC X(10).

10 '*-'STRING-FIELD-4-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'STRING-FIELD-4 PIC X(10).

10 '*-'STRING-FIELD-5-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'STRING-FIELD-5 PIC X(10).

10 '*-'STRING-FIELD-6-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'STRING-FIELD-6 PIC X(10).

10 '*-'STRING-FIELD-7-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'STRING-FIELD-7 PIC X(10).

10 '*-'STRING-FIELD-8-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'STRING-FIELD-8 PIC X(10).

10 '*-'STRING-FIELD-9-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'STRING-FIELD-9 PIC X(10).

10 '*-'STRING-FIELD-10-FLAGS PIC 9 BINARY.
88 VALUE-ABSENT VALUE 0.
88 VALUE-PRESENT VALUE 1.
88 VALUE-UNREPRESENTABLE VALUE 2.
10 '*-'STRING-FIELD-10 PIC X(10).

Loading

0 comments on commit 1ac3024

Please sign in to comment.