Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dcl-pr QteSubmitDebugCommand extproc(*dclcase);
- rcvrDta char(128);
- rcvrSiz int(10) const;
- viewID int(10) const;
- InputBuffer char(64) const;
- InpBfrSiz int(10) const;
- CompilerID char(20) const;
- apiError like(apiErrDs);
- end-pr;
- dcl-pi *n ;
- pViewID int(10) const;
- pDebugCommand varchar(64) const options(*trim); // This is BREAK 10 WHEN IDX > 2
- pCompilerID char(20) const; // which is valid in the test harness program
- end-pi;
- dcl-s receiverVariable char(128);
- dcl-s i uns(5);
- dcl-ds apiErrDs likeDs(apiErrDsTmp) inz;
- dcl-ds resultEntryTmp template qualified;
- resultType uns(10);
- count uns(10);
- length uns(10);
- end-ds;
- dcl-s receiverPtr pointer;
- dcl-ds receiverData qualified based(receiverPtr);
- bytesReturned int(10);
- bytesAvailable int(10);
- entries int(10);
- resultArray dim(4) likeds(resultEntryTmp);
- stringSpace char(256);
- end-ds;
- QteSubmitDebugCommand(receiverVariable :%Len(receiverVariable) :pViewID
- :pDebugCommand :%Len(pDebugCommand) :pCompilerID :apiErrDS);
- receiverPtr = %addr(receiverVariable);
- RECEIVERDATA DS
- BYTESAVAILABLE INT(10) 57 '00000039'X
- BYTESRETURNED INT(10) 57 '00000039'X
- ENTRIES INT(10) 3 '00000003'X
- RESULTARRAY DS DIM(4)
- (1)
- COUNT UNS(10) 3 '00000003'X
- LENGTH UNS(10) 0 '00000000'X
- RESULTTYPE UNS(10) 33554432 '02000000'X
- (2)
- COUNT UNS(10) 10 '0000000A'X
- LENGTH UNS(10) 0 '00000000'X
- RESULTTYPE UNS(10) 83886080 '05000000'X
- (3)
- COUNT UNS(10) 10 '0000000A'X
- LENGTH UNS(10) 0 '00000000'X
- RESULTTYPE UNS(10) 83886080 '05000000'X
- (4)
- COUNT UNS(10) 1849750016 '6E40F200'X
- LENGTH UNS(10) 4210752 '00404040'X
- RESULTTYPE UNS(10) 3385124672 'C9C4E740'X
- Receiver Variable
- Offset Field Value
- 0 Bytes returned 59
- Bytes available 59
- Entry count 3
- 12 Result type BreakR(2)
- Break results count 3
- Reserved
- 24 Result type BreakPositionR(5)
- Line number 7 (in my case this = 10)
- Reserved
- 36 Result type ExpressionTextR(7)
- Expression text offset 48
- Expression text length 10
- 48 String space result > 5
Add Comment
Please, Sign In to add comment