大文字を小文字に変更します。
種類: | 自動呼び出しマクロ |
要件 | MAUTOSOURCEシステムオプション |
& % ' " ( ) + − * / < > = ¬ ^ ~ ; , # blank AND OR NOT EQ NE LE LT GE GT IN
%macro initcaps(title); %global newtitle; %let newtitle=; %let lastchar=; %do i=1 %to %length(&title); %let char=%qsubstr(&title,&i,1); %if (&lastchar=%str( ) or &i=1) %then %let char=%qupcase(&char); %else %let char=%qlowcase(&char); %let newtitle=&newtitle&char; %let lastchar=&char; %end; TITLE "&newtitle"; %mend; %initcaps(%str(sales: COMMAND REFERENCE, VERSION 2, SECOND EDITION))
TITLE "Sales: Command Reference, Version 2, Second Edition";