A Macro Gem for Friday.

classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

A Macro Gem for Friday.

David Marso
Administrator
Deliberately uncommented in order for your discovery processes to be unhindered by preconception.

DEFINE !A ()
a,b,c,d,e,f,g
!ENDDEFINE.

DEFINE !B ()
h,i,j,k,l,m,n
!ENDDEFINE.


DEFINE !ANY (!POS !CHAREND('/') / !POS !CMDEND )
!IF ( !HEAD(!1) !NE !NULL)!THEN
COMPUTE !CONCAT('Calc_',!HEAD(!1),'_',!HEAD(!2))=
        ANY(!QUOTE(!HEAD(!1)),!CONCAT('!',!HEAD(!2)) ) .
!ANY !TAIL(!1) / !TAIL(!2) ).
!IFEND
!ENDDEFINE.

SET MPRINT ON.
SET PRINTBACK ON.

DATA LIST FREE /a b c d e f g h i j k  l m n (14A1).
BEGIN DATA
A V B S U S I C V S E H J K  
U S H N M K O E W A C D B A
END DATA.


!ANY  S W /A B .
LIST.


Please reply to the list and not to my personal email.
Those desiring my consulting or training services please feel free to email me.
---
"Nolite dare sanctum canibus neque mittatis margaritas vestras ante porcos ne forte conculcent eas pedibus suis."
Cum es damnatorum possederunt porcos iens ut salire off sanguinum cliff in abyssum?"
Loading...