RE: Retrieve journal attributes - CPF6948

I tried changing that.
     D RRCV0100        ds                  qualified
     D  BytesRet                     10i 0       Bytes returned
     D  BytesAvl                     10i 0
     D* BytesAvl                     10i 0 inz(%len(RRCV0100))      Bytes 
available
     D  RcvrName                     10a
...
I also put in three fields that I inadvertantly left out.
I still get the error but a debug of RRCV0100 reveals:
RRCV0100.BYTESRET = 0 
RRCV0100.BYTESAVL = 512 
RRCV0100.RCVRNAME = 'QSQJRN0001'
RRCV0100.RCVRLIB = 'ROB       ' 
RRCV0100.JRNNAME = 'QSQJRN    ' 
RRCV0100.JRNLIB = 'ROB       ' 
RRCV0100.THRESHOLD = 1500000 
RRCV0100.SIZE = 1184 
RRCV0100.ASP = 1 
RRCV0100.NBRJRNENTRIES = 2465 
RRCV0100.MAXENTLEN = 11616 
RRCV0100.MAXNULLIND = 4 
RRCV0100.FIRSTSEQNBR = 1 
RRCV0100.MINENTDTAARA = '0' 
RRCV0100.MINENTFILES = '0' 
RRCV0100.RESERVED01 = '  ' 
RRCV0100.LASTSEQNBR = 2465 
RRCV0100.RESERVED02 = 0 
RRCV0100.STATUS = '3' 
RRCV0100.MINFIXLEN = '0' 
RRCV0100.RCVMAXOPTS = '2' 
RRCV0100.RESERVED03 = '    ' 
RRCV0100.ATTACHDT = '1051121165853'
RRCV0100.DETACHDT = '1051217120542'
RRCV0100.SAVEDDT = '1060124230540' 
RRCV0100.TEXT = '*BLANK                                            '
RRCV0100.PENDINGTRN = '0'
RRCV0100.RMTJRNTYPE = '0' 
RRCV0100.LCLJRNNAME = '          ' 
RRCV0100.LCLJRNLIB = '          ' 
RRCV0100.LCLJRNSYSTEM = '        ' 
RRCV0100.LCLJRNRCVLIB = '          ' 
RRCV0100.SRCJRNNAME = '          ' 
RRCV0100.SRCJRNLIB = '          ' 
RRCV0100.SRCJRNSYSTEM = '        ' 
RRCV0100.SRCJRNRCVLIB = '          ' 
RRCV0100.RDRJRNRCVLIB = '          ' 
RRCV0100.DULJRNRCVNAME = '          '
RRCV0100.DULJRNRCVLIB = '          ' 
RRCV0100.PRVJRNRCVNAME = '          '
RRCV0100.PRVJRNRCVLIB = '          ' 
RRCV0100.PRDJRNRCVNAME = '          '
RRCV0100.PRDJRNRCVLIB = '          ' 
RRCV0100.NXTJRNRCVNAME = 'QSQJRN0002'
RRCV0100.NXTJRNRCVLIB = 'ROB       ' 
RRCV0100.NXDJRNRCVNAME = '          '
RRCV0100.NXDJRNRCVLIB = '          ' 
RRCV0100.NBRJRNENTLONG = '00000000000000002465'
RRCV0100.MAXENTLENLONG = '00000000000000011616'
RRCV0100.FSTSEQNBRLONG = '00000000000000000001'
RRCV0100.LSTSEQNBRLONG = '00000000000000002465'
RRCV0100.ASPDEV = '*SYSBAS   ' 
RRCV0100.LCLJRNASPGRP = '          '
RRCV0100.SRCJRNASPGRP = '          '
RRCV0100.FIXLENDTAJOB = '1' 
RRCV0100.FIXLENDTAUSR = '1' 
RRCV0100.FIXLENDTAPGM = '1' 
RRCV0100.FIXLENDTAPGMLIB = '0'
RRCV0100.FIXLENDTASYSREQ = '0'
RRCV0100.FIXLENDTARMTADR = '0'
RRCV0100.FIXLENDTATHD = '0' 
RRCV0100.FIXLENDTALUW = '0' 
RRCV0100.FIXLENDTAXID = '0' 
RRCV0100.RESERVED04 = '                     '

Rob Berendt