RE: Erroneous subfile "error"

Your line 24 footer: that has to be a separate format if you're writing a
command key legend.

-rf

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-
> bounces@xxxxxxxxxxxx] On Behalf Of CarollaT@xxxxxxxxxxxxxx
> Sent: Tuesday, March 02, 2004 12:16 PM
> 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.