COBOL source code compatible with 'Micro Focus COBOL' ported from the web
| Description | Original Source | Directory | Minimum Micro Focus Version |
|---|---|---|---|
| Eliza in Micro Focus COBOL | eliza.cbl | eliza | 9.0 |
| Prime Machine | prime_machiine.cob | prime_machine | - |
| raylib_painter | CobolDraw.cob | raylib_painter | - |
| cobsha3 | cobsha3 | cobsha3 | - |
| star trek | ctrek.com | star_trek | - |
| cobdes | cobdes | cobdes |
Changes made:
- Removed used of non-portable "FUNCTION SUBSTITUTE"
- Change either to "INSPECT REPLACING" if src/target are same length or custom section
Changes made:
- USAGE is reserved word and cannot be used a symbolic constant
- remove >>elif, as it is not portable and use >>evaluate
- replace non-portable copybook reference and use local 78' items
Changes made;
- 'values' on redefines is non-portable
- literal's passed to 'C' need to be zero terminated, so use z"..."
- convert "returning omitted" to CALL no-return-code
- add .h and used h2py to weed-out any parameter call'ing issues
- fix memory leak in 'C' code
Changes made:
- binary-int is not portable changed to binary-long
- use of "" within quotes is not portable
- replace FUNCTION STORED-CHAR-LENGTH with portable code
- program-id's with "-" in the name are non-portable, so change them
- create a shared library
TODO:
- Convert TES* source to a proper unit test