daily pastebin goal
26%
SHARE
TWEET

Untitled

a guest Dec 18th, 2018 47 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top