Re: Subfile compile problem

[MWaite@xxxxxxxxxxxx]

Hi Jim!

Have you got a WINDOW keyword on the subfile control record by any chance? 
 That would mysteriously shorten your working width by a few characters...

Mike

rpg400-l-bounces@xxxxxxxxxxxx wrote on 19/04/2005 16:19:50:

> I am reworking an old subfile program.  I am getting errors when I 
compile 
> the display file that indicates that the position (78) is not valid. 
> Segment of code and error are attached.  This is probably something very 

> simple that I'm overlooking-but it is totally escaping me.  If I change 
> the position to 77, it will compile, but naturally it overlaps the 
> previous field and doesn't show.  Anyone see what I'm missing?  (And the 

> dspsize is defined as 80 wide.)
> A* SUBFILE SCREEN 1 * 
> A******************** 
> A          R SFL71S3                   SFL 
> A            SFOPTN         1A  B  9  2VALUES(' ' '2' '4' '5') 
> A                                      CHECK(ER) 
> A  49                                  DSPATR(PC) 
> A            SHTYPE    R        O  9  4REFFLD(ZZR47/TYPE47 ZZP47) 
> A            SFACCN    R   12   O  9  9REFFLD(ACCN47 ZZP47) 
> A            SFDESC        35A  O  9 22 
> A  68                                  DSPATR(HI) 
> A            SFAMT     R        O  9 58REFFLD(AMT47 ZZP47) 
> A                                      EDTCDE(J) 
> A            SFDBIT         2A  O  9 72 
> A            SFCRDT         2A  O  9 75 
> A*         HIDDEN FIELDS 
> A            SHDESC    R        H      REFFLD(ACDESC FLP003) 
> A            SHCDXT    R        H      REFFLD(CDXT47 ZZP47) 
> A            SFACCF         1A  O  9 78 
> *                       CPD7840-******
> 
> 
************************************************************************** 

> 
> 
>      ID      Severity  Number
> 
> * CPD7840      30        1      Message . . . . :   Position number for 
> field not valid.
> 
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
> 
> Thank in advance
> 
> 
>  Jim Hawkins
> 
> -- 
> 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.
> 
>