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;
    ...

