Re: RJNE0100 format Solved

Found it...I didn't specify Align on the data structure and the data
could contain pointers. This seemed to fix it:

D JrnEntry        DS                  Align

- Michael

On Wed, 30 Jun 2004 15:21:03 -0400, michaelr_41@xxxxxxxxxxxxxx said:
> 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
> 
-- 
  
  michaelr_41@xxxxxxxxxxxxxx