RE: Erroneous subfile "error"

Carolla,

Yes the subfile does overlap;

Everything in your control record is fine, until,
the last two lines of code for line 24. 

The control can only have fields "above" the subfile,
to place the data at the bottom as you wish,
you need another record to write out.

What I usually do is something like the following in my program:

 * Display Screen One with command keys and messages   
C                   WRITE     BOTTOM                   
C                   EXFMT     SUBFCTL   

The screen "bottom" contains the data "below" the subfile that I want 
to display on the screen also.


HTH

Mark A. Manske
               

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
CarollaT@xxxxxxxxxxxxxx
Sent: Tuesday, March 02, 2004 11:16 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Erroneous subfile "error"


Okay, this one has me stumped, and I need help.  I am trying to get the
following subfile to compile, and I keep getting the error 

CPF7812:  Subfile control record overlaps subfile record

But it doesn't overlap anywhere I can tell.  What gives?  

A          R RBCX1SF                   SFL
A  54                                  SFLNXTCHG
A            CDCHOICE       1A  I  7  3
A            CODERID        5S 0O  7  6
A            CODERNAME     50A  O  7 14
A          R RBCX1SFC                  SFLCTL(RBCX1SF)
A                                      OVERLAY
A  51                                  SFLDSP
A  52                                  SFLDSPCTL
A  53                                  SFLCLR
A  51                                  SFLEND(*MORE)
A                                      SFLSIZ(50)
A                                      SFLPAG(15)
A                                      SFLCSRRRN(&ATRECORD)
A            POSITIONAT     4S 0H      SFLRCDNBR
A            RRN            4S 0H
A            ATRECORD       5S 0H
A            THEDATE         L     2 68
A                                  2 25' Batch-Coder Cross Reference '
A                                      COLOR(WHT)
A                                      DSPATR(RI)
A                                  3 32' Coder ID Lookup '
A            THETIME         T     3 70
A                                  4  3'Place a 1 next to the coder'
A                                      COLOR(GRN)
A                                  5  3'1  ID      Name                   -
A                                                                 '
A                                      DSPATR(UL)
A                                      COLOR(WHT)
A                                 24 23'Enter=Continue F3=Exit  F12=Cancel'
A                                      COLOR(GRN)

Tony Carolla
MedAmerica Billing Services, Inc. 
_______________________________________________
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.