Re: insert a value into a physical file through disply file its updateing as '0' -- RPG400-L

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

Subject: Re: insert a value into a physical file through disply file its updateing as '0'
From: Booth Martin <booth@xxxxxxxxxxxx>
Date: Tue, 15 Aug 2006 09:34:32 -0500
List-archive: <http://archive.midrange.com/rpg400-l>
List-help: <mailto:rpg400-l-request@midrange.com?subject=help>
List-id: RPG programming on the AS400 / iSeries <rpg400-l.midrange.com>
List-post: <mailto:rpg400-l@midrange.com>
List-subscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=unsubscribe>

The display file line has to have a "B" for both input/output. It isblank, which defaults to "O" or output only, and you are outputting azero so it reads a zero.


At least, that'd be my best guess.



koti shiva wrote:

Hi all,
When i am trying to insert a value into a physical file through disply file its updateing as '0'bellow is the code, any body can help me out.....RPG Code0002.00 FSTUDENT IF A E DISK0003.00 FSTDNTDSP CF E WORKSTN0004.00 C DOW *IN03=*OFF0005.00 C EXFMT DSTUDENT0006.00 C0007.00 C EVAL DSID = SID0008.00 C WRITE STUDREC0009.00 C0010.00 C enddo0011.00 C returnPF code0002.00 A R STUDREC0003.00 A SID 3S 0Dsply fileCA03(03 'F3=EXIT')AA R DSTUDENTA 5 5'ENTER THE STUDENT ID : 'A DSID 3S 0I 5 35A 22 20'F3=EXIT'TIAShiva Shanker
                                
---------------------------------
Here's a new way to find what you're looking for - Yahoo! AnswersSend FREE SMS to your friend's mobile from Yahoo! Messenger Version 8. Get it NOW

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.