* ship.inv 08/21/83
* inventory shipping report
GOTO TOP
STORE 0 TO pageno
STORE 0 TO col2
STORE 0 TO col4
STORE 0 TO col5
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 ORDERS ========================'
? ' '
? '           ' + date() + '                       PAGE: ' + str(pageno,3)
? ' '
? 'VOLUME   INVENTORY ADJUSTED       NEW       NEW ORDERS       NEW ORDERS'
? 'NUMBER     FOR OLD ORDERS       ORDERS        SHIPPED        BACKORDERED'
? ' '
DO WHILE lineno <55
IF .NOT. EOF
STORE open:inv+ship-back:ord-wait:ship+recvd TO col2
STORE ship + COL4 TO COL4
STORE backship + COL5 TO COL5
? ' '+ STR(disk,3,0) + '             ' + str(col2,3,0);
+ '            ' + STR(ship + backship,3,0) + '            ';
+ STR(ship,3,0) + '            ' + STR(backship,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 VOLUMES ORDERED WAS  " + STR(COL4 + COL5,3,0)
? "      TOTAL NUMBER OF VOLUMES SHIPPED WAS  " + STR(COL4,3,0)
? "  TOTAL NUMBER OF VOLUMES BACKORDERED WAS  " + STR(COL5,3,0)
EJECT
SET PRINT OFF
RELEASE ALL
STORE t TO more