QDBRPLAY
Last Post 01 Jan 1900 12:00 AM by . 0 Replies.
AddThis - Bookmarking and Sharing Button Printer Friendly
  •  
  •  
  •  
  •  
  •  
Sort:
PrevPrev NextNext
You are not authorized to post a reply.
Author Messages Not Resolved
ebschubert
New Member
New Member
Posts:9

--
12 Apr 2010 04:52 PM
Hi folks...... Have anyone an example for using QDBRPLAY API? I'll used it in content with QjoRetrieveJournalEntries API. Whats the special meaning of "Rename Exit Program Parameter" I have no other Exit-PGM but i have to fillup this structure? And when how? I coded:
**-- Replay Database Operation: --------------------------------------- D ReplayDb PR ExtPgm( 'QDBRPLAY') D RplTplVar 32767a Const Options( *VarSize ) D RplTplVarLen 10i 0 Const D RplTplName 8a Const D RplDta 32767a Const Options( *VarSize ) D RplDtaLen 10i 0 Const D RplExtPgm 32767a Const Options( *VarSize ) D RplError 32767a Options( *NoPass: *VarSize )
Templateparameter is an DS:
**-- QDBRPLAY - Input Template: D DBRR0100 Ds D Qualified D JrnCde 1a D EntTyp 2a D ExtPgmNam 10a Inz( '*NONE' ) D ExtPgmLib 10a Inz D DisablTrg 1a Inz( '0' ) D Reserv 10a
Rename exit program scratchpad-Parameter is an DS too:
**-- Rename Exit Program Parameter: D REPP Ds D Qualified D PrmLen 10i 0 Inz( %Size( REPP ) ) D LenObjNam 10i 0 Inz( 10 ) D LenObjLib 10i 0 Inz( 10 ) D ObjTyp 10i 0 Inz( 3 ) D ObjNam 258a D ObjLib 258a D Reserv 10a
I call it as follows:
c Eval DBRR0100.JrnCde = JEJrnCde c Eval DBRR0100.EntTyp = JeEntTyp c Eval REPP.ObjNam = JEObjNam c Eval REPP.ObjLib = JEObjLib c Callp(e) ReplayDB( DBRR0100 c : %Size( DBRR0100 ) c : 'DBRR0100' c : JDEntDta c : JDEntDtaLen c : REPP c : ApiError )
JDEntDta is filled up When i call it i get CPF3C3B - Value for parameter &2 for API &1 not valid. Whats wrong????
You are not authorized to post a reply.

Acceptable Use Policy