× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. November 2001

DOUEQ - Loop (RPG III)

[ Converted text/html to text/plain ]

Dear all,



With reference to one of my earlier mails regarding Line Count, I had received
a solution to match records and print them. In that solution DOUEQ loop was
used. I have used this in my program and it has successfully printed most of
the records. But today I noticed a bug in my loop. Following is the loop:

21800 **------------------------------------------------------------

28600 C    DTL020 BEGSR

29300 C            SETOF                   97

29400 C    DDCINB  CHAINCMBF4CL1           97

29500 C            SETOF                   96

29600 C    DDCINB  CHAINCMBF4D             96

30600 C     *IN97  DOUEQ*OFF

30700 C     *IN96  ANDEQ*OFF

30900 C     *IN97  IFEQ *ON

31000 C     *IN96  ANDEQ*ON

31100 C            LEAVE

31200 C            ENDIF

36800 C            EXCPTPRTDT4

37000 C  OA        EXCPTPRTHDG

37200 C  OA        SETON              OA

37800 C     *IN97  IFEQ *OFF

37900 C     DDCINB  READECMBF4CL1

38000 C             ENDIF

38200 C      *IN96  IFEQ *OFF

38300 C      DDCINB READECMBF4D               96

38800 C            ENDIF

39000 C      *IN97 IFEQ *ON

39100 C      *IN96 ANDEQ*ON

39300 C            EXCPTPRTDT5

39500 C            ENDIF

39700 C            ENDDO

39800 C*

39900 C            ENDSR

------------------------------------------------------------------

I read files CMBF2CL1 & CMBF2D together for a common DDCINB (Item Number).
Both files may have none or multiple records for DDCINB. I want to print
whatever records exist in both files for DDCINB. Therefore I am trying to use
the Match Record Processing logic BUT My problem is that when CMBF2CL1 &
CMBF2D have more than one record for the same DDCINB the loop fails. I checked
this in Debug and found that even if *IN97 & *IN96 are *OFF the loop ends?!!!
How is this possible? Is there something wrong in this loop.



Please help.



Regards,

Hrishikesh Kotwal

>From: "Biju Varughese"
>Reply-To: rpg400-l@midrange.com
>To: RPG400-L@midrange.com
>Subject: Can we fax from AS/400 as we do in window software
>Date: Tue, 13 Nov 2001 16:41:49
>
>[ Converted text/html to text/plain ]
>
>Hi
>
>Can we fax from AS/400 box?
>
>How can we do that?
>
>Thank You.
>
>
> >From: "York, Albert"
> >Reply-To: RPG400-L@midrange.com
> >To: "'RPG400-L@midrange.com'"
> >Subject: RE: How can e submit a job with display file open
> >Date: Thu, 9 Aug 2001 11:57:57 -0700
> >
> >
> >The name of the API is TNAPI (telnet API).
> >
> >The source (RPGLE) and documentation can be downloaded from the Telnet/400
> >web site (www.telnet400.com ) It is freeware.
> >
> >Feel free to contact me if you have any questions.
> >
> >Albert York
> >
> >
> > -----Original Message-----
> > From: Biju Varughese [SMTP:bvarughese@hotmail.com]
> > Sent: Thursday, August 09, 2001 11:22 AM
> > To: RPG400-L@midrange.com
> > Subject: RE: How can e submit a job with display file open
> >
> > Can you give that API name so that i can call this program
> >interactive.
> >
> >
> >
> > >From: "York, Albert"
> > >Reply-To: RPG400-L@midrange.com
> > >To: "'RPG400-L@midrange.com'"
> > >Subject: RE: How can e submit a job with display file open
> > >Date: Thu, 9 Aug 2001 11:19:07 -0700
> > >
> > >
> > >The first solution would be to change your program to use a work
> >file rather
> > >than a subfile.
> > >
> > >If that's not possible I have an API which allows you to run
> >interactive
> > >programs in batch. You send it emulated keystrokes and it returns
> >the
> > >resulting screen.
> > >
> > >Albert York
> > >
> > >
> > > -----Original Message-----
> > > From: Biju Varughese [SMTP:bvarughese@hotmail.com]
> > > Sent: Thursday, August 09, 2001 11:02 AM
> > > To: RPG400-L@midrange.com
> > > Subject: How can e submit a job with display file open
> > >
> > >
> > > Hi
> > >
> > > I have a program where i load subfile record but it's not
> >displayed
> > >, I need to execute this
> > >
> > > program without user interaction.
> > >
> > >
> > >
> > > Biju
> > >
> > >
> > >
> > >
> > >
> > >
> > > _____
> > >
> > > Get your FREE download of MSN Explorer at http://explorer.msn.com
> > >
> > >
> > > +--- | This is the RPG/400 Mailing List! | To submit a new
> >message,
> > >send your mail to RPG400-L@midrange.com. | To subscribe to this
> >list send
> > >email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list
> >send
> > >email to RPG400-L-UNSUB@midrange.com. | Questions should be
> >directed to the
> > >list owner/operator: david@midrange.com +---
> > >+---
> > >| This is the RPG/400 Mailing List!
> > >| To submit a new message, send your mail to RPG400-L@midrange.com.
> >
> > >| To subscribe to this list send email to
> >RPG400-L-SUB@midrange.com.
> > >| To unsubscribe from this list send email to
> >RPG400-L-UNSUB@midrange.com.
> > >| Questions should be directed to the list owner/operator:
> >david@midrange.com
> > >+---
> >
> > _____
> >
> > Get your FREE download of MSN Explorer at http://explorer.msn.com
> >
> >
> > +--- | This is the RPG/400 Mailing List! | To submit a new message,
> >send your mail to RPG400-L@midrange.com. | To subscribe to this list send
> >email to RPG400-L-SUB@midrange.com. | To unsubscribe from this list send
> >email to RPG400-L-UNSUB@midrange.com. | Questions should be directed to the
> >list owner/operator: david@midrange.com +---
> >+---
> >| This is the RPG/400 Mailing List!
> >| To submit a new message, send your mail to RPG400-L@midrange.com.
> >| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> >| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> >| Questions should be directed to the list owner/operator:
david@midrange.com
> >+---
>
>------------------------------------------------------------------------------
>Get your FREE download of MSN Explorer at http://explorer.msn.com[1]
>
>===References:===
> 1. http://go.msn.com/bql/hmtag_itl_EN.asp
>
>_______________________________________________
>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
>To post a message email: RPG400-L@midrange.com
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
>or email: RPG400-L-request@midrange.com
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/rpg400-l.
>

------------------------------------------------------------------------------
Get your FREE download of MSN Explorer at http://explorer.msn.com[1]

===References:===
  1. http://go.msn.com/bql/hmtag_itl_EN.asp

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.