|
|
| Author |
Message |
Surya Kira nPasumarthi
New User
Joined: 21 Nov 2007
Posts: 9
Location: hyderabad
|
|
|
|
hi,, i want to develop code to read a sequentail file and display data based on some tso command...
for example...my PS look like
e0010 - pfmr2000, pfmr3000
e0020 - pfmr1020, pfmr2020
when i give a tso command..
tso error e0010
its shud....throw me
pfmr2000
pfmr3000
please let me know, if it is possible using rexx and moreover... command to read a sequentail file... |
|
| Back to top |
|
 |
References
|
 Posted: Wed May 14, 2008 11:07 am Post subject: Re: reading sequential file...using tso command |
|
|
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 3207
Location: Brussels once more ...
|
|
|
|
Is your REXX / CLIST library concatenated into SYSEXEC and/or SYSPROC ?
And, my phsychic powers are always low on Wednesday, so please post your code too. |
|
| Back to top |
|
|
Pedro
Senior Member
Joined: 01 Sep 2006
Posts: 399
Location: work
|
|
|
|
To read a file, use ALLOC and EXECIO:
| Code: |
Address TSO
"ALLOC F(INFILE) DSN('my.seq.dsn') SHR REU"
"EXECIO * DISKR INFILE ( FINIS STEM LINES."
"FREE F(INFILE)" |
In the example, a stem variable, lines., will contain the records.
Put your program in SYSPROC or SYSEXEC concatenation. |
|
| Back to top |
|
|
|
|
