If I understand the problem correctly, this should do the trick.
parse arg where
if where = '' then where = 'PERFSVM '
'PIPE (endchar $)'
'VMC ' where ' USER ',
'| a: locate /CICS/',
'| c: fanin',
'| specs 1-16 1',
'| literal' rundate,
'| >> SUMUSE LOG A '
'$',
'a:',
'| b: locate /DOSVSE/',
'| c:',
'$',
'b:',
'| locate /COMP/',
'| c:'
'WAKEUP +00:01:00'
EXIT
For your second problem, a 'SPECS' pipeline stage like '| specs 35-65
1-30' or possibly '| specs 35-65 1-30 1-35 35-*' if you want to keep the
data originally in columns 1-35.
Peter
-----Original Message-----
From: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] On
Behalf Of Wilson, Roger
Sent: December 12, 2008 13:28
To: IBMVM@LISTSERV.UARK.EDU
Subject: Using REXX/VM
I am writing an exec that reads a file pulls certain lines out and write
this data to an output file. Simple.
I am trying to use the CHARIN() and CHAROUT and I am failing miserably.
Right now I queue the commands:
parse arg where
if where = '' then where = 'PERFSVM '
'PIPE VMC ' where ' USER ',
' | stem results. ',
' | > FCX112 RESULTS A'
QUEUE 'BOTTOM'
QUEUE 'GET RUNDATE'
QUEUE 'XEDIT FCX112 RESULTS A'
QUEUE '/CICS'
QUEUE 'PUT'
QUEUE 'QQUIT'
QUEUE 'GET'
QUEUE 'XEDIT FCX112 RESULTS A'
QUEUE '/DOSVSE'
QUEUE 'PUT'
QUEUE 'QQUIT'
QUEUE 'GET'
QUEUE 'XEDIT FCX112 RESULTS A'
QUEUE '/COMP'
QUEUE 'PUT'
QUEUE 'QQUIT'
QUEUE 'GET'
QUEUE 'FILE'
'XEDIT SUMUSE LOG A (NOM'
'WAKEUP +00:01:00'
EXIT
This puts the whole line. I just want to put the first 16 characters of
the line found.
Also I need to pull data from columns 35 to 65 of a file and put it into
pos 1 -30 of the output file.
I'm pretty green as far as REXX/VM is concerned, so any help would be
appreciated.
Sincerely,
Roger Wilson
The information transmitted is intended only for the person or entity to which
it is addressed and may contain confidential and/or privileged material. Any
review retransmission dissemination or other use of or taking any action in
reliance upon this information by persons or entities other than the intended
recipient or delegate is strictly prohibited. If you received this in error
please contact the sender and delete the material from any computer. The
integrity and security of this message cannot be guaranteed on the Internet.
The sender accepts no liability for the content of this e-mail or for the
consequences of any actions taken on the basis of information provided. The
recipient should check this e-mail and any attachments for the presence of
viruses. The sender accepts no liability for any damage caused by any virus
transmitted by this e-mail. This disclaimer is property of the TTC and must
not be altered or circumvented in any manner.
