Anonymous user
Fixed length records: Difference between revisions
m
→{{header|REXX}}: changed whitespace and comments.
(→{{header|Lua}}: added Lua solution) |
m (→{{header|REXX}}: changed whitespace and comments.) |
||
Line 1,204:
=={{header|REXX}}==
<lang rexx>/*REXX pgm reads
iFID= 'FIXEDLEN.TXT' /*the file's filename (used for input).*/
call charin iFID, 1, 0 /*open the file, point rec pointer to 1*/
/* [+] just to be safe, position file.*/
#= j - 1 /*adjust # of records (J is 1 too high)*/
{{out|output|text= when using the default input file:}}
{{out}}
|