Table of Contents

DMTMSG Source

References

Source Listing

DMTMSG.ASSEMBLE.txt
  1. MSG TITLE 'DMTMSG (RSCS) VM/370 - RELEASE 6' 00001000
  2. MACRO 00002000
  3. &LABEL MDEF &MNUM,&RCOD,&SCOD,&TEXT 00003000
  4. LCLC &VRCOD,&VSCOD,&NDX 00004000
  5. AIF (T'&MNUM EQ 'O').MERR1 00005000
  6. AIF (T'&TEXT EQ 'O').MERR2 00006000
  7. &VRCOD SETC '0' 00007000
  8. &VSCOD SETC '0' 00008000
  9. AIF (T'&RCOD EQ 'O').RTOK 00009000
  10. &VRCOD SETC '&RCOD' 00010000
  11. .RTOK AIF (T'&SCOD EQ 'O').STOK 00011000
  12. &VSCOD SETC '&SCOD' 00012000
  13. .STOK ANOP 00013000
  14. &NDX SETC '&SYSNDX'(2,3) 00014000
  15. &LABEL DC A(MSG&NDX) 00015000
  16. DC H'&MNUM',AL1(&VRCOD),AL1(&VSCOD),AL1(L'MTXT&NDX) 00016000
  17. MTXT&NDX DC C&TEXT 00017000
  18. MSG&NDX DC 0F'0' 00018000
  19. MEXIT 00019000
  20. .MERR1 MNOTE 16,'MSG NUMBER NOT SPECIFIED' 00020000
  21. MEXIT 00021000
  22. .MERR2 MNOTE 16,'MSG TEXT NOT SPECIFIED' 00022000
  23. MEXIT 00023000
  24. MEND 00024000
  25. EJECT 00025000
  26. *. 00026000
  27. * MODULE NAME - 00027000
  28. * 00028000
  29. * DMTMSG 00029000
  30. * 00030000
  31. * FUNCTION - 00031000
  32. * 00032000
  33. * THIS MODULE CONTAINS NO EXECUTABLE CODE AND CONTAINS 00033000
  34. * ONLY A LIST OF ERROR MSGS TO BE USED EXTERNALLY BY 00034000
  35. * DMTMGX 00035000
  36. * 00036000
  37. * ATTRIBUTES - 00037000
  38. * 00038000
  39. * REUSABLE 00039000
  40. * 00040000
  41. * ENTRY POINTS - 00041000
  42. * 00042000
  43. * 00043000
  44. * DMTMSG - MESSAGE TABLE 00044000
  45. * 00045000
  46. *. 00046000
  47. EJECT 00047000
  48. DMTMSG CSECT 00048000
  49. SPACE 2 00049000
  50. * MESSAGE ROUTING CODE EQUATES 00050000
  51. SPACE 00051000
  52. RSS EQU X'80' RSS OPERATOR CONSOLE 00052000
  53. ORIG EQU X'40' 'ORIGINATING' LINK ID 00053000
  54. VMID EQU X'20' VIRTUAL MACHINE USER ID 00054000
  55. CP EQU X'10' LOCAL CP OPERATOR 00055000
  56. SPACE 2 00056000
  57. PRINT ON,GEN 00057000
  58. SPACE 1 00058000
  59. MDEF 000,RSS+CP,,'I RSCS (REL $, LEV $, $) READY' @VA08219 00059000
  60. MDEF 001,RSS,,'I FREE STORAGE = $ PAGES' 00060000
  61. MDEF 002,RSS,,'I LINK $ DEACTIVATED' 00061000
  62. MDEF 003,RSS,,'I LINK $ EXECUTING: $$$$$$$$$$$$$$$$$$$$$$$$$X00062000
  63. $$$$$$$$$$$$$$$' 00063000
  64. MDEF 070,RSS,,'E I/O ERROR $ SIOCC $ CSW $ $ SENSE $ CCW $ $' 00064000
  65. MDEF 080,RSS,,'E PROGRAM CHECK -- LINK $ DEACTIVATED' 00065000
  66. MDEF 090,RSS+CP,,'T PROGRAM CHECK IN SUPERVISOR -- RSCS SHUTDX00066000
  67. OWN' 00067000
  68. MDEF 091,RSS+CP,,'T INITIALIZATION FAILURE -- RSCS SHUTDOWN' X00068010
  69. * COMMENT CONTINUATION * @VM01115 00068110
  70. MDEF 101,VMID,,'I FILE $ ENQUEUED ON LINK $' 00069000
  71. MDEF 102,VMID,,'I FILE $ PENDING FOR LINK $' 00070000
  72. MDEF 103,VMID,,'E FILE $ REJECTED -- INVALID DESTINATION ADDRX00071000
  73. ESS' 00072000
  74. MDEF 104,RSS+VMID,,'I FILE SPOOLED TO $ -- ORG $ ($) $$$ GMT' 00073100
  75. * *** COMMENT CONTINUATION *** @VA09277 00073200
  76. MDEF 105,RSS,,'I FILE $ PURGED' 00074000
  77. MDEF 106,RSS,,'I FILE $ MISSING -- DEQUEUED FROM LINK $' 00075000
  78. MDEF 107,RSS,,'I $ PENDING FILES FOR LINK $ MISSING' 00076000
  79. MDEF 108,RSS+CP,,'E SYSTEM ERROR READING SPOOL FILE $' 00077000
  80. MDEF 141,RSS,,'I LINE $ READY FOR CONNECTION TO LINK $' 00079000
  81. MDEF 142,RSS,,'I LINK $ LINE $ CONNECTED' 00080000
  82. MDEF 143,RSS,,'I LINK $ LINE $ DISCONNECTED' 00081000
  83. MDEF 144,RSS,,'I RECEIVING: FILE FROM $ $ FOR $ $' 00082000
  84. MDEF 145,RSS,,'I RECEIVED: FILE FROM $ $ FOR $ $' 00083000
  85. MDEF 146,RSS,,'I SENDING: FILE $ ON LINK $, REC $' 00084000
  86. MDEF 147,RSS+VMID,,'I SENT: FILE $ ON LINK $' 00085000
  87. MDEF 148,RSS,,'I ACTIVE FILE $ SENDING RESUMED ON LINK $' 00086000
  88. MDEF 149,RSS,,'I LINK $ LINE ACTIVITY: TOT= $; ERRS= $; TMOUTX00087000
  89. S= $' 00088000
  90. MDEF 160,RSS,,'I LINE $ DISABLED FOR $' 00089000
  91. MDEF 170,VMID,,'I FROM $: $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$X00090000
  92. $$$$$' 00091000
  93. MDEF 190,RSS,,'E INVALID SPOOL BLOCK FORMAT ON FILE $' 00092000
  94. MDEF 200,ORIG,,'I RSCS' 00093000
  95. MDEF 201,ORIG,,'E INVALID COMMAND $' 00094000
  96. MDEF 202,ORIG,,'E INVALID LINK $' 00095000
  97. MDEF 203,ORIG,,'E INVALID SPOOL ID $' 00096000
  98. MDEF 204,ORIG,,'E INVALID KEYWORD $' 00097000
  99. MDEF 205,ORIG,,'E CONFLICTING KEYWORD $' 00098000
  100. MDEF 206,ORIG,,'E INVALID OPTION $ $' 00099000
  101. MDEF 207,ORIG,,'E CONFLICTING OPTION $ $' 00100000
  102. MDEF 208,ORIG,,'E INVALID USER ID $' 00101000
  103. MDEF 300,ORIG,,'I ACCEPTED BY TASK $' 00102000
  104. MDEF 301,ORIG,,'E REJECTED BY TASK $ -- PREVIOUS COMMAND ACTIX00103000
  105. VE' 00104000
  106. MDEF 302,ORIG,,'E LINK $ IS NOT DEFINED' 00105000
  107. MDEF 303,ORIG,,'E LINK $ IS NOT ACTIVE' 00106000
  108. MDEF 304,ORIG,,'E REJECTED BY TASK $ -- NOT RECEIVING' 00107000
  109. MDEF 510,ORIG,,'I FILE $ BACKSPACED' 00108000
  110. MDEF 511,ORIG,,'E NO FILE ACTIVE ON LINK $' 00109000
  111. MDEF 520,RSS+ORIG,,'I FILE $ CHANGED' 00110000
  112. MDEF 521,RSS+ORIG,,'I FILE $ HELD FOR LINK $' 00111000
  113. MDEF 522,RSS+ORIG,,'I FILE $ RELEASED FOR LINK $' 00112000
  114. MDEF 523,RSS+ORIG,,'I LINK $ QUEUE REORDERED' 00113000
  115. MDEF 524,RSS+ORIG,,'E FILE $ ACTIVE -- NO ACTION TAKEN' 00114000
  116. MDEF 525,RSS+ORIG,,'E FILE $ IS FOR LINK $ -- NO ACTION TAKENX00115000
  117. ' 00116000
  118. MDEF 526,RSS+ORIG,,'E FILE $ NOT FOUND -- NO ACTION TAKEN' 00117000
  119. MDEF 530,RSS,,'I COMMAND FORWARDED ON LINK $' 00118000
  120. MDEF 540,RSS,,'I NEW LINK $ DEFINED' 00119000
  121. MDEF 541,RSS,,'I LINK $ REDEFINED' 00120000
  122. MDEF 542,RSS,,'E LINK $ ACTIVE -- NOT REDEFINED' 00121000
  123. MDEF 543,RSS,,'E LINK $ NOT DEFINED -- LINK LIMIT REACHED' 00122000
  124. MDEF 544,RSS,,'E LINK $ NOT DEFINED -- TYPE NOT SPECIFIED' 00123000
  125. MDEF 550,RSS,,'I LINK $ NOW DELETED' 00124000
  126. MDEF 551,RSS,,'E LINK $ ACTIVE -- NOT DELETED' 00125000
  127. MDEF 552,RSS,,'E LINK $ HAS A FILE QUEUE -- NOT DELETED' 00126000
  128. MDEF 560,RSS,,'I RSCS DISCONNECTING' 00127000
  129. MDEF 561,RSS,,'E USERID $ NOT RECEIVING' 00128000
  130. MDEF 570,RSS+ORIG,,'I LINK $ NOW SET TO DEACTIVATE' 00129000
  131. MDEF 571,RSS+ORIG,,'E LINK $ ALREADY SET TO DEACTIVATE' 00130000
  132. MDEF 580,RSS+ORIG,,'I FILE $ PROCESSING TERMINATED' 00131000
  133. MDEF 581,ORIG,,'E FILE $ NOT ACTIVE' 00132000
  134. MDEF 590,RSS+ORIG,,'I LINK $ RESUMING FILE TRANSFER' 00133000
  135. MDEF 591,RSS+ORIG,,'E LINK $ NOT IN HOLD STATUS' 00134000
  136. MDEF 600,ORIG,,'I FILE $ FORWARDED SPACED' 00135000
  137. MDEF 610,RSS+ORIG,,'I LINK $ TO SUSPEND FILE TRANSMISSION' 00137000
  138. MDEF 611,RSS+ORIG,,'I LINK $ FILE TRANSMISSION SUSPENDED' 00138000
  139. MDEF 612,RSS+ORIG,,'E LINK $ ALREADY IN HOLD STATUS' 00139000
  140. MDEF 620,X'00',,'I MESSAGE FORWARDED ON LINK $' 00140000
  141. MDEF 640,RSS+ORIG,,'I $ FILE(S) PURGED ON LINK $' 00141000
  142. MDEF 651,ORIG,,'I LINK $ INACTIVE' 00142000
  143. MDEF 652,ORIG,,'I LINK $ ACTIVE $ $ $ $ $ $ $' 00143000
  144. MDEF 653,ORIG,,'I LINK $ DEFAULT $ $ $ $ R=$' 00144000
  145. MDEF 654,ORIG,,'I LINK $ Q=$ P=$' 00145000
  146. MDEF 655,ORIG,,'I FILE $ $ $ CL $ PR $ REC $ $' 00146000
  147. MDEF 660,ORIG,,'I FILE $ INACTIVE ON LINK $' 00147000
  148. MDEF 661,ORIG,,'I FILE $ ACTIVE ON LINK $' 00148000
  149. MDEF 662,ORIG,,'I FILE $ ORG $ $ $$$ TO $ $' 00149000
  150. MDEF 663,ORIG,,'I FILE $ PR $ CL $ CO $ $ DI $, NA $$$' 00150000
  151. MDEF 664,ORIG,,'E FILE $ NOT FOUND' 00151000
  152. MDEF 670,ORIG,,'I LINK $ ACTIVE -- LINE $ $' 00152000
  153. MDEF 671,ORIG,,'I LINK $ INACTIVE' 00153000
  154. MDEF 672,ORIG,,'I NO LINK ACTIVE' 00154000
  155. MDEF 673,ORIG,,'I NO LINK DEFINED' 00155000
  156. MDEF 700,RSS,,'I ACTIVATING LINK $ $ $ $ $' 00156000
  157. MDEF 701,RSS,,'E NO SWITCHED LINE AVAILABLE -- LINK $ NOT ACTX00157000
  158. IVATED' 00158000
  159. MDEF 702,RSS,,'E LINE $ IS IN USE BY LINK $ -- LINK $ NOT ACTX00159000
  160. IVATED' 00160000
  161. MDEF 703,RSS,,'E DEV $ IS NOT A LINE PORT -- LINK $ NOT ACTIVX00161000
  162. ATED' 00162000
  163. MDEF 704,RSS,,'E LINE $ CC=3 NOT OPERATIONAL -- LINK $ NOT ACX00163000
  164. TIVATED' 00164000
  165. MDEF 705,RSS,,'E DRIVER $ NOT FOUND ON DISK $ -- LINK $ NOT AX00165000
  166. CTIVATED' 00166000
  167. MDEF 706,RSS,,'E FATAL ERROR LOADING FROM $ -- LINK $ NOT ACTX00167000
  168. IVATED' 00168000
  169. MDEF 707,RSS,,'E DRIVER $ FILE FORMAT INVALID -- LINK $ NOT AX00169000
  170. CTIVATED' 00170000
  171. MDEF 708,RSS,,'E VIRTUAL STORAGE CAPACITY EXCEEDED -- LINK $ X00171000
  172. NOT ACTIVATED' 00172000
  173. MDEF 709,RSS,,'E TASK NAME $ ALREADY IN USE -- LINK $ NOT ACTX00173000
  174. IVATED' 00174000
  175. MDEF 710,RSS,,'E MAX ($) ACTIVE -- LINK $ NOT ACTIVATED' 00175000
  176. MDEF 750,RSS+ORIG,,'E LINK $ ALREADY ACTIVE -- NO ACTION TAKEX00176000
  177. N' 00177000
  178. MDEF 751,RSS+ORIG,,'I LINK $ ALREADY ACTIVE -- NEW CLASS(ES) X00178000
  179. SET AS REQUESTED' 00179000
  180. MDEF 752,RSS+ORIG,,'I LINK $ STILL ACTIVE -- DRAIN STATUS RESX00180000
  181. ET' 00181000
  182. MDEF 801,RSS,,'I LINK $ ERROR TRACE STARTED' 00182000
  183. MDEF 802,RSS,,'I LINK $ TRACE STARTED' 00183000
  184. MDEF 803,RSS,,'I LINK $ TRACE ENDED' 00184000
  185. MDEF 810,RSS,,'E LINK $ TRACE ALREADY ACTIVE' 00185000
  186. MDEF 811,RSS,,'E LINK $ TRACE NOT ACTIVE' 00186000
  187. MDEF 901,RSS,,'E INVALID SML MODE SPECIFIED -- LINK $ NOT ACTX00187000
  188. IVATED' 00188000
  189. MDEF 902,RSS+ORIG,, @VA04614X00189300
  190. 'E NON-SIGNON CARD READ ON LINK $' @VA04614 00189700
  191. MDEF 903,RSS+ORIG,,'E PASSWORD SUPPLIED ON LINK $ IS INVALID' 00190100
  192. MDEF 904,ORIG,,'E SIGNON PARAMETER=$ ON LINK $ INVALID' 00191000
  193. MDEF 905,RSS+ORIG,,'I SIGNON OF LINK $ COMPLETE' 00192000
  194. MDEF 906,RSS,,'E INVALID SML BUFFER PARAMETER -- LINK $ NOT A00193000
  195. ACTIVATED' 00194000
  196. MDEF 907,ORIG,,'E SIGNON TYPE PARAMETER MISSING' @VA03420 00195000
  197. MDEF 934,ORIG,,'E ID CARD MISSING ON LINK $ -- INPUT FILE PURX00198000
  198. GED' 00199000
  199. MDEF 935,RSS+VMID,,'E LINK $ IN RJE MODE -- PRINT FILE $ PURGX00200000
  200. ED' 00201000
  201. MDEF 936,RSS+VMID,,'E NO REMOTE PUNCH AVAILABLE ON LINK $ -- X00202000
  202. FILE $ PURGED' 00203000
  203. MDEF 937,RSS+ORIG,, X00203300
  204. 'E DECOMPRESSION ERROR ON LINK $ ' 00203600
  205. MSGEND DC F'0' 00205000
  206. END 00206000