RE: RPG Subfile run time error message

Tommy, there are 2 IF sections. in the first one, I am only going to
display those records = to the date from ( the user only enters one date,
not a from and to. In the second, they entered a from and to dates.) It
seems that the progrm bombs on the first Found date, but not 100% sure.

c****************************************************************
c     blddat        begsr
c*-----------------------------------------------------------------
c     datet         ifeq      0
c                   eval      *in60 = *on
c                   endif
c*
C     *in91         doweq     *off
c*
C                   read      eflj6hkpa                              91
C                   if        *in91
C                   leave
C                   endif
c     datet         ifeq      0
c     j6acct        andeq     acct
c     j6odat        andeq     datef
C                   eval      rrn1 = rrn1 + 1
 C                   eval      option = *blank
 C                   write     sfl1
 c                   iter
 c                   endif
 c     j6acct        ifeq      acct
 c     j6odat        ifge      datef
 c     j6odat        andle     datet
 C                   eval      rrn1 = rrn1 + 1
 C                   eval      option = *blank
 C                   write     sfl1
 c                   endif
 c                   endif
 C                   enddo
  * If no records are loaded to subfile, don't display it
  *
 C                   if        rrn1 = *zero
 C                   eval      *in32 = *on





> Can you post the code relevant to loading the subfile?
>
>
> Thanks,
> Tommy Holden
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of steema@xxxxxxxxxxxxx
> Sent: Thursday, March 16, 2006 9:08 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: RPG Subfile run time error message
>
> Nope, it craps out on RRN 175. Makes 0 sense at the moment.
>
>> Is it possible that your date range in days is greater than the size
> of
>> the field holding it, so it rolls around and begins again?
>>
>> lets say the delta of days is 4 years, or 1300 days.  If your field is
>> 3/0 then it can only hold 999 days.
>>
>> steema@xxxxxxxxxxxxx wrote:
>>> HI I am running a fairly basic subfile program in RPG ILE. I get this
>>> message that is stumping me. For the dates from and to, when I put in
> a
>>> huge range this is what occurs. When I put in a smaller range, it
> does
>>> not
>>> occur.
>>>
>>>  CALL PGM(EDRHKSP) PARM('1' '  ')
>>>  Record 144 member EFLJ6HKPA already locked to this job.
>>>  C
>>>  Record 144 member EFLJ6HKPA already locked to this job.
>>>  C
>>>  I/O error CPF5032 was detected in file EFLJ6HKPA.
>>>  I/O error CPF5032 was detected in file EFLJ6HKPA.
>>>  Unmonitored exception at line 244
>>>
>>> Any help would be greatly appreciated,
>>> Steve
>>>
>> --
>> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
>> To post a message email: RPG400-L@xxxxxxxxxxxx
>> To subscribe, unsubscribe, or change list options,
>> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>> or email: RPG400-L-request@xxxxxxxxxxxx
>> Before posting, please take a moment to review the archives
>> at http://archive.midrange.com/rpg400-l.
>>
>>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>