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 */