Converting EXTFLD in a External Ds to Free Format?
Posted: Mon Feb 19, 2024 3:57 am
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;