* require.inv 08/18/83
* inventory requirements report
GOTO TOP
STORE 0 TO pageno
STORE 0 TO need
STORE T to MORE
SET MARGIN TO 5
DO WHILE more
STORE pageno + 1 TO pageno
STORE 7 TO lineno
ERASE
EJECT
? ' '
? '========================= SIG/M DISK REQUIREMENTS =================='
? ' '
? '           ' + date() + '                       PAGE: ' + str(pageno,3)
? ' '
? 'VOLUME        ADJUSTED         INCLUDED        NORMAL         SHOULD'
? 'NUMBER        INVENTORY       BACKORDERS       STOCK          ORDER'
? ' '
DO WHILE lineno <55
IF .NOT. EOF
STORE norm:stk-(open:inv-back:ord-wait:ship+recvd) TO need1
IF need1 >0
store need1 + need TO need
ELSE
store 0 TO need1
ENDIF
? ' '+ STR(disk,3,0) + '             ';
+ str(open:inv-back:ord-wait:ship+recvd,3,0) + '            ';
+ STR(back:ord,3,0) + '            ' + STR(norm:stk,3,0);
+ '            ' + STR(need1,3,0)
ELSE
STORE f TO more
ENDIF not .EOF.
STORE lineno + 1 to lineno
skip
ENDDO while lineno > 55
ENDDO more
? ' '
? ' '
? '  TOTAL NUMBER OF DISKS REQUIRED IS ' + str(need,3,0)
EJECT
SET PRINT OFF
RELEASE ALL
STORE t TO more