home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The C Users' Group Library 1994 August
/
wc-cdrom-cusersgrouplibrary-1994-08.iso
/
listings
/
v_10_04
/
1004107b
< prev
next >
Wrap
Text File
|
1992-02-10
|
228b
|
17 lines
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;
...