Retrieve journal attributes - CPF6948

       reset errc0100;
       RtvJrnRcvI(RRCV0100: %len(RRCV0100): Parm : 'RRCV0100':errc0100);
ERRC0100 has
     D ERRC0100        DS
     D  BytesProvided                10I 0 INZ(%len(errc0100))
     D  BytesAvail                   10I 0
     D  ExceptionId                   7A
     D  Reserved1                     1A
     D  ExceptData                  250A
BYTESPROVIDED OF ERRC0100 = 266 
BYTESAVAIL OF ERRC0100 = 28 
EXCEPTIONID OF ERRC0100 = 'CPF6948'
RESERVED1 OF ERRC0100 = '0' 
EVAL exceptdata :x
00000     01E80050 00000008 00000002 40404040
00010     40404040 40404040 40404040 40404040

DSPMSGD CPF6948
Message . . . . :   Length of the receiver variable &1 not valid. 
Cause . . . . . :   The length of the receiver variable is not valid due 
to
  reason code &3. The reason codes are: 
 
Field     Data Type     Length
 &1       *BIN              4 
 &2       *BIN              4 
 &3       *BIN              4 

     2 -- The length of the receiver variable value is greater than the 
actual size of the receiver variable space. 


     D RRCV0100        ds                  qualified
     D  BytesRet                     10i 0       Bytes returned
     D  BytesAvl                     10i 0 inz(%len(RRCV0100))      Bytes 
available
     D  RcvrName                     10a
     D  RcvrLib                      10a
     D  JrnName                      10a
     D  JrnLib                       10a
     D  Threshold                    10i 0
     D  Size                         10i 0
     D  ASP                          10i 0
     D  NbrJrnEntries                10i 0
     D  MaxEntLen                    10i 0
     D  MaxNullInd                   10i 0
     D  FirstSeqNbr                  10i 0
     D  MinEntDtaAra                  1a
     D  MinEntFiles                   1a
     D  Reserved01                    2a
     D  LastSeqNbr                   10i 0
     D  Reserved02                   10i 0
     D  Status                        1a
     D  MinFixLen                     1a
     D  RcvMaxOpts                    1a
     D  AttachDT                     13a         CYYMMDDHHMMSS
     D  DetachDT                     13a         CYYMMDDHHMMSS
     D  SavedDT                      13a         CYYMMDDHHMMSS
     D  Text                         50a
     D  PendingTrn                    1a
     D  RmtJrnType                    1a
     D  LclJrnName                   10a
     D  LclJrnLib                    10a
     D  LclJrnSystem                  8a
     D  LclJrnRcvLib                 10a
     D  SrcJrnName                   10a
     D  SrcJrnLib                    10a
     D  SrcJrnSystem                  8a
     D  SrcJrnRcvLib                 10a
     D  RdrJrnRcvLib                 10a
     D  DulJrnRcvName                10a
     D  DulJrnRcvLib                 10a
     D  PrvJrnRcvName                10a
     D  PrvJrnRcvLib                 10a
     D  NxtJrnRcvName                10a
     D  NxtJrnRcvLib                 10a
     D  NxDJrnRcvName                10a
     D  NxDJrnRcvLib                 10a
     D  NbrJrnEntLong                20a
     D  MaxEntLenLong                20a
     D  FstSeqNbrLong                20a
     D  LstSeqNbrLong                20a
     D  AspDev                       10a
     D  LclJrnAspGrp                 10a
     D  SrcJrnAspGrp                 10a
     D  FixLenDtaJob                  1a
     D  FixLenDtaUsr                  1a
     D  FixLenDtaPgm                  1a
     D  FixLenDtaPgmLib...
     D                                1a
     D  FixLenDtaSysReq...
     D                                1a
     D  FixLenDtaRmtAdr...
     D                                1a
     D  FixLenDtaThd                  1a
     D  FixLenDtaLuw                  1a
     D  FixLenDtaXid                  1a
     D  Reserved03                   21a


Rob Berendt