home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / biteit.zip / SYSDIV2.RPG < prev    next >
Text File  |  1993-01-29  |  4KB  |  163 lines
  1. 00010FWKSTN   CD  F     91           WORKSTN
  2. 00020FDVPARM  O   V     80           DISK
  3. 00030FDIV2    O   V     80           DISK
  4. 00030FDIV3    O   V     80           DISK
  5. 00040E              MSG      1  10 40
  6. 00050E              OPT      2   2  2 0
  7. 00060E              TYP      4   4  1 0
  8. 00070IWKSTN   AA       1 C1
  9. 00080I*  Format -  COPY
  10. 00090I                          1   1 RCIDSC
  11. 00100I                          2  13 FFNMSC
  12. 00110I*                       2   9 FFNMSC
  13. 00120I*                      10  12 FXNMSC
  14. 00130I                         14  38 PATHSC
  15. 00140I                         38  38 SLSHSC
  16. 00150I                         39  390TYPESC
  17. 00160I                         40  410OPTNSC
  18. 00170C         START       IFLT '1'
  19. 00180C               MOVE 01      OPTNSC
  20. 00190C               MOVE '1'      START   1
  21. 00200C               END
  22. 00210C         OPTNSC    DOUEQ99
  23. 00220C               EXCPTCOPY
  24. 00230C               READ WKSTN
  25. 00240C               MOVE *BLANKS   OMSGSC 40
  26. 00250C         OPTNSC    IFEQ 99
  27. 00260C               EXCPTBATF1
  28. 00270C               SETON             LR
  29. 00280C               END
  30. 00290C         OPTNSC    IFEQ 01
  31. 00300C               EXSR EDITS
  32.      C               MOVELPATHSC      NFLDS  37
  33.      C               MOVELFFNMSC      NFLDS
  34. 00310C         TYPESC    IFEQ 1
  35. 00320C               SETON             90
  36. 00330C               ELSE
  37. 00340C         TYPESC    IFEQ 2
  38. 00350C               SETON             91
  39. 00360C               ELSE
  40. 00370C         TYPESC    IFEQ 3
  41. 00380C               SETON             92
  42. 00390C               ELSE
  43. 00400C         TYPESC    IFEQ 4
  44. 00410C               SETON             93
  45. 00420C               END
  46. 00430C               END
  47. 00440C               END
  48. 00450C               END
  49. 00460C         IN98       IFEQ ' '
  50. 00470C               EXCPTPARMS
  51. 00480C     90           EXCPTBATF2
  52. 00490C     91           EXCPTBATF4
  53. 00500C     92           EXCPTBATF3
  54. 00510C     93           EXCPTBATF5
  55. 00520C               MOVE 99      OPTNSC
  56. 00530C               SETON             LR
  57. 00540C               END
  58. 00550C               END
  59. 00560C         OPTNSC    LOKUPOPT             50
  60. 00570C    N50           SETON             27
  61. 00580C    N50           MOVELMSG,1      OMSGSC
  62. 00590C               END
  63. 00600CSR     EDITS       BEGSR
  64. 00610CSR           SETOF             202122
  65. 00620CSR           SETOF             232425
  66. 00630CSR           SETOF             267790
  67. 00640CSR           SETOF             319066
  68. 00650CSR           SETOF             919293
  69. 00660CSR           MOVE ' '      IN98      1
  70. 00670CSR     TYPESC    LOKUPTYP             51
  71. 00680CSRN51           SETON             77
  72. 00690CSRN51           MOVELMSG,6      OMSGSC
  73. 00700CSRN51           MOVE '1'      IN98
  74. 00710C         SLSHSC    IFNE '\'
  75. 00720C               SETON             66
  76. 00730C               END
  77. 00740CSR     PATHSC    IFEQ ' '
  78. 00750CSR           SETON             31
  79. 00760CSR           MOVELMSG,4      OMSGSC
  80. 00770CSR           MOVE '1'      IN98
  81. 00780CSR           END
  82. 00790C*R     FXNMSC    IFEQ ' '
  83. 00800C*R           SETON             21
  84. 00810C*R           MOVELMSG,3      OMSGSC
  85. 00820C*R           MOVE '1'      IN98
  86. 00830C*R           END
  87. 00840CSR     FFNMSC    IFEQ ' '
  88. 00850CSR           SETON             20
  89. 00860CSR           MOVELMSG,2      OMSGSC
  90. 00870CSR           MOVE '1'      IN98
  91. 00880CSR           END
  92. 00890CSR           ENDSR
  93. 00900OWKSTN   E            COPY
  94. 00910O                     K8 'COPY    '
  95. 00920O                   FFNMSC     12
  96. 00930O*                FXNMSC     11
  97. 00940O                   PATHSC     37
  98. 00950O                   TYPESC     38
  99. 00960O                   OPTNSC     40
  100. 00970O                   OMSGSC     80
  101. 00980ODVPARM  E            PARMS
  102. 00990O                   FFNMSC     12
  103. 01000O*                FXNMSC     11
  104. 01010O                   PATHSC     37
  105. 01020O                   TYPESC     38
  106. 01030O                     50 '1'
  107. 01040ODIV2    E            BATF1
  108. 01050O                      3 'CLS'
  109. 01060ODIV2    E            BATF2
  110. 01070O                      8 'ECHO OFF'
  111. 01080O          E            BATF2
  112. 01090O                     15 'SYSDV3 INFILE1='
  113. 01100O                   FFNMSC     23
  114. 01110O                     24 '.'
  115. 01120O*                FXNMSC     27
  116. 01130O*IV3    E            BATF3
  117. 01140O*                   8 'ECHO OFF'
  118. 01150ODIV3    E            BATF3
  119. 01160O                      5 'DIR3 '
  120. 01170O                   NFLDS     42
  121. 01170O*                PATHSC     30
  122. 01170O*                FFNMSC     47
  123. 01130ODIV2    E            BATF3
  124. 01200O                      5 'DIR3 '
  125. 01230O*                FXNMSC     17
  126. 01240O                     15 'SYSDV2 INFILE1='
  127. 01250O                   PATHSC     40
  128. 01250O                   FFNMSC     57
  129. 01280ODIV2    E            BATF4
  130. 01290O                      8 'ECHO OFF'
  131. 01300O          E            BATF4
  132. 01310O                     15 'SYSDV2 INFILE1='
  133. 01320O                   PATHSC     40
  134. 01330O               66         41 '\'
  135. 01340O               66      FFNMSC     53
  136. 01350O*            66         50 '.'
  137. 01360O*            66      FXNMSC     53
  138. 01370O              N66      FFNMSC     52
  139. 01380O*           N66         49 '.'
  140. 01390O*           N66      FXNMSC     52
  141. 01400ODIV2    E            BATF5
  142. 01410O                      8 'ECHO OFF'
  143. 01420O          E            BATF5
  144. 01430O                     15 'SYSDV5 INFILE1='
  145. 01440O                   FFNMSC     23
  146. 01450O                     24 '.'
  147. 01460O*                FXNMSC     27
  148. ** MSG
  149. INVALID OPTION
  150. FROM FILENAME CANNOT BE BLANK
  151. FROM EXTENSION CANNOT BE BLANK
  152. MUST ENTER PATH WHERE FILE IS LOCATED
  153. ENDING TEXT STRING CANNOT BE BLANK
  154. INVALID FLOPPY DRIVE TYPE SELECTED
  155. TO EXTENSION CANNOT BE BLANK
  156. COPY AFTER TEXT STRING CANNOT BE BLANK
  157. 01310ID OPTION
  158. 01320ID OPTION
  159. ** OPT
  160. 0199
  161. ** OPT
  162. 1234
  163.