zCOBOL
Portable Mainframe COBOL
Demo, Regression Test, and EXEC CICS COBOL Programs
zcobol Demo Programs in zcobol\demo
| HELLO | Display "Hello World" and STOP RUN |
| DATETIME | ACCEPT current date and time and display month, day of week, and year |
| COPYFILE | Read line sequential ASCII file and copy it to an output line sequential file |
| POWERS | Calculate and display powers of 2 up to 2**31 |
zcobol Regression Tests in zcobol\test
| TESTASM4.MLC | Assembler module statically linked with TESTCAL3.CBL |
| TESTCAL1 | CALL TESTCAL2 statically linked |
| TESTCAL2 | CALL TESTCAL3 dynamically |
| TESTCAL3 | Dynamically loaded zcobol module which calls statically linked TESTASM4 assembler routine |
| TESTCMP1 | ADD, SUBTRACT, MULTIPLY, and DIVIDE all formats |
| TESTCPY1 | COPY |
| TESTCPY2 | nested COPY |
| TESTDSP1 | DISPLAY all formats |
| TESTFUN1 | ACCEPT, TRANSFORM, NUMERIC, etc. |
| TESTGO1 | GO TO DEPENDING ON |
| TESTIF1 | Compound IF requiring use of intermediate T/F flags |
| TESTISP1 | INSPECT TALLYING, REPLACING, TRANSFORMING |
| TESTMOV1 | MOVE all formats |
| TESTPM1 | PERFORM VARYING and PERFORM TIMES |
| TESTSIX1 | Multiple subscripts |
| TESTTRC1 | TRUNC |
| TESTTRC2 | NOTRUNC with ONSIZE |
| TESTTRC3 | TRUNC and NOR64 to test use of DXR versus DSG |
| TESTWS1 | Working storage REDEFINE and OCCURS with padding |