文件读写：
程序的功能读取一个文件并将文件的内容打印在控制台上面
/* rexx */
indsn=user.catlog.name
"alloc da("indsn") file(fpin) shr resue"
"execio * diskr fpin (stem line. finsh)"
do i=1 to line.0
say line.i
end
alloc 为TSO command
REXX 执行读写程序的指令是 EXECIO
SYSTAX:
EXECIO {LINES_YOU_WANT_TO_RW}
DISKR/W DDANME{}
READ PARAMETER
DISKR FILE {FIFO/FILO/STEM VAR [OPEN][FINIS][SKIP]}
SKIP 跳过N行
WRITE PARAMTER
DISKW/RU FILE {STEM VAR [FINSI]}
阅读(1877) | 评论(0) | 转发(0) |
