Debugging problem

I have this code, the program stays on the READE statement. I can;t
understand why it is stuck like that. I use STRDBG.


c     cupdt         begsr
c                   eval      *in70=*off
c     asakey        setll     zllc1wph
c     *in70         doweq     *off
c     asakey        reade     zllc1wph                                 70
c     *in70         ifeq      *off
c                   movel     canam         bacarr
c                   movel     pcac          bascac
c                   movel     saacct        baacct
C                   update    lf01
c                   endif
c                   enddo
> Yep, this can be done in RPG.
>
> However, your program type will change from RPGLE to SQLRPGLE.  I
> recently began using it and I find it a good alternative to
> CHAIN/READ/ETC.
>
> Here's a sample from one of my RPG programs (there are two ways to do
> this - either via a pre-defined SQL statement or through a direct
> statement):
>
> Pre-defined:
> /free
>     SQLstmt = 'select partno, partcl, serialno, pqty into :partno,
> :partcl, :serialno, :pqty';
>     SQLstmt = SQLstmt + 'from PQR_PF '
>     SQLstmt = SQLstmt + 'WHERE PQSTATUS =' + apos + 'RLSD' + apos;
>  /end-free
> C*
> C/Exec SQL
> C+ EXECUTE IMMEDIATE :SQLstmt
> C/End-exec
> C*
>
> Direct Statement:
> C*
> C/Exec SQL
> C+ SELECT MAX(CONCAT(otkdf2,otkdf3)) into :LASTN1M
> C+ FROM SST32 WHERE otisn0= :plcd
> C+ AND otisn2 = 'PS'
> C+ AND ottlcd = :PTLCD
> C+ AND otpsts = 'M'
> C/End-Exec
> C*
>
> HTH,
>
> Brian.
>
> -----Original Message-----
> From: steema@xxxxxxxxxxxxx [mailto:steema@xxxxxxxxxxxxx]
> Sent: Wednesday, January 04, 2006 3:21 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Subfile loading time tips needed
>
> THank you Mohammed, but can this be incorporated into the RPG?
>
>> I am not sure what you are looking for but I think this SQL can you
> help u
>>
>> "select distinct fieldnames from yourlib/file where ?=?"
>>
>>
>> -----Original Message-----
>> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
>> On Behalf Of steema@xxxxxxxxxxxxx
>> Sent: Wednesday, January 04, 2006 12:55 PM
>> To: RPG programming on the AS400 / iSeries
>> Subject: Re: Subfile loading time tips needed
>>
>> What is your problem, moron? I asked a legitimate question, if you
> have no
>> need to answer then don't. If you have a proper response, please do.
>>
>>> haven't we passed the final exam yet?
>>>
>>> steema@xxxxxxxxxxxxx wrote:  IOW, I would like to use the SQL unique
>>> attribute for this file, as this
>>> would cut down on the # of recs to read.
>>> Can this be done w/ in the RPG ?
>>>> HI I have a subfile that I am building in full, bec. there are some
>>>> related factors between records. If there is for example, a BOL
> number,
>>>> this same BOL could appear later on, and it is desired to have it
>>>> grouped
>>>> together, in the subfile. But this way, takes some time. There is a
>>>> definete pause of a few seconds, for each load, for each F12, etc...
>>>>
>>>> Perhaps I am lacking some understanding of subfiles so as to speed
> this
>>>> up?
>>>>
>>>> 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.
>>>
>>>
>>>
>>>
>>>
>>>     Mark Allen
>>>   allenmar@xxxxxxxxx
>>>   Home: 859 635 5980
>>>
>>>
>>>
>>>
>>> ---------------------------------
>>>  Yahoo! DSL Something to write home about. Just $16.99/mo. or less
>>> --
>>> 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.
>>
>>
>
> --
> 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.
>
>