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

["Michael Ryan" <michaelrtr@xxxxxxxxx>]

Reverse your eval...this isn't CP/M...

On 8/15/06, koti shiva <shivakk4u@xxxxxxxxxxx> 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 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
> 0006.00 C
> 0007.00 C                   EVAL      DSID = SID
> 0008.00 C                   WRITE     STUDREC
> 0009.00 C
> 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.