Listing 4

DCL 1 RECIN,
    2 NAME     CHAR(30),
    2 ADDRESS  CHAR(20),
    2 city     CHAR(15),
    2 STATE    CHAR(2),
    2 ZIP      CHAR(5);

    ...

    READ FILE (FILIN) INTO (INN);
    STRING(RECIN) = INN;
    ...
/* End of File */