RE: while exit from the dsply fiel its adding a blank record with 0'

<snip>
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
</snip>
That's priceless!!! 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Steve Landess
Sent: Friday, August 18, 2006 8:18 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: while exit from the dsply fiel its adding a blank record
with 0'

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:2
004-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.