Converting EXTFLD in a External Ds to Free Format?

Discussions relating to writing software in ILE RPG (RPG IV). This includes both fixed and free format RPG.
Post Reply
bbunney
Posts: 45
Joined: Wed Jul 06, 2022 7:52 pm

Converting EXTFLD in a External Ds to Free Format?

Post by bbunney »

I have the code for an external DS below that doesn't covert to free format. I just completed converting a 4000+ line program to Free except for this DS. I know Scott sometimes complains about the code looking sloppy. I put it in the code /code block. Not sure what else to do.

Code: Select all


D CRSSTL        E DS                EXTNAME(CRSSTL) INZ
D  TTYPEXX     E                     EXTFLD(TTYPE@@)

// I tried this but got this error. I tried putting TTYPE@@ in single quotes. Nope.    
*RNF3608 20      1 The parameter for the EXTNAME or EXTFLD keyword must be a 
                   character literal or constant.                            

Dcl-DS CRSSTL   EXTNAME('CRSSTL') INZ;
   TTYPEXX       EXTFLD(TTYPE@@);
End-Ds;
   
Scott Klement
Site Admin
Posts: 652
Joined: Sun Jul 04, 2021 5:12 am

Re: Converting EXTFLD in a External Ds to Free Format?

Post by Scott Klement »

Code: Select all

Dcl-DS CRSSTL EXTNAME('CRSSTL') INZ;
   TTYPEXX    EXTFLD('TTYPE@@');
End-Ds;
Post Reply