Re: Help with column specific output using Rexx

Thread View: bit.listserv.tsorexx

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by Walter Pachl Fri, 26 Apr 2013 18:46

#150

Author: Walter Pachl
Date: Fri, 26 Apr 2013 18:46

16 lines
1802 bytes

Say should be EXECIO ?!? (or lineout on the PC)
Untested:
"ALLOC FI(IN) DA('...') SHR REUSE"
"ALLOC FI(OUT) DA('...') SHR REUSE"
'EXECIO * DISKR IN (STEM L. FINIS'
sep='  '
Do i=1 To l.0
  Parse Var l.i var1 var2 var3
   o.i=LEFT(var1,8) SEP RIGHT(var2,6) SEP FORMAT(var3,5)
  End
'EXECIO' l.0 'DISKW OUT (STEM O. FINIS'
Walter Pachl

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LISTSERV@VM.MARIST.EDU with the message: INFO TSO-REXX

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads