how to keep program line in a order

[thanikondharish]

PROC SQL ;
CREATE TABLE AT AS
SELECT 'LABEL'||' '||STRIP(F1)||' '||"='"||STRIP(F3)||"'" AS NEW,
CASE WHEN UPCASE(F4)='STRING' THEN
STRIP(F1)||' '||"='"||STRIP(F3)||"'"||' LENGTH=$'||STRIP(F5)||'.' END
AS NEW1,
case WHEN CALCULATED NEW1=' ' THEN NEW END AS NEW2
FROM S1 ;
QUIT;

how to keep program lines in a order like see below ANY SHORT CUT KEY OR PROCEUDURE

PROC SQL ;
           CREATE TABLE AT AS
                  SELECT 'LABEL'||' '||STRIP(F1)||' '||"='"||STRIP(F3)||"'" AS NEW,
                 CASE WHEN UPCASE(F4)='STRING' THEN
                STRIP(F1)||' '||"='"||STRIP(F3)||"'"||' LENGTH=$'||STRIP(F5)||'.' END AS NEW1,
                 case WHEN CALCULATED NEW1=' ' THEN NEW END AS NEW2
              FROM S1 ;
QUIT;

[Kurt_Bremser]

Use Ctrl-i

Note that all-uppercase programming is a thing of the computing stoneage and makes code less readable to eyes used to reading.

[thanikondharish]

No it didn't work
when i presss ctrl+i it shows sas system options like see photo

[Kurt_Bremser]

You have to be in an active Enhanced Editor Window (tested with EG 7.15).

In SAS Studio, use this icon:

[PeterClemmensen]

See @ChrisHemedingers blog post Hope For Ugly Programs. 

You can use SAS Enterprise Guide and use CTRL+i to indent your code properly. You can go to Program --> Editor Options and select the Indenter tap to customize how you want the indentation done. 

[RW9]

You should also be able to highlight rows and then press the tab key to see rows indented.  Note, good idea to set the tab key up to insert spaces rather than tabs as tabs render differently on different editors.  

Also, some other tips - avoid using all uppercase, its shouting.  Use a code window - its the {i} above post area for code, this retains formatting and highlights code for easy viewing as;

data want;
  set have;
run;

Use cat() functions rather than lists separated by || as its easy to read (its more important that code be documented and readable at the end of the day).  Don't split code over lines unlessyou really have to.

So to change your code.

proc sql;
  create table at as
  select cat('label ',strip(f1),' ','=',quote(strip(f3))) as new,
         case when upcase(f4)='STRING' then 
                cat(strip(f1),' ',"=",quote(strip(f3)),' length=$',strip(f5),'.') end as new1,
         case when calculated new1=' ' then new end as new2
  from s1;
quit;;

[ballardw]

FWIW you might be able to make your code easier to read and follow by using the CAT functions

Instead of

'LABEL'||' '||STRIP(F1)||' '||"='"||STRIP(F3)||"'" AS NEW,

try

catx(' ','Label', strip(f1),'=', quote(strip(f3)) ) as new

And if the purpose of strip(f1) is to remove possible trailing blanks then the STRIP() is not needed as CATX removes trailing blanks when concatenating values. The CATX function first parameter is a delimiter to separate the other character elements, so the above inserts a space between each bit which is a whole lot nicer than a lot of ||' '|| constructs when it comes to reading the code. The delimiter can be any string literal value.

 The QUOTE function will also place quotes around text in a way that is somewhat easier to understand than  "'"||STRIP(F3)||"'" though it does want the STRIP to avoid having trailing blanks inside the applied quotes.

The more elements you are placing in a string the easier using CATX becomes compared to multiple || operators.