Anonymous user
Stack: Difference between revisions
Fixed push to accommodate variable-size strings
(Finished a comprehensive refactoring of the COBOL example code like a boss) |
(Fixed push to accommodate variable-size strings) |
||
Line 632:
LINKAGE SECTION.
COPY stack.
01 node-info PICTURE X
PROCEDURE DIVISION USING stack node-info.
ALLOCATE node
Line 885:
CALL "push" USING
BY REFERENCE stack
BY CONTENT "daleth
END-CALL
CALL "push" USING
BY REFERENCE stack
BY CONTENT "gimel
END-CALL
CALL "push" USING
BY REFERENCE stack
BY CONTENT "beth
END-CALL
CALL "push" USING
BY REFERENCE stack
BY CONTENT "aleph
END-CALL
CALL "traverse-stack" USING
| |||