begin

  begin
    recordformat OUT OF SCOPE(integer P, Q)
  end

  recordformatspec RECFM

  record (RECFM) name REC NAME

  record (RECFM) name array REC NAME ARRAY(0:9)

  record (RECFM) map REC MAP
    result == REC NAME
  end

  recordformat DERIVED (c
    integer I,
    record (REC FM) name LINK)

  record format RECFM (real R)

  record (RECFM) ACTUAL

  REC NAME == ACTUAL

  REC NAME_R = 3.14

endofprogram