User Tools

Site Tools


ibm:vm370-lib:copy:btucmd.copy_src

BTUCMD Source

References

Source Listing

BTUCMD.COPY.txt
  1. *COPY BTUCMD 00001000
  2. PUSH PRINT 00001200
  3. AIF ('&SYSPARM' NE 'SUP').BTU01 00001400
  4. PRINT OFF,NOGEN 00001600
  5. .BTU01 ANOP 00001800
  6. * 00002000
  7. * EQUATE PACKAGE FOR USE OF THE IBM NETWORK CONTROL PROGRAM 00003000
  8. * FOR THE 3704/5 COMMUNICATIONS CONTROL UNITS 00004000
  9. * 00005000
  10. SPACE 00006000
  11. CONTACT EQU X'0600' CONTACT COMMAND (NO MODIFIERS) 00007000
  12. SPACE 00008000
  13. CNTLBTU EQU X'0800' CONTROL COMMAND WITHOUT MODIFIER 00009000
  14. CDLSTAT EQU X'0801' DISPLAY LINE STATUS 00010000
  15. CRSESII EQU X'0802' REPLACE SESSION INITIATION INFORMATION 00011000
  16. CACTINV EQU X'0803' ACTIVATE INVITES 00012000
  17. CDCTINV EQU X'0804' DEACTIVATE INVITES 00013000
  18. CCSESII EQU X'0805' COPY SESSION INITIATION INFORMATION 00014000
  19. CDDSTAT EQU X'0806' DISPLAY DEVICE STATUS 00015000
  20. CREQDST EQU X'0807' REQUEST DEVICE STATISTICS 00016000
  21. CDISPLY EQU X'0808' DISPLAY STORAGE 00017000
  22. CSETDTM EQU X'0809' SET TIME AND DATE 00018000
  23. CSCMSEC EQU X'080A' SET CHANNEL MODE SECONDARY 00019000
  24. CDALRID EQU X'080B' DISPLAY ASSOCIATED LINE RESOURCE ID'S 00020000
  25. CACTLTR EQU X'080C' ACTIVATE LINE TRACE 00021000
  26. CTRMLTR EQU X'080D' TERMINATE LINE TRACE 00022000
  27. CACTGRP EQU X'0810' ACTIVATE GROUP 00023000
  28. CDCTGRP EQU X'0811' DEACTIVATE GROUP ORDERLY 00024000
  29. CSCMPRM EQU X'0815' SET CHANNEL MODE PRIMARY 00025000
  30. CCDESMD EQU X'0818' COPY DESTINATION MODE 00026000
  31. CCDSESI EQU X'0821' COPY DEVICE SESSION INFORMATION 00027000
  32. CRDSESI EQU X'0822' REPLACE DEVICE SESSION INFORMATION 00028000
  33. CRESERL EQU X'0841' RESET ERROR LOCK 00029000
  34. CRESDQ EQU X'0842' RESET DEVICE QUEUES 00030000
  35. CREQCMR EQU X'0843' REQUEST CONTROL MODE RESET 00031000
  36. CRESIMD EQU X'0844' RESET IMMEDIATE 00032000
  37. CRESOLT EQU X'0848' RESET ONLINE TERMINAL TEST 00033000
  38. CSWBACK EQU X'084A' SWITCH TO BACKUP 00034000
  39. CSWPRIM EQU X'084C' SWITCH FROM BACKUP TO PRIMARY 00035000
  40. CRESCND EQU X'0850' RESET CONDITIONAL 00036000
  41. CRESEOC EQU X'0860' RESET AT END OF COMMAND 00037000
  42. CSWLMEP EQU X'0882' SWITCH PEP LINE MODE TO EP 00038000
  43. CSWLNCP EQU X'0883' SWITCH PEP LINE MODE TO NCP 00039000
  44. CCHLSSP EQU X'0884' CHANGE LINE SERVICE SEEKING PAUSE 00040000
  45. CCHLNPL EQU X'0885' CHANGE LINE NEGATIVE POLL RESPONSE LIMIT 00041000
  46. CCHSESL EQU X'0886' CHANGE SESSION LIMIT 00042000
  47. CCHRTRY EQU X'0887' CHANGE RETRY COUNT 00043000
  48. CACTDEV EQU X'0888' ACTIVATE DEVICE 00044000
  49. CDCTDEV EQU X'0889' DEACTIVATE DEVICE 00045000
  50. CCHDTLM EQU X'088C' CHANGE DEVICE TRANSMISSION LIMIT 00046000
  51. CMODBHS EQU X'088D' MODIFY BLOCK HANDLER SET ASSOCIATION 00047000
  52. CACTLIN EQU X'0898' ACTIVATE LINE 00048000
  53. CDCTLIN EQU X'0899' DEACTIVATE LINE 00049000
  54. CSETDSM EQU X'089A' SET DESTINATION MODE 00050000
  55. CDCTHLT EQU X'08C2' DEACTIVATE LINE HALT 00051000
  56. SPACE 00052000
  57. DISCNCT EQU X'0700' DISCONNECT NORMAL 00053000
  58. DISCINV EQU X'0701' DISCONNECT WITH INVITE 00054000
  59. DISCEOC EQU X'0702' DISCONNECT END OF CALL 00055000
  60. DISCECIN EQU X'0703' DISCONNECT, END OF CALL, INVITE 00056000
  61. SPACE 00057000
  62. INVITE EQU X'0500' INVITE NORMAL 00058000
  63. INVTBLK EQU X'0501' INVITE BLOCK 00059000
  64. INVTMSG EQU X'0502' INVITE MESSAGE 00060000
  65. INVTTRN EQU X'0503' INVITE TRANSMISSION 00061000
  66. INVTRND EQU X'0504' INVITE TRANSMISSION, DISCONNECT 00062000
  67. INVRSTR EQU X'0505' INVITE WITH AUTO RESTART 00063000
  68. INVTPER EQU X'0506' INVITE PERPETUAL (CLUSTERS ONLY) 00064000
  69. SPACE 00065000
  70. READNRM EQU X'0100' READ NORMAL 00066000
  71. READBLK EQU X'0101' READ BLOCK 00067000
  72. READMSG EQU X'0102' READ MESSAGE 00068000
  73. READTRN EQU X'0103' READ TRANSMISSION 00069000
  74. READTRD EQU X'0104' READ TRANSMISSION WITH DISCONNECT 00070000
  75. READINV EQU X'0105' READ WITH INVITE 00071000
  76. SPACE 00072000
  77. RESTLIN EQU X'0400' RESTART LINE 00073000
  78. RESTDEV EQU X'0401' RESTART DEVICE 00074000
  79. RESTSIL EQU X'0402' REPLACE LINE SESSION INITIATION INFO 00075000
  80. RESTSID EQU X'0422' REPLACE DEVICE SESSION INITIATION INFO 00076000
  81. SPACE 00077000
  82. TESTNRM EQU X'0300' TEST NORMAL 00078000
  83. TESTCON EQU X'0301' TEST WITH CONTACT 00079000
  84. TESTDSC EQU X'0302' TEST WITH DISCONNECT 00080000
  85. TESTCDC EQU X'0303' TEST WITH CONTACT AND DISCONNECT 00081000
  86. SPACE 00082000
  87. WRITNRM EQU X'0200' WRITE NORMAL 00083000
  88. WRITEOM EQU X'0201' WRITE WITH END OF MESSAGE 00084000
  89. WRITEOT EQU X'0202' WRITE WITH END OF TRANSMISSION 00085000
  90. WRITDSC EQU X'0203' WRITE END OF TRANSMISSION, DISCONNECT 00086000
  91. WRITRED EQU X'0206' WRITE, EOT, READ 00087000
  92. WRITINV EQU X'0207' WRITE, EOT, DISCONNECT, INVITE 00088000
  93. WRITCON EQU X'0208' WRITE WITH CONTACT 00089000
  94. WRITCEM EQU X'0209' WRITE WITH CONTACT, END OF MESSAGE 00090000
  95. WRITCET EQU X'020A' WRITE WITH CONTACT, END OF TRANSMISSION 00091000
  96. WRITCTD EQU X'020B' WRITE WITH CONTACT, EOT, DISCONNECT 00092000
  97. WRITCRD EQU X'020E' WRITE WITH CONTACT, EOT, READ NORMAL 00093000
  98. SPACE 2 00094000
  99. * BITS DEFINED IN BTU DATA FLAGS (CONDFLG): 00095000
  100. WRTSTPR EQU X'04' SUPPRESS RESPONSE FOR SUCCESSFUL WRITE 00096000
  101. SPACE 00097000
  102. * BITS DEFINED IN BTU FUNCTION FLAGS (CONFUNC): 00098000
  103. FNCHKPT EQU X'80' CONTROL - CHECKPOINT RECORD DESIRED 00099000
  104. FNPREFX EQU X'40' ALL CMDS - USE HEADER BUFFER PREFIX 00100000
  105. FNSPINV EQU X'20' CONTROL - SUPPRESS REJECTION OF INVITES 00101000
  106. FNWRSOH EQU X'80' WRITE - (BSC) SEND START OF HEADER 00102000
  107. FNFIRST EQU X'10' WRITE, READ, INVITE - FIRST BLOCK OF MSG 00103000
  108. FNGRAPH EQU X'20' READ - ACKNOWLEDGE WITH LEADING GRAPHICS 00104000
  109. FNPOSAK EQU X'04' READ - ACKNOWLEDGE PREVIOUS BLOCK READ 00105000
  110. FNNEGAK EQU X'02' READ - PREVIOUS BLOCK READ WITH ERRORS 00106000
  111. FNALTAK EQU X'01' READ - ALTERNATE ODD/EVEN ACKNOWLEDGEMENT 00107000
  112. EJECT 00108000
  113. POP PRINT 00109000
  114. SPACE 00110000
ibm/vm370-lib/copy/btucmd.copy_src.txt ยท Last modified: 2023/08/06 13:36 by Site Administrator