Try 'pipe stem mondata. | find CICS | specs 1-16 1 | >> SUMUSE LOG A'
Peter (Listening to a very fine recording of Messiah) -----Original Message----- From: The IBM z/VM Operating System [mailto:[email protected]] On Behalf Of Wilson, Roger Sent: December 12, 2008 14:22 To: [email protected] Subject: Re: Using REXX/VM 'pipe stem mondata. | find CICS | specs 1-16 1 >> SUMUSE LOG A' I get FPLSPE111E Operand NEWEST is not valid FPLMSG003I ... Issued from stage 3 of pipeline 1 FPLMSG001I ... Running "SPECS 1-16 1 >> NEWEST LOG A" -----Original Message----- From: The IBM z/VM Operating System [mailto:[email protected]] On Behalf Of Aria Bamdad Sent: Friday, December 12, 2008 12:56 PM To: [email protected] Subject: Re: Using REXX/VM On Fri, 12 Dec 2008 12:28:22 -0600 Wilson, Roger said: > >I am writing an exec that reads a file pulls certain lines out and write >this data to an output file. Simple. > snip... > Roger, Take advantage of PIPE command to do all the work for you. Something like this should get you started: 'pipe vmc' where 'user | strip | stem mondata.' 'pipe stem mondata. | find CICS | specs 1-16 1 >> SUMUSE LOG A' repeat above for other uses or write a multi stage pipeline to do all in one step. You can use the same 'specs' stage to pull the parts of the records you want. You may have to modify the 1-16 field as I have a placed a strip stage that removes the leading blanks. Aria >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 =3D '' then where =3D '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 > > > >------_=_NextPart_001_01C95C87.6F66CCB8 >Content-Type: text/html; > charset="us-ascii" >Content-Transfer-Encoding: quoted-printable > ><html> > ><head> ><meta http-equiv=3DContent-Type content=3D"text/html; = >charset=3Dus-ascii"> ><meta name=3DGenerator content=3D"Microsoft Word 11 (filtered)"> ><style> ><!-- > /* Style Definitions */ > p.MsoNormal, li.MsoNormal, div.MsoNormal > {margin:0in; > margin-bottom:.0001pt; > font-size:12.0pt; > font-family:"Times New Roman";} >a:link, span.MsoHyperlink > {color:blue; > text-decoration:underline;} >a:visited, span.MsoHyperlinkFollowed > {color:purple; > text-decoration:underline;} >span.EmailStyle17 > {font-family:Arial; > color:windowtext;} >@page Section1 > {size:8.5in 11.0in; > margin:1.0in 1.25in 1.0in 1.25in;} >div.Section1 > {page:Section1;} >--> ></style> > ></head> > ><body lang=3DEN-US link=3Dblue vlink=3Dpurple> > ><div class=3DSection1> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'>I am writing an exec that reads a file pulls certain = >lines >out and write this data to an output file. Simple.</span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'>I am trying to use the CHARIN() and CHAROUT and I am = >failing >miserably. </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'>Right now I queue the commands:</span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> parse arg >where &n= >bsp; & nb= >sp; &n bs= >p; &nb sp= >; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> if where =3D '' then where =3D 'PERFSVM >' &nbs p;= >   ;&= >nbsp; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> 'PIPE VMC ' where ' USER >', &nb sp= >; &nbs p;= >   ; > </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'>' | stem results. >', &nb sp= >; &nbs p;= >   ;&= >nbsp; &n= >bsp; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'>' | > FCX112 RESULTS >A' &nb sp= >; &nbs p;= >   ;&= >nbsp; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE >'BOTTOM' &nb sp= >; &nbs p;= >   ;&= >nbsp; &n= >bsp; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE 'GET >RUNDATE' = >   ;&= >nbsp; &n= >bsp; & nb= >sp; </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE 'XEDIT FCX112 = >RESULTS >A' &nb sp= >; &nbs p;= > ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE >'/CICS' &nbs p;= >   ;&= >nbsp; &n= >bsp; & nb= >sp; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE >'PUT' &n= >bsp; & nb= >sp; &n bs= >p; &nb sp= >; > </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE >'QQUIT' &nbs p;= >   ;&= >nbsp; &n= >bsp; & nb= >sp; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE >'GET' &n= >bsp; & nb= >sp; &n bs= >p; &nb sp= >; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE 'XEDIT FCX112 = >RESULTS >A' &nb sp= >; &nbs p;= > ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE >'/DOSVSE' = >   ;&= >nbsp; &n= >bsp; & nb= >sp; </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE >'PUT' &n= >bsp; & nb= >sp; &n bs= >p; &nb sp= >; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE >'QQUIT' &nbs p;= >   ;&= >nbsp; &n= >bsp; & nb= >sp; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE >'GET' &n= >bsp; & nb= >sp; &n bs= >p; &nb sp= >; > </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE 'XEDIT FCX112 = >RESULTS >A' </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE >'/COMP' &nbs p;= >   ;&= >nbsp; &n= >bsp; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE >'PUT' &n= >bsp; & nb= >sp; &n bs= >p; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE >'QQUIT' &nbs p;= >   ;&= >nbsp; &n= >bsp; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE >'GET' &n= >bsp; & nb= >sp; &n bs= >p; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> QUEUE >'FILE'   ;&= >nbsp; &n= >bsp; & nb= >sp; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> &nbs p;= > >'XEDIT SUMUSE LOG A >(NOM' &n= >bsp; & nb= >sp; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'>'WAKEUP >+00:01:00' & nb= >sp; &n bs= >p; &nb sp= >; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'>EXIT &n= >bsp; ></span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'>This puts the whole line. I just want to put the = >first 16 characters >of the line found. </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'>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.</span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'>I’m pretty green as far as REXX/VM is = >concerned, so >any help would be appreciated.</span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'>Sincerely, </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'> </span></font></p> > ><p class=3DMsoNormal><font size=3D2 face=3DArial><span = >style=3D'font-size:10.0pt; >font-family:Arial'>Roger Wilson = >   ;&= >nbsp; &n= >bsp; & nb= >sp; &n bs= >p; &nb sp= >; &nbs p;= > </span></font></p> > ></div> > ></body> > ></html> > >------_=_NextPart_001_01C95C87.6F66CCB8-- > 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.
