%BEGIN
%RECORDFORMAT F(%INTEGER A,B)
%RECORD(F)%ARRAY A(1:10)
%STRINGFN FN(%RECORD(F)%ARRAYNAME A)
%RESULT="A"
%END
%OWNSTRING(5) OS="BCD"
%INTEGER I
%STRING(30) RES
      A(I)_A=ADDR(OS) %FOR I=1,1,10
      RES="XYZ".FN(A)."PQR".STRING(A(I)_A)."END"
      %IF RES="XYZAPQRBCDEND" %THEN PRINTSTRING("TEST OK") %C
         %ELSE PRINTSTRING("FAILED =>".RES)
%ENDOFPROGRAM
