Re: Data Entry Below Subfile

Frank,
 Another thing to check is the use of the function key...CA09 or CF09. 
One returns data the other does not...I just cannot remember which.  The
order that you process the screens is also key.  You might want to try
writing the control record and doing the EXFMT on the FKEYS format.

Just a thought...your mileage may vary.

Regards,
Russell Conerly
Tupelo, MS


>
> Hello,
>
> I've been spinning my wheels all day to get this screen to work.  This is
> my first attempt at writing a subfile display program with data entry
> fields
> below the subfile.
>
> Here's what I'm trying to do:
> I'm try to validate data being entered into the "RQD DATE" field.  When F9
> is
> pressed, I want the program to validate the "RQD DATE" field.  If there is
> invalid data entered, I want the screen to Reverse Image/Position Cursor
> to
> the "RQD DATE" field.
>
> Here's what actually happens when I press F9:
> I've entered invalid data into the "RQD DATE" field and pressed F9.
> Nothing
> happens.  I ran the screen in debug.  I set my break point after the EXFMT
> operation for SUBFILECONTROLRECORD and reran the program and pressed F9.
> The value of "RQD DATE" = *BLANKS.
>
> Does anyone know why the program can't see that "RQD DATE" has a value in
> it?
>
> Thanks,
>
> Frank
>
>
> RPGIV processing for the screen:
> LOAD_SUBFILE
> DOU   WKLOOP02 = 'N'
>
> WRITE FKEYSORTRECORDFORMAT
> EXFMT SUBFILECONTROLRECORD
>
> RESET_ERRORS_FLAGS
>
> (DETERMINE WHICH KEY WAS PRESSED)
> SELECT
>
> WHEN *INKC = *ON
> EVAL WKLOOP02 = 'N'
> LEAVE
>
> WHEN *INKI = *ON
> CHECK_RECORDFORMAT2_FIELDS
> IF ERROR
> ITER(DISPLAY ERROR)
> ENDIF
>
> OTHER
> ENTER_PRESSED
>
> ENDSL
>
> ENDDO
>
>
> Display File:
> subfilecontrolrecord = rows 1 -> 7
> subfilerecordformat  = rows 8 -> 19
> fkeysortrecordformat = rows 21 ->24
> =======================================================================================
>  7/19/04                            Averitt Express, Inc.
> 16:10:13                            File Records Display Screen
>
> OPTIONS:    1=Option 1  2=Option 2
>                                                                               
> PICKUP
> OPT   PRO#              SHIPPER           CITY              ST    ZIP
>    DATE
>       -----------       -------           ------------      --    -----
>     -------
> -     008-1481018       0424115           GRANITEVILLE      SC    29829
>     3/15/99
> -     008-1481063       0424115           GRANITEVILLE      SC    29829
>     3/16/99
> -     008-1481634       0424115           GRANITEVILLE      SC    29829
>     3/18/99
> -     008-1483608       0424115           GRANITEVILLE      SC    29829
>     3/22/99
> -     008-1483952       0424115           GRANITEVILLE      SC    29829
>     3/22/99
> -     008-1484518       0424115           GRANITEVILLE      SC    29829
>     3/24/99
> -     008-1487123       0424115           GRANITEVILLE      SC    29829
>     3/29/99
> -     008-1487665       0424115           GRANITEVILLE      SC    29829
>     3/31/99
>
>
>
>
>
>     BOL:------                            RQD Date: ----
> TRUCK: ----
>    OS+D:------                                APPT: ----
> F3=Exit     F5=Refresh        F8=View/Hide      F9=Sort     Enter=Continue
>
> =======================================================================================
>
>
>
> --
> 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.
>
>