D RPGFIELD_T      DS                  QUALIFIED TEMPLATE
     D  SEQUENCE                      5S 0 INZ
     D  NAME                         10A   INZ

     D RPGDS_T         DS                  QUALIFIED TEMPLATE
     D  FILE                         10A   INZ
     D  COUNT                        10I 0 INZ
     D  FIELD                              LIKEDS(RPGFIELD_T) DIM(1500)

     D RPGDS           DS                  LIKEDS(RPGDS_T)
     D K               S             10I 0

       // Something else loads the data into the DS

       FOR K = 1 TO RPGDS.COUNT;
           // THIS LINE IS MISSING THE SUBFIELD BUT COMPILES OKAY
           IF %SUBST(RPGDS.FIELD(K):1:2) <> 'IY';
           // THIS LINE IS HOW IT SHOULD HAVE BEEN CODED
           // IF %SUBST(RPGDS.FIELD(K).NAME:1:2) <> 'IY';
               ITER;
           ENDIF;

           DSPLY  RPGDS.FIELD(K).NAME;

       ENDFOR;

       *INLR = *ON;
       RETURN;