File Name using INFDS(SCREEN) - ILE/RPG IV

[B.Morris]

Leif, you can get the 10-byte name of the real file in positions 83-92. This name might be different from the internal (F-spec) name if you have an override. After an error on a file, you can get its 10-byte internal name from the PSDS in positions 175-184. Barbara "Leif R. Thomas" wrote: > > I want to use the internal file feedback information to obtain a > display file name. (INFDS) > > Scenario: > (I will place my code at the bottom of the message.) > > Display file name is 10 characters long. > This works correctly with the file name field defined as 8A - the last > two characters of the 10 char file name are truncated. When the field > is defined as a 10A - the RPGLE program will not compile. I am finding > that the file name is in the first 8 positions of the data structure. > Is this true? and is there a work around besides hard boding the > screen name on the display or reaming the DSPFD name? > > Thanks for any suggestions you may have. > Lief R. Thomas > Cornerstone Solutions, In. > > My Code is as follows: > > QDDSSRC - DSPFD > > A DSPFD 10A I 2 61 > > QRPGLESRC - RPGLE > > FAGDISINPUTCF E WORKSTN INFDS(SCREEN) > > D SCREEN DS > D DSPF *FILE > > Compile Error Message: > > 000001=OHEADER > 000002=O USRNAM 30A CHAR 30 > 000003=O DSPF 40A CHAR 10 > ======> aaaaa > *RNF6033 30 a 6000003 Length of externally-described field is not the > same as a prior definition; specification is ignored

[Guest.Visitor]

I want to use the internal file feedback information to obtain a display file name. (INFDS) Scenario: (I will place my code at the bottom of the message.) Display file name is 10 characters long. This works correctly with the file name field defined as 8A - the last two characters of the 10 char file name are truncated. When the field is defined as a 10A - the RPGLE program will not compile. I am finding that the file name is in the first 8 positions of the data structure. Is this true? and is there a work around besides hard boding the screen name on the display or reaming the DSPFD name? Thanks for any suggestions you may have. Lief R. Thomas Cornerstone Solutions, In. My Code is as follows: QDDSSRC - DSPFD A DSPFD 10A I 2 61 QRPGLESRC - RPGLE FAGDISINPUTCF E WORKSTN INFDS(SCREEN) D SCREEN DS D DSPF *FILE Compile Error Message: 000001=OHEADER 000002=O USRNAM 30A CHAR 30 000003=O DSPF 40A CHAR 10 ======> aaaaa *RNF6033 30 a 6000003 Length of externally-described field is not the same as a prior definition; specification is ignored

[Guest.Visitor]