home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / COMMUNIC / APPCFXFR.ZIP / APPCFXFR
Encoding:
Text File  |  1989-12-16  |  7.1 KB  |  145 lines
  1. // COPY LIBRARY-P,NAME-FILXFRP
  2. *
  3. *  PROCEDURE FILXFRP - S/36 INTER SYSTEM FILE TRANSFER UTILITY.
  4. *
  5. *  Copyright 1987 Philip J. Buonomo, all rights reserved.
  6. *  This utility may be distributed in original form by anyone, any-
  7. *  where, at any time. If you find this utility useful, a suggested
  8. *  donation of $50 for use in a commercial environment may be sent
  9. *  to P.O. Box 12, Lyndhurst, NJ 07071.
  10. *
  11. // REGION SIZE-4
  12. // IF EVOKED-YES GOTO XFRTAG
  13. // IF JOBQ-YES GOTO XFRTAG
  14. // SWITCH 00000000
  15. // LOCAL BLANK-*ALL
  16. // EVALUATE P1='S' P8='N' P9='SECLOC  ' P10='*NUL' P11,1=0 P13='N'
  17. // TAG START
  18. // PROMPT MEMBER-FILXFRFM,FORMAT-SCREEN1,START-1,+
  19.    LENGTH-'1,8,6,8,8,6,8,1,8,4,1,8,1',UPSI-YES
  20. // LOCAL OFFSET-1,DATA-'?1?'
  21. // LOCAL OFFSET-2,DATA-'?2?'
  22. // LOCAL OFFSET-10,DATA-'?3?'
  23. // LOCAL OFFSET-16,DATA-'?4?'
  24. // LOCAL OFFSET-24,DATA-'?5?'
  25. // LOCAL OFFSET-32,DATA-'?6?'
  26. // LOCAL OFFSET-38,DATA-'?7?'
  27. // LOCAL OFFSET-46,DATA-'?8?'
  28. // LOCAL OFFSET-47,DATA-'?9?'
  29. // LOCAL OFFSET-55,DATA-'?10?'
  30. // LOCAL OFFSET-59,DATA-'?11?'
  31. // LOCAL OFFSET-60,DATA-'?12?'
  32. // LOCAL OFFSET-68,DATA-'?13?'
  33. // IF ?CD?/2007 * 'JOB CANCELLED.'
  34. // IF ?CD?/2007 CANCEL
  35. // IFF ?1?/S IFF ?1?/R GOTO START
  36. // IF ?2?/ GOTO START
  37. // IFF ?CD?/2001 IFF ?CD?/2002 IFF ?CD?/0000 GOTO START
  38. // IF ?CD?/2001 * 'JOB WILL BE EVOKED.'
  39. // IF ?CD?/2001 EVOKE FILXFRP *ALL
  40. // IF ?CD?/2002 JOBQ ,FILXFRP,?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,?10?,+
  41.    ?11?,?12?,?13?
  42. // IF ?CD?/2001 CANCEL
  43. // IF ?CD?/2002 CANCEL
  44. // * 'FILE TRANSFER SUBROUTINE IS RUNNING.'
  45. // TAG XFRTAG
  46. // REGION SIZE-4
  47. // LOAD FILXFR
  48. // RUN
  49. // IF ?L'59,1'?/0 MSG ?USER?,FILE ?2? TRANSFERRED FROM/TO ?9? AS ?5'?2?'?.
  50. // ELSE MSG ?USER?,ERROR IN TRANSMISSION OF FILE ?2?.
  51. // CEND
  52. // COPY LIBRARY-S,NAME-FILXFR
  53. 0001 H     064                      B       1                             FILXFR
  54. 0002 F*  FILXFR - Multi-location file transfer utility for the System/36.
  55. 0003 F*  Copyright 1987 Philip J. Buonomo, all rights reserved.
  56. 0004 F*  This utility may be distributed in original form by anyone, any-
  57. 0005 F*  where, at any time. If you find this utility useful, a suggested
  58. 0006 F*  donation of $50 for use in a commercial environment may be sent
  59. 0007 F*  to P.O. Box 12, Lyndhurst, NJ 07071.
  60. 0008 ILDA        UDS
  61. 0009 I                                        1   1 FCODE
  62. 0010 I                                        2   9 QUAL1
  63. 0011 I                                       10  15 QUAL2
  64. 0012 I                                       16  23 QUAL3
  65. 0013 I                                       24  31 QUAL4
  66. 0014 I                                       32  37 QUAL5
  67. 0015 I                                       38  45 QUAL6
  68. 0016 I                                       46  46 REPL
  69. 0017 I                                       47  54 LOCNAM
  70. 0018 I                                       55  58 PWORD
  71. 0019 I                                       59  59 RCODE
  72. 0020 I                                       60  67 ERRMIC
  73. 0021 I                                       68  68 APPN
  74. 0022 C********************************************************************
  75. 0023 C                     EXIT SUBRF2
  76. 0024 C                     RLABL          FCODE
  77. 0025 C                     RLABL          QUAL1
  78. 0026 C                     RLABL          QUAL2
  79. 0027 C                     RLABL          QUAL3
  80. 0028 C                     RLABL          QUAL4
  81. 0029 C                     RLABL          QUAL5
  82. 0030 C                     RLABL          QUAL6
  83. 0031 C                     RLABL          REPL
  84. 0032 C                     RLABL          LOCNAM
  85. 0033 C                     RLABL          PWORD
  86. 0034 C                     RLABL          RCODE
  87. 0035 C                     RLABL          ERRMIC
  88. 0036 C                     RLABL          APPN
  89. 0037 C                     SETON                     LR
  90. // CEND
  91. // COPY LIBRARY-S,NAME-FILXFRFM
  92. 0001 SSCREEN1
  93. 0002 DSCRNCODE   1 1 4Y                   Y            C1
  94. 0003 D          21 229Y                     Y Y        CFile Transfer Utility
  95. 0004 D           8 269Y                                CFILXFRFM
  96. 0005 D          21 410Y                                CFile Transfer Option:
  97. 0006 DFCODE      1 436Y  YA           Y         Y
  98. 0007 DFA0001    25 448Y                                CMust be S or R (RequireX
  99. 0008 Dd)
  100. 0009 D          17 6 7Y               Y       Y        CData File Options
  101. 0010 D          22 648Y               Y       Y        CLibrary Member Options
  102. 0011 DFA0001     1 8 3Y               Y                C*
  103. 0012 D          20 8 7Y                                CFile Name (Required)
  104. 0013 DFILENAME   8 833Y  Y            Y         Y
  105. 0014 D          33 848Y                                CLibrary Name (Required)
  106. 0015 D           9 9 7Y                                CFile Date
  107. 0016 DDATETYPE   6 934Y  Y            Y         Y
  108. 0017 D          26 948Y                                CMember Type (SOURCE, PRX
  109. 0018 DOC,
  110. 0019 D          201061Y                                CLOAD, SUBR)  (Req'd)
  111. 0020 D          2411 7Y                                C(Leave this field blankX
  112. 0021 D)
  113. 0022 DMEMBNAME   81133Y  Y            Y         Y
  114. 0023 D          331148Y                                CMember Name (Required)
  115. 0024 D          1612 7Y                                CTarget File Name
  116. 0025 DTARGNAME   81233Y  Y                      Y
  117. 0026 D          191248Y                                CTarget Library Name
  118. 0027 D          1613 7Y                                CTarget File Date
  119. 0028 DTARGDATE   61334Y  Y                      Y
  120. 0029 D          241348Y                                C(Leave this field BlankX
  121. 0030 D)
  122. 0031 D          2414 7Y                                C(Leave this field blankX
  123. 0032 D)
  124. 0033 DTMEMNAME   81433Y  Y                      Y
  125. 0034 D          181448Y                                CTarget Member Name
  126. 0035 D          231610Y                                CReplace Exisiting File?
  127. 0036 DREPL       11636Y  Y    B                 Y
  128. 0037 D          201710Y                                CRemote Location Name
  129. 0038 DLOCNAM     81733Y  Y                      Y
  130. 0039 D          211753Y                       Y        CEnter Data and Press:
  131. 0040 D           81810Y                                CPassword
  132. 0041 DPWORD      41835Y  Y                      Y
  133. 0042 DFA0002    181855Y                                CCmd 1 to Evoke Job
  134. 0043 D          111910Y                                CReturn Code
  135. 0044 DRCODE      11936Y  YD   Z                 Y
  136. 0045 DFA0003    171955Y                                CCmd 2 to Jobq Job
  137. 0046 D           92010Y                                CError MIC
  138. 0047 DERRMIC     82033Y  Y                      Y
  139. 0048 DFA0004    162055Y                                CENTER to Run Job
  140. 0049 D           42110Y                                CAPPN
  141. 0050 DAPPN       12136Y  YA                     Y
  142. 0051 DFA0001    152155Y                                CCmd 7 to Cancel
  143. 0052 DFA0002    4123 3Y               Y                C* Note: File or LibraryX
  144. 0053 D cannot be in use.                      Copyright 1987 Philip J. Buonomo
  145. // CEND