|
<QUOTE> "I checked this in Debug and found that even if *IN97 & *IN96 are *OFF the loop ends?!!!" </QUOTE> Umm.. that's what you're telling it to do. 30600 C *IN97 DOUEQ*OFF 30700 C *IN96 ANDEQ*OFF Do until both *IN97 and *IN96 are off. -----Original Message----- From: hrishikesh kotwal [mailto:hdkotwal@hotmail.com] Sent: Tuesday, November 13, 2001 9:34 AM To: rpg400-l@midrange.com Subject: 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 _______________________________________________ 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.
As an Amazon Associate we earn from qualifying purchases.
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.
midrange.com
