|
midrange.com
If I learned nothing else at COMMON last fall this is something that I took
away from Paul Tuohy RPG tips & tricks session. I like to think that I
learned a few other things too but this is one that started making my life
easier right away. Thanks Paul!
Dave Parnin
--
Nishikawa Standard Company
Topeka, IN 46571
daparnin@xxxxxxxxxxxxxx
rob@xxxxxxxxx
Sent by: To: RPG programming on
the AS400 / iSeries
rpg400-l-bounces@m <rpg400-l@xxxxxxxxxxxx>
idrange.com cc:
Subject: Re: Debugging problem
01/04/2006 04:33
PM
Please respond to
RPG programming on
the AS400 /
iSeries
Dave's right. But a little explanation. Without the *NoDebugIO it will
stay on the read for each input field. Rarely do you want that. If so,
then you'd start looking at your input buffer in your program, if that is
included in your compilation. And you could see each field fill.
Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
daparnin@xxxxxxxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/04/2006 04:02 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc
Fax to
Subject
Re: Debugging problem
Try adding the H-spec
HOption(*SrcStmt:*NoDebugIO)
Dave Parnin
--
Nishikawa Standard Company
Topeka, IN 46571
daparnin@xxxxxxxxxxxxxx
steema@xxxxxxxxxxx
om To: "RPG programming
on the AS400 / iSeries"
Sent by: <rpg400-l@xxxxxxxxxxxx>
rpg400-l-bounces@m cc:
idrange.com Subject: Debugging
problem
01/04/2006 03:49
PM
Please respond to
RPG programming on
the AS400 /
iSeries
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.
>
>
--
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
