Re: Subfile - *blanks to select field

["Booth Martin" <Booth@xxxxxxxxxxxx>]

* Any changes? 
C   ReadC Sfla 
C   Dow Not %EOF
C   Select 
C   When Opt = 'N'
C   Exsr OptNsubroutine 
C   Eval Opt = ' '
C   Update Sfla
C   ReadC (E) Sfla
C   EndSl
C   EndDo 
 
 
Se if this code snippet turns on a light bulb. :) 
 
---------------------------------------------------------
Booth Martin http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: Tuesday, October 07, 2003 10:33:49
To: RPG programming on the AS400 / iSeries
Subject: Re: Subfile - *blanks to select field
 
I am writing a program where the user selects one of the records on the
first page and I display different fields in the second subfile page
The problem I am having is clearing the selection field. I am moving
*blanks to the select field before I write the footer & header and exfmt
subfile control. I also tried using the eval statement. The field is not
getting blanked out.
The select field in the subfile is coded for input & output.
What am I doing wrong?
 
Rose Vaness
Programmer/Analyst
906-863-4491 Ext. 133
e-mail: rvaness@xxxxxxxxxxxxxxxxx