Change the pipe from 'pipe (endchar@) into 'pipe (endchar |)
But, apart from that I find the code realy ugly. Have a look at our Telecourses: TCVM1 learns you some additional REXX techniques and styles etc TCVM2 is to learn PIPEs http://www.vm.ibm.com/download/packages/descript.cgi?TCVM1 http://www.vm.ibm.com/download/packages/descript.cgi?TCVM2 2007/3/5, Mikhael Ramirez Joaquin <[EMAIL PROTECTED]>:
Hi Everybody, I'm doing the renaming of the history log of PTK and found a sample FCXRENAM EXEC from the web. I tried to use it to rename my history log file for perfTK but when I run the exec, it gives me an error like this: *fcxrenam * FPLSCB014E Option endchar@ not valid DMSCPY002E INPUT file * PERFLOG2 A not found FPLSCB014E Option endchar@ not valid DMSSTT048E Invalid filemode FM Ready; T=0.01/0.01 11:51:49 Below is the* FCXRENAM EXEC* im trying to run*:* /* Sample FCXRENAM EXEC for PERFKIT */ /* levels specifies how many levels to keep on the 195 disk */ levels = 5 'ACC 195 J' /* keep "levels" levels of PERFLOGnfiles */ 'set dateform iso' 'pipe (endchar@) cmslistfile * PERFLOG* ' fm '(date noh', ' | sort 57.19 ', ' | spec w1 1 w2 10 w3 19', ' | stem howmany.' /* erase oldest if enough levels are there */ if howmany.0 >= levels then erase howmany.1 /* copy oldest from A disk to 195 disk */ 'copy * PERFLOG2 A = = ' fm ' (oldd' /* keep "levels" levels of HISTLOGn files */ 'pipe (endchar@) cmslistfile * HISTLOG* ' fm '(date noh',** ' | sort 57.19 ', ' | spec w1 1 w2 10 w3 19', ' | stem howmany.' /* erase oldest if enough levels are there */ if howmany.0 >= levels then erase howmany.1 /* copy oldest from A disk to 195 disk */ 'copy * HISTLOG2 A = = ' fm ' (oldd' 'REL J' Exit I don't know anything about PIPE. Would somebody help me! Thanks, Mikhael
-- Kris Buelens, IBM Belgium, VM customer support
