home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / EDITOR / SFGR.ARK / WSFPM1.RPG < prev    next >
Text File  |  1986-10-02  |  4KB  |  91 lines
  1. 0001 H     036                                                            WSFPM1
  2. 0002 FWORKSTN CD       1024            WORKSTN
  3. 0003 F                                              KSLN   VLINE
  4. 0004 FPMST    ID  F6400  64L22AI     1 DISK
  5. 0005 FITEM    IC  F 200 200R11AI     1 DISK
  6. 0006 IWORKSTN NS  01   1 C1
  7. 0007 I                                        2   3 STORE#
  8. 0008 I                                        4   9 DISTR#
  9. 0009 I        NS  02   1 C4
  10. 0010 I                                        2   2 WAIT
  11. 0011 I        NS  03
  12. 0012 IPMST    NS
  13. 0013 I                                        1   2 STORE
  14. 0014 I                                        3  11 ITEM
  15. 0015 I                                       21  220LINE
  16. 0016 I                                       25  312COST
  17. 0017 I                                       32  41 DISTRB
  18. 0018 I                                       44  490DDATE
  19. 0019 I                                       51  560QTY
  20. 0020 IITEM    NS
  21. 0021 I                                       15  44 DESC
  22. 0022 I            DS
  23. 0023 I                                        1  11 IKEY
  24. 0024 I                                        1   2 WHSE
  25. 0025 I                                        3  11 ITEM
  26. 0026 I                                       12  21 DNUM
  27. 0027 I                                       12  15 DIS
  28. 0028 I                                       16  21 DISTR#
  29. 0029 C                     MOVE '99'      WHSE    2
  30. 0030 C                     MOVE 'DIS '    DIS
  31. 0031 C           START     TAG
  32. 0032 C                     SETON                     11
  33. 0033 C                     EXCPT
  34. 0034 C                     READ WORKSTN                  90
  35. 0035 C                     SETOF                     11
  36. 0036 C   KG                GOTO END
  37. 0037 C                     MOVE *BLANKS   KEY22  22
  38. 0038 C                     MOVELSTORE#    KEY22
  39. 0039 C           KEY22     SETLLPMST
  40. 0040 C           LOOP1     TAG
  41. 0041 C                     SETOF                     2531
  42. 0042 C                     SETON                     12
  43. 0043 C                     EXCPT
  44. 0044 C                     SETOF                     12
  45. 0045 C                     Z-ADD4         VLINE   20
  46. 0046 C           LOOP2     TAG
  47. 0047 C                     READ PMST                     25 EOF
  48. 0048 C   25                GOTO ENDP                        EQUAL
  49. 0049 C           STORE#    COMP STORE                2525
  50. 0050 C   25                GOTO ENDP
  51. 0051 C           DNUM      COMP DISTRB                   30
  52. 0052 C   30      IKEY      CHAINITEM                 27     NOT FOUND
  53. 0053 C   30                SETON                     13
  54. 0054 C   30                EXCPT
  55. 0055 C   30                SETOF                     13
  56. 0056 C   30                ADD  1         VLINE
  57. 0057 C           VLINE     COMP 24                       31
  58. 0058 C   31                SETON                     14
  59. 0059 C   31                EXCPT
  60. 0060 C   31                READ WORKSTN                  90
  61. 0061 C   31                SETOF                     14
  62. 0062 C   31                GOTO LOOP1
  63. 0063 C                     GOTO LOOP2
  64. 0064 C           ENDP      TAG
  65. 0065 C                     SETON                     1432
  66. 0066 C                     EXCPT
  67. 0067 C                     READ WORKSTN                  90
  68. 0068 C                     SETOF                     1432
  69. 0069 C                     GOTO START
  70. 0070 C           END       TAG
  71. 0071 C                     SETON                     LR
  72. 0072 OWORKSTN E        11
  73. 0073 O                                   K8 'SCREEN1 '
  74. 0074 O        E        12
  75. 0075 O                                   K8 'SCREEN2 '
  76. 0076 O                         STORE#     2
  77. 0077 O                         DISTR#     8
  78. 0078 O        E        13
  79. 0079 O                                   K8 'SCREEN3 '
  80. 0080 O                         ITEM       9
  81. 0081 O                N27      DESC      39
  82. 0082 O                 27                33 '*** NOT IN ITEM FILE ***'
  83. 0083 O                         LINE  Z   41
  84. 0084 O                         QTY   Z   47
  85. 0085 O                         DDATE Y   55
  86. 0086 O                         COST  3   63
  87. 0087 O        E        14
  88. 0088 O                                   K8 'SCREEN4 '
  89. 0089 O                 31                30 'FOR MORE -- PRESS ENTER'
  90. 0090 O                 32                30 'END OF DATA--PRESS ENTER'
  91.        31                30 'FOR