Re: Stupid question

[rob@xxxxxxxxx]

'tis a dark art.  Just the other weekend I wrote my first screen in years. 
 Wrote one for an imbedded SQL presentation I gave.

The concept is:
- Write out the subfile control record with some settings to clear the 
subfile, etc.
- Write out the various subfile records.
- Write out the subfile control record again with some settings to 
actually display the subfile.

Job Interview Question:  Name the three types of subfiles and what the 
differences are.

I got some sample code I can send you.  It's pretty raw and really doesn't 
handle scrolling well.  Worked well for the demo (I made sure I didn't 
fill up the screen).

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Douglas W. Palme" <dpalme@xxxxxxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/19/2004 04:49 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Fax to

Subject
Stupid question






I am trying to create a subfile DDS 

A very simple one at thatâ.displays ONE FRIGGIN FIELD:

Here is the DDS code:

 FMT DP 
.....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++++++
 
 
        *************** Beginning of data 
***************************************************************************************
 
 
0001.00      A                                      REF(RECNOTES)    
041119 
0002.00      A          R RECSFL                    SFL  041119   
0003.00      A            NOTES         75A     4  1  041119   
        ****************** End of data 
******************************************************************************************
 
 

When I compile I get the following error message:

     200                  R RECSFL                    SFL     
     300                    NOTES         75A  O  4  1  75            1  1 
 
 * CPD5238      30* * * * 1   E NMessageF. .E.X.P:A NNo valid recordRfound 
in source. 
  5722SS1 V5R2M0  020719                  Data Description 
DPALMES/RECNOTESSF      11/19/04 16:45:32        Page    3 
                                           Message Summary     
     Total          Informational          Warning        Error Severe     
 
                        (0-9)              (10-19)       (20-29) (30-99)   
 
         1                 0                    0             0 1          
 



I have no idea what I have wrong.

Suggestions?

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