home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / remcmd.zip / XLATRXAP.CMD < prev   
OS/2 REXX Batch file  |  1993-05-10  |  3KB  |  87 lines
  1. /* Rexx */
  2.  
  3. rcode = c2x(Arg(1))
  4. rc. = 'Unknown_Return_Code'
  5. rc.02000000 ='BAD_CONV_ID'
  6. rc.11000000 ='BAD_CONV_TYPE'
  7. rc.F1000000 ='BAD_LL'
  8. rc.03000000 ='BAD_LU_ALIAS'
  9. rc.14000000 ='BAD_RETURN_CONTROL'
  10. rc.13000000 ='BAD_SECURITY'
  11. rc.12000000 ='BAD_SYNC_LEVEL'
  12. rc.01000000 ='BAD_TP_ID'
  13. rc.02F0 ='TP_BUSY'
  14. rc.03F0 ='COMM_SUBSYSTEM_ABENDED'
  15. rc.04F0 ='COMM_SUBSYSTEM_NOT_LOADED'
  16. rc.08F0 ='INVALID_VERB_SEGMENT'
  17. rc.11F0 ='UNEXPECTED_DOS_ERROR'
  18. rc.1900 ='CONVERSATION_TYPE_MIXED'
  19. rc.2100 ='CANCELLED'
  20. rc.0500 ='DEALLOC_ABEND'
  21. rc.0600 ='DEALLOC_ABEND_PROG'
  22. rc.0700 ='DEALLOC_ABEND_SVC'
  23. rc.0800 ='DEALLOC_ABEND_TIMER'
  24. rc.0900 ='DEALLOC_NORMAL'
  25. rc.0C00 ='PROG_ERROR_NO_TRUNC'
  26. rc.0E00 ='PROG_ERROR_PURGING'
  27. rc.0D00 ='PROG_ERROR_TRUNC'
  28. rc.1400 ='UNSUCCESSFUL'
  29. rc.15F0 ='STACK_TOO_SMALL'
  30. rc.1000 ='CONV_FAILURE_NO_RETRY'
  31. rc.04000000 ='ALLOCATION_FAILURE_NO_RETRY'
  32. rc.05000000 ='ALLOCATION_FAILURE_RETRY'
  33. rc.34600810 ='CONVERSATION_TYPE_MISMATCH'
  34. rc.09050000 ='ALLOCATE_NOT_PENDING'
  35. rc.08050000 ='ATTACH_MANAGER_INACTIVE'
  36. rc.32000000 ='CONFIRM_BAD_STATE'
  37. rc.33000000 ='CONFIRM_NOT_LL_BDY'
  38. rc.31000000 ='CONFIRM_ON_SYNC_LEVEL_NONE'
  39. rc.41000000 ='CONFIRMED_BAD_STATE'
  40. rc.51000000 ='DEALLOC_BAD_TYPE'
  41. rc.52000000 ='DEALLOC_FLUSH_BAD_STATE'
  42. rc.57000000 ='DEALLOC_LOG_LL_WRONG'
  43. rc.55000000 ='DEALLOC_NOT_LL_BDY'
  44. rc.61000000 ='FLUSH_NOT_SEND_STATE'
  45. rc.06000000 ='INVALID_DATA_SEGMENT'
  46. rc.25050000 ='INVALID_PROCESS'
  47. rc.D6000000 ='INVALID_SEMAPHORE_HANDLE'
  48. rc.17000000 ='NO_USE_OF_SNASVCMG'
  49. rc.A1000000 ='P_TO_R_INVALID_TYPE'
  50. rc.A2000000 ='P_TO_R_NOT_LL_BDY'
  51. rc.A3000000 ='P_TO_R_NOT_SEND_STATE'
  52. rc.16000000 ='PIP_LEN_INCORRECT'
  53. rc.31600810 ='PIP_NOT_ALLOWED'
  54. rc.32600810 ='PIP_NOT_SPECIFIED_CORRECTLY'
  55. rc.D2000000 ='RCV_AND_POST_NOT_LL_BDY'
  56. rc.E1000000 ='R_T_S_BAD_STATE'
  57. rc.D5000000 ='RCV_AND_POST_BAD_FILL'
  58. rc.D1000000 ='RCV_AND_POST_BAD_STATE'
  59. rc.B5000000 ='RCV_AND_WAIT_BAD_FILL'
  60. rc.B1000000 ='RCV_AND_WAIT_BAD_STATE'
  61. rc.B2000000 ='RCV_AND_WAIT_NOT_LL_BDY'
  62. rc.C4000000 ='RCV_IMMD_BAD_FILL'
  63. rc.C1000000 ='RCV_IMMD_BAD_STATE'
  64. rc.03010000 ='SEND_ERROR_BAD_TYPE'
  65. rc.51600F08 ='SECURITY_NOT_VALID'
  66. rc.F3000000 ='SEND_DATA_BAD_MAP_NAME'
  67. rc.F2000000 ='SEND_DATA_NOT_SEND_STATE'
  68. rc.02010000 ='SEND_ERROR_LOG_LL_WRONG'
  69. rc.41600810 ='SYNC_LEVEL_NOT_SUPPORTED'
  70. rc.43020000 ='TOO_MANY_TPS'
  71. rc.21600810 ='TP_NAME_NOT_RECOGNIZED'
  72. rc.00004C08 ='TRANS_PGM_NOT_AVAIL_NO_RETRY'
  73. rc.31604B08 ='TRANS_PGM_NOT_AVAIL_RETRY'
  74. rc.18000000 ='UNKNOWN_PARTNER_MODE'
  75. rc.06050000 ='UNDEFINED_TP_NAME'
  76. Select
  77.   When Length(rcode) = 4 Then
  78.     str = rc.rcode "(Appc-Rc1 = '"c2x(reverse(Arg(1)))"'x)"
  79.   When Length(rcode) = 8 Then
  80.     str = rc.rcode "(Appc-Rc2 = '"c2x(reverse(Arg(1)))"'x)"
  81.   Otherwise
  82.     str = rc.rcode
  83. End
  84. If Arg() >= 2 Then
  85.   str = str||'0d0a'x||"(Sense Code = '"c2x(Arg(2))"'x)"
  86. Return str
  87.