Converting EXTFLD in a External Ds to Free Format?

[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]

Code: Select all

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