Talk:FLOW-MATIC

	This article is within the scope of WikiProject Computing, a collaborative effort to improve the coverage of computers, computing, and information technology on Wikipedia. If you would like to participate, please visit the project page, where you can join the discussion and see a list of open tasks.ComputingWikipedia:WikiProject ComputingTemplate:WikiProject ComputingComputing
Low	This article has been rated as Low-importance on the project's importance scale.
	This article is supported by WikiProject Software (assessed as Low-importance).
	This article is supported by Early computers task force (assessed as Low-importance).

This article is based on material taken from the Free On-line Dictionary of Computing prior to 1 November 2008 and incorporated under the "relicensing" terms of the GFDL, version 1.3 or later.

Untitled

Possibly a link to UNIVAC manuals at [1] would be useful? T-bonham 08:09, 2 September 2007 (UTC)[reply]

BIG FAT note

Looks more like BASIC than COBOL actually. Said: Rursus ☻ 07:55, 24 April 2008 (UTC)[reply]

71.112.94.157 (talk) 04:14, 17 June 2008 (UTC)[reply]

This program does not appear like it would actually work, though it does show lots of interesting constructs

 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) <--- we never READ ITEM A ever
    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.    <--- why go to 8 if A < B, we just want to read A not both

 5) TRANSFER A TO C.   <-- when equal we found a priced product
 6) MOVE UNIT-PRICE(B) TO UNIT-PRICE(C).   <--- copy the price
 7) WRITE ITEM C. <-- write a priced product
 8) READ ITEM B; IF END OF DATA GO TO OPERATION 12.
 9) JUMP TO OPERATION 1.  <--- once modified this will go to step 2, moving things from A to D, with no end of file check on A

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.   <--- note self modifying code
13) JUMP TO OPERATION 2.

14) TEST PRODUCT-NO(B) AGAINST ZZZZZZZZZZZZ;  <--- note this line is not reachable
    IF EQUAL GO TO OPERATION 16;
    OTHERWISE GO TO OPERATION 15.
15) REWIND B.
16) CLOSE-OUT FILES C, D.
17) STOP. (END)

I believe Flow-Matic handled the first input file ('driver' file) automatically; opening it, reading a record on each cycle, closing it at EOF and going to the end-of-job section. That would explain why some logic appears to be missing from this program. T-bonham (talk) 22:03, 27 December 2012 (UTC)[reply]