home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol129 / db2sig / m.lbr / INVENT.INV < prev    next >
Encoding:
Text File  |  1985-02-10  |  2.0 KB  |  62 lines
  1. * invent.inv 08/18/83
  2. SET CONSOLE OFF
  3. ? CHR(28)
  4. SET CONSOLE ON
  5. GOTO TOP
  6. STORE 0 TO pageno
  7. STORE 0 TO col1
  8. STORE 0 TO col2
  9. STore 0 TO col3
  10. STORE 0 TO COL4
  11. STORE 0 TO COL5
  12. STORE 0 TO COL6
  13. STORE 0 TO COL7
  14. STORE 0 TO COL8
  15. STORE 0 TO COL9
  16. STORE T to MORE
  17. SET MARGIN TO 5
  18. DO WHILE more
  19.     STORE pageno + 1 TO pageno
  20.     STORE 7 TO lineno
  21.     ERASE
  22.     EJECT
  23.     ? ' '
  24.     ? '========================= SIG/M DISK INVENTORY ====================='
  25.     ? ' '
  26.     ? '           ' + date() + '                       PAGE: ' + str(pageno,3)
  27.     ? ' '
  28.     ? 'VOL  OPEN    BACK  WAITING  STOCK  CLOSING NORMAL SHOULD ACTUAL CLOSING'
  29.     ? 'NO. INVENT  ORDERS TO SHIP  RECVD  INVENT. STOCK  ORDER  ORDER  BALANCE'
  30.     ? ' '
  31.     DO WHILE lineno <55
  32.         IF .NOT. EOF
  33.             STORE open:inv-back:ord-wait:ship+recvd TO it
  34.             STORE COL1 + OPEN:INV TO COL1
  35.             STORE COL2 + BACK:ORD TO COL2
  36.             STORE COL3 + WAIT:SHIP TO COL3
  37.             STORE COL4 + RECVD TO COL4
  38.             STORE COL5 + IT TO COL5
  39.             STORE COL6 + NORM:STK TO COL6
  40.             STORE COL7 + ORDER TO COL7
  41.             STORE COL8 + PEND TO COL8
  42.             STORE COL9 + IT + PEND TO COL9
  43.             ? STR(disk,3,0) + '  ' + str(open:inv,3,0) + '    ' + STR(back:ord,3,0) +;
  44.             '     ' + STR(wait:ship,3,0) + '     ' + STR(recvd,3,0) + '     ' + STR(it,3,0)+'    ';
  45.             + STR(norm:stk,3,0) + '    ' + STR(order,3,0)+ '     '+str(pend,3,0)+'     ' +str(it+pend,3,0)
  46.         ELSE
  47.             STORE f TO more
  48.         ENDIF not .EOF.
  49.         STORE lineno + 1 to lineno
  50.         skip
  51.     ENDDO while lineno > 55
  52. ENDDO more
  53. ? '----------------------------------------------------------------------'
  54. ? '    ' + STR(COL1,4,0)+'   ' + STR(COL2,4,0) + '    ' +  STR(COL3,4,0) + '    '+STR(COL4,4,0)+'    '+STR(COL5,4,0)+'   ' +STR(COL6,4,0)+'   '+STR(COL7,4,0)+'    '+STR(COL8,4,0)+'    '+STR(COL9,4,0)
  55. EJECT
  56. SET CONSOLE OFF
  57. ? CHR(30)
  58. SET PRINT OFF
  59. SET CONSOLE ON
  60. RELEASE ALL
  61. STORE t TO more
  62.