RJNE0100 format

[michaelr_41@xxxxxxxxxxxxxx]

Anyone have a data structure definition of the RJNE0100 format for the
QjoRetrieveJournalEntries API? There's something wrong with my
definition (I'm three bytes off), but I can't find it. Below is my
definition. It looks like it goes wrong at SequenceNbr - the first few
entries look like this:

BYTESRETURNED OF JRNENTRY = 000000240.              
HEADEROFFSET OF JRNENTRY = 000000016.               
JOURNALOFFSET OF JRNENTRY = 000000001.              
CONTINUATION OF JRNENTRY = '1'                      
DSPNXTJRNHDR OF JRNENTRY = 000000000.               
DSPJRNNULVAL OF JRNENTRY = 000000000.               
DSPJRNENTSPC OF JRNENTRY = 000050176.               
DSPUNXPTRHDL OF JRNENTRY = 000053248.               
SEQUENCENBR OF JRNENTRY = '   00000000000000000'    
JOURNALCODE OF JRNENTRY = '0'                       
ENTRYTYPE OF JRNENTRY = '01'                        
TIMESTAMP OF JRNENTRY = 'JPR2004-06-22-14.57.19.748'
JOBNAME OF JRNENTRY = '896ISDWEBS'                  

Thanks!

- Michael

D JrnEntry        DS                 
 *  Header Entry                     
D  BytesReturned                 9B 0
D  HeaderOffset                  9B 0
D  JournalOffset                 9B 0
D  Continuation                  1   
 *  Journal Entry Header             
D  DspNxtJrnHdr                  9B 0
D  DspJrnNulVal                  9B 0
D  DspJrnEntSpc                  9B 0
D  DspUnxPtrHdl                  9B 0
D  SequenceNbr                  20   
D  JournalCode                   1   
D  EntryType                     2   
D  TimeStamp                    26   
D  JobName                      10 
D  UserName                     10 
D  JobNumber                     6 
D  ProgramName                  10 
D  Object                       30 
D  RRN                          10 
D  IndicatorFlag                 1 
D  CommitCycleID                20 
D  UserProfile                  10 
D  SystemName                    8 
D  JournalID                    10 
D  RefConstraint                 1 
D  Trigger                       1 
D  IncompData                    1 
D  ObjNameInd                    1 
D  IgnDuringChg                  1 
D  MinEntSpcDta                  1 
 *  Null Value Indicators Length  
D  NulValIndLen                 10
 *  Entry Specific Data           
D  EntSpcDtaLen                  5
D  Reserved                     11
D  EndSpcDta                  1024
-- 
  
  michaelr_41@xxxxxxxxxxxxxx