|
midrange.com
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.
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.
