Guest User

Untitled

a guest
Dec 18th, 2018
50
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. dcl-pr QteSubmitDebugCommand extproc(*dclcase);
  2. rcvrDta char(128);
  3. rcvrSiz int(10) const;
  4. viewID int(10) const;
  5. InputBuffer char(64) const;
  6. InpBfrSiz int(10) const;
  7. CompilerID char(20) const;
  8. apiError like(apiErrDs);
  9. end-pr;
  10.  
  11. dcl-pi *n ;
  12. pViewID int(10) const;
  13. pDebugCommand varchar(64) const options(*trim); // This is BREAK 10 WHEN IDX > 2
  14. pCompilerID char(20) const; // which is valid in the test harness program
  15. end-pi;
  16.  
  17. dcl-s receiverVariable char(128);
  18. dcl-s i uns(5);
  19.  
  20. dcl-ds apiErrDs likeDs(apiErrDsTmp) inz;
  21.  
  22. dcl-ds resultEntryTmp template qualified;
  23. resultType uns(10);
  24. count uns(10);
  25. length uns(10);
  26. end-ds;
  27.  
  28. dcl-s receiverPtr pointer;
  29. dcl-ds receiverData qualified based(receiverPtr);
  30. bytesReturned int(10);
  31. bytesAvailable int(10);
  32. entries int(10);
  33. resultArray dim(4) likeds(resultEntryTmp);
  34. stringSpace char(256);
  35. end-ds;
  36.  
  37. QteSubmitDebugCommand(receiverVariable :%Len(receiverVariable) :pViewID
  38. :pDebugCommand :%Len(pDebugCommand) :pCompilerID :apiErrDS);
  39.  
  40. receiverPtr = %addr(receiverVariable);
  41.  
  42. RECEIVERDATA DS
  43. BYTESAVAILABLE INT(10) 57 '00000039'X
  44. BYTESRETURNED INT(10) 57 '00000039'X
  45. ENTRIES INT(10) 3 '00000003'X
  46. RESULTARRAY DS DIM(4)
  47. (1)
  48. COUNT UNS(10) 3 '00000003'X
  49. LENGTH UNS(10) 0 '00000000'X
  50. RESULTTYPE UNS(10) 33554432 '02000000'X
  51. (2)
  52. COUNT UNS(10) 10 '0000000A'X
  53. LENGTH UNS(10) 0 '00000000'X
  54. RESULTTYPE UNS(10) 83886080 '05000000'X
  55. (3)
  56. COUNT UNS(10) 10 '0000000A'X
  57. LENGTH UNS(10) 0 '00000000'X
  58. RESULTTYPE UNS(10) 83886080 '05000000'X
  59. (4)
  60. COUNT UNS(10) 1849750016 '6E40F200'X
  61. LENGTH UNS(10) 4210752 '00404040'X
  62. RESULTTYPE UNS(10) 3385124672 'C9C4E740'X
  63.  
  64. Receiver Variable
  65. Offset Field Value
  66. 0 Bytes returned 59
  67. Bytes available 59
  68. Entry count 3
  69.  
  70. 12 Result type BreakR(2)
  71. Break results count 3
  72. Reserved
  73.  
  74. 24 Result type BreakPositionR(5)
  75. Line number 7 (in my case this = 10)
  76. Reserved
  77.  
  78. 36 Result type ExpressionTextR(7)
  79. Expression text offset 48
  80. Expression text length 10
  81.  
  82. 48 String space result > 5
RAW Paste Data