Re: Debugging problem

Check the position of indicator 70 on the reade statement.


steema@xxxxxxxxxxxxx wrote:

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.