× 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.



I'm not even going to read any of the messages that all of you have posted in response to my stupid reply, but I'll make ne more point:

Shiva could have easily answered his OWN question with a simple Google search...
http://www.google.com/search?sourceid=navclient&ie=UTF-8&rls=GGLD,GGLD:2004-04,GGLD:en&q=rpg+do+while+loop

One more time...
Everyone should read this web page (I'm reading it again right now with tail between legs):
http://www.catb.org/~esr/faqs/smart-questions.html

- sjl


----- Original Message ----- From: "Michael Ryan" <michaelrtr@xxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, August 18, 2006 7:31 AM
Subject: Re: while exit from the dsply fiel its adding a blank record with 0'


Actually, this looks like CS101. Wonder if they're teaching basic
programming logic with RPG examples in India?

On 8/18/06, Steve Landess <sjl_abc@xxxxxxxxxxx> wrote:

Shiva -

I'm NOT going to give you the technical answer, but anyone who has had the
CS101 course (basic programming logic) has surely been taught that a DO
WHILE loop (RPG/400's DOW operation) doesn't check the looping condition
until it reaches the END of the loop (RPG/400's ENDDO operation).

BTW:  This is true for ALL programming languages...

Regards,
Steve

----- Original Message -----
From: "koti shiva" <shivakk4u@xxxxxxxxxxx>
To: <RPG400-L@xxxxxxxxxxxx>
Sent: Friday, August 18, 2006 2:00 AM
Subject: while exit from the dsply fiel its adding a blank record with 0'


> Hi all,
>
>  i am adding records to a physical file through a dsply file while exit
> from the dsply file it adding a blank record to physical file.
>
>  can any body help me, bellow is my code.
>
>
>  RPG Code
>>   0002.00 FSTUDENT   IF A E             DISK
>> 0003.00 FSTDNTDSP  CF   E             WORKSTN
>> 0004.00 C                   DOW       *IN03=*OFF
>> 0005.00 C                   EXFMT     DSTUDENT
>> 0007.00 C                   EVAL      SID =dSID
>> 0008.00 C                   WRITE     STUDREC
>> 0010.00 C                   enddo
>> 0011.00 C                   return
>>
>>   PF code
>>   0002.00      A          R STUDREC
>> 0003.00      A            SID            3S 0
>>
>>   Dsply file
>>                                           CA03(03 'F3=EXIT')
>>  A
>>  A          R DSTUDENT
>>  A                                  5  5'ENTER THE STUDENT ID : '
>>  A            DSID           3S 0I  5 35
>>  A                                 22 20'F3=EXIT'
>>
>   TIA
>   Shiva Shanker
>
>
>
>
> ---------------------------------
> Here's a new way to find what you're looking for - Yahoo! Answers
> Send FREE SMS to your friend's mobile from Yahoo! Messenger Version 8.
Get
> it NOW
> --
> 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 thread ...

Follow-Ups:
Replies:

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.