...a little less expensive typing-wise

Voc's TS entry 

0001: PQ                           
0002: HSELECT                      
0003: H EVAL "SUBR(                
0004: A2                           
0005: H )" FROM VOC FIRST 1;       
0006: P                            
       
tcl>TS 'AGE.DATE',-2222,42    

SUBR ( AGE.DATE , - 2222 , 42 )    
SUBR( 'AGE.DATE',-22               
22,42  )............               
                                   
13118                              
                                   
Sample of 1 records listed.        

but i want more!...what i would like to do is 

TS age.date 1,2 
|    |      |
|    |      |
|    |      +-- list of parameters
|    +--------- subroutine name without 's
+-------------- verb

so the name of the subroutine is A2 and the parameters become A3...
how do i build 'age.date' without the leading/trailing spaces ?

PQ                                     
HSELECT                                
H EVAL "SUBR('                         
A2                                     
H ')" FROM VOC FIRST 1;                
P                                      

SUBR (  AGE.DATE  )                                            
SUBR( ' AGE.DATE ' )                                           
                                                               
Program ".ITYPE.": pc = 0, Incorrect VOC entry for  AGE.DATE . 
Program ".ITYPE.": pc = 0, Unable to load subroutine.          


This e-mail, including attachments, may include confidential and/or 
proprietary information, and may be used only by the person or entity to 
which it is addressed. If the reader of this e-mail is not the intended 
recipient or his or her authorized agent, the reader is hereby notified 
that any dissemination, distribution or copying of this e-mail is 
prohibited. If you have received this e-mail in error, please notify the 
sender by replying to this message and delete this e-mail immediately. 
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to