Skip to content

Instantly share code, notes, and snippets.

@markcmarino

markcmarino/FLOWMATIC

Created February 18, 2020 18:14
Show Gist options
  • Save markcmarino/804481fe6263b404dee67f0a1a4ffd40 to your computer and use it in GitHub Desktop.
Save markcmarino/804481fe6263b404dee67f0a1a4ffd40 to your computer and use it in GitHub Desktop.
Download ZIP
FLOWMATIC
Raw
FLOWMATIC
0. INPUT INVENTORY FILE-A PRICE FILE-B ; OUTPUT PRICED-INV FILE-C UNPRICED-INV FILE-D ; HSP D .
1. COMPARE PRODUCT-NO (A) WITH PRODUCT-NO (B) ; IF GREATER GO TO OPERATION 10 ; IF EQUAL GO TO OPERATION 5 ; OTHERWISE GO TO OPERATION 2
2. TRANSFER A TO D .
3. WRITE-ITEM D .
4. JUMP TO OPERATION 8 .
5. TRANSFER A TO C .
6. MOVE UNIT-PRICE (B) TO UNIT-PRICE (C) .
7. WRITE-ITEM C .
8. READ-ITEM A ; IF END OF DATA GO TO OPERATION 14 .
9. JUMP TO OPERATION 1 .
10. READ ITEM B ; IF END OF DATA GO TO OPERATION 12 .
11. JUMP TO OPERATION 1 .
12. SET OPERATION 9 TO GO TO OPERATION 2 .
13. JUMP TO OPERATION 2 .
14. TEST PRODUCT-NO (B) AGAINST ZZZZZZZZZZZZ ; IF EQUAL GO TO OPERATION 16 ; OTHERWISE GO TO OPERATION 15 .
15. REWIND B .
16. CLOSE-OUT FILES C ; D .
17. STOP . (END)


Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment