home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / biteit.zip / SYSCMB2.RPG < prev    next >
Text File  |  1993-01-20  |  4KB  |  131 lines
  1. 00010FWKSTN   CD  F     91           WORKSTN
  2. 00020FDVPARM  O   V     80           DISK
  3. 00030FCMB2    O   V     80           DISK
  4. 00040E              MSG      1  10 40
  5. 00050E              OPT      2   2  2 0
  6. 00060IWKSTN   AA       1 C1
  7. 00070I*  Format -  COPY
  8. 00080I                          1   1 RCIDSC
  9. 00090I                          2   9 FFNMSC
  10. 00100I                         10  12 FXNMSC
  11. 00110I                         13  210SFTXSC
  12. 00120I                         22  300EFTXSC
  13. 00130I                         31  38 TFNMSC
  14. 00140I                         39  41 TXNMSC
  15. 00150I                         42  500CATXSC
  16. 00160I                         51  520OPTNSC
  17. 00170C         START       IFLT '1'
  18. 00180C               MOVE 01      OPTNSC
  19. 00190C               MOVE '1'      START   1
  20. 00200C               END
  21. 00210C         OPTNSC    DOUEQ99
  22. 00220C               EXCPTCOPY
  23. 00230C               READ WKSTN
  24. 00240C               MOVE *BLANKS   OMSGSC 40
  25. 00250C         OPTNSC    IFEQ 99
  26. 00260C               EXCPTBATF1
  27. 00270C               SETON             LR
  28. 00280C               END
  29. 00290C         OPTNSC    IFEQ 01
  30. 00300C               EXSR EDITS
  31. 00310C         IN98       IFEQ ' '
  32. 00320C               EXCPTPARMS
  33. 00330C               EXCPTBATF2
  34. 00340C               MOVE 99      OPTNSC
  35. 00350C               SETON             LR
  36. 00360C               END
  37. 00370C               END
  38. 00380C         OPTNSC    LOKUPOPT             50
  39. 00390C    N50           SETON             27
  40. 00400C    N50           MOVELMSG,1      OMSGSC
  41. 00410C               END
  42. 00420CSR     EDITS       BEGSR
  43. 00430CSR           SETOF             202122
  44. 00440CSR           SETOF             232425
  45. 00450CSR           SETOF             26
  46. 00460CSR           MOVE ' '      IN98      1
  47. 00470C*R     CATXSC    IFEQ 0
  48. 00480C*R           SETON             26
  49. 00490C*R           MOVELMSG,8      OMSGSC
  50. 00500C*R           MOVE '1'      IN98
  51. 00510C*R           END
  52. 00520CSR     TXNMSC    IFEQ ' '
  53. 00530CSR           SETON             25
  54. 00540CSR           MOVELMSG,7      OMSGSC
  55. 00550CSR           MOVE '1'      IN98
  56. 00560CSR           END
  57. 00570CSR     TXNMSC    IFEQ ' '
  58. 00580CSR           END
  59. 00590CSR     TFNMSC    IFEQ ' '
  60. 00600CSR           SETON             24
  61. 00610CSR           MOVELMSG,6      OMSGSC
  62. 00620CSR           MOVE '1'      IN98
  63. 00630CSR           END
  64. 00640CSR     EFTXSC    IFEQ 0
  65. 00650CSR           SETON             23
  66. 00660CSR           MOVELMSG,5      OMSGSC
  67. 00670CSR           MOVE '1'      IN98
  68. 00680CSR           END
  69. 00690CSR     SFTXSC    IFEQ 0
  70. 00700CSR           SETON             22
  71. 00710CSR           MOVELMSG,4      OMSGSC
  72. 00720CSR           MOVE '1'      IN98
  73. 00730CSR           END
  74. 00740CSR     FXNMSC    IFEQ ' '
  75. 00750CSR           SETON             21
  76. 00760CSR           MOVELMSG,3      OMSGSC
  77. 00770CSR           MOVE '1'      IN98
  78. 00780CSR           END
  79. 00790CSR     FFNMSC    IFEQ ' '
  80. 00800CSR           SETON             20
  81. 00810CSR           MOVELMSG,2      OMSGSC
  82. 00820CSR           MOVE '1'      IN98
  83. 00830CSR           END
  84. 00840CSR           ENDSR
  85. 00850OWKSTN   E            COPY
  86. 00860O                     K8 'COPY    '
  87. 00870O                   FFNMSC      8
  88. 00880O                   FXNMSC     11
  89. 00890O                   SFTXSCZ     20
  90. 00900O                   EFTXSCZ     29
  91. 00910O                   TFNMSC     37
  92. 00920O                   TXNMSC     40
  93. 00930O                   CATXSCZ     49
  94. 00940O                   OPTNSC     51
  95. 00950O                   OMSGSC     91
  96. 00960ODVPARM  E            PARMS
  97. 00970O                   FFNMSC      8
  98. 00980O                   FXNMSC     11
  99. 00990O                   SFTXSC     20
  100. 01000O                   EFTXSC     29
  101. 01010O                   TFNMSC     37
  102. 01020O                   TXNMSC     40
  103. 01030O                   CATXSC     49
  104. 01040O                     50 '1'
  105. 01050OCMB2    E            BATF1
  106. 01060O                      3 'CLS'
  107. 01070O          E            BATF2
  108. 01080O                      8 'ECHO OFF'
  109. 01090O          E            BATF2
  110. 01100O                     15 'SYSCB2 INFILE1='
  111. 01110O                   FFNMSC     23
  112. 01120O                     24 '.'
  113. 01130O                   FXNMSC     27
  114. 01140O                     36 ',INFILE2='
  115. 01150O                   TFNMSC     44
  116. 01160O                     45 '.'
  117. 01170O                   TXNMSC     48
  118. ** MSG
  119. INVALID OPTION
  120. FROM FILENAME CANNOT BE BLANK
  121. FROM EXTENSION CANNOT BE BLANK
  122. STARTING TEXT STRING CANNOT BE BLANK
  123. ENDING TEXT STRING CANNOT BE BLANK
  124. TO FILENAME CANNOT BE BLANK
  125. TO EXTENSION CANNOT BE BLANK
  126. COPY AFTER TEXT STRING CANNOT BE BLANK
  127. 01310ID OPTION
  128. 01320ID OPTION
  129. ** OPT
  130. 0199
  131.