readpe.sqlrpgle

ctl-opt dftactgrp(*no);

Dcl-Ds PRODUCTSP EXTNAME('PRODUCTSP');
End-Ds;

dcl-s start timestamp;
dcl-s end timestamp;
dcl-s data varchar(50);

start = %timestamp();

EXEC SQL DECLARE c_PRODUCTSP SCROLL CURSOR FOR
  SELECT * FROM PRODUCTSP;
EXEC SQL OPEN c_PRODUCTSP;

SetGTPRODUCTSP(115);
ReadPEPRODUCTSP(115);
//IF NOT %EOF(PRODUCTSP);
If not (sqlstate = '02000');
  data = %Char(PRID);
EndIf;

dsply data;
       
EXEC SQL CLOSE c_PRODUCTSP;

end = %timestamp();
       
Dsply %Char(%Diff(end:start:*mseconds));

Return;

Dcl-Proc SetGTPRODUCTSP;
  Dcl-Pi *N;
    pPRID Like(PRID) Const;
  End-Pi;
  EXEC SQL FETCH AFTER FROM c_PRODUCTSP;
  EXEC SQL FETCH PRIOR FROM c_PRODUCTSP INTO :PRODUCTSP;
  Dow NOT (sqlstate = '02000');
    If (pPRID = PRID);
      EXEC SQL FETCH RELATIVE +1 FROM c_PRODUCTSP;
      Return; //Found the record!
    Endif;
    EXEC SQL FETCH PRIOR FROM c_PRODUCTSP INTO :PRODUCTSP;
  Enddo;
End-Proc;
Dcl-Proc ReadPEPRODUCTSP;
  Dcl-Pi *N;
    pPRID Like(PRID) Const;
  End-Pi;
  EXEC SQL FETCH PRIOR FROM c_PRODUCTSP INTO :PRODUCTSP;
  Dow NOT (sqlstate = '02000');
    If (pPRID = PRID and pPRID = PRID);
      Return; //Found the record!
    Endif;
    EXEC SQL FETCH PRIOR FROM c_PRODUCTSP INTO :PRODUCTSP;
  Enddo;
End-Proc;