화면에서 매크로 변수 값 입력

거의 20년전에 베이직이나 포트란으로 코딩하던 향수를 불러 일으키네요. ^^

화면에서 매크로 변수값을 입력하는 간단한 예제 입니다.

%WINDOW INFO

  #5 @6 '작업년월을 입력하세요(jobbaseym)[yyyymm]:'

  #5 @50 JOBBASEYM 6 ATTR=UNDERLINE;

%DISPLAY INFO;

%LET JOBBASEYM=%TRIM(&JOBBASEYM);

%LET YEAR=%SUBSTR(&JOBBASEYM,1,4);

%PUT *********************;

%PUT [작업년월]:&JOBBASEYM;

%PUT [작업연도]:&YEAR;

%PUT *********************;

입력 화면에 컬러를 추가하는 예제입니다.

%window info color=gray  

  #3 @5 '환영합니다'

  #5 @5 'ID를 입력하세요:'                                                                                                          

  #5 @26 id 8 attr=underline                                                                                                            

  #7 @5 '오늘은 '                                                                                                                    

  #7 @15 "%sysfunc(today(),yymmdds10.)" attr=rev_video color=pink

  #7 @25 '일 입니다'

  #12 @29 'Press ENTER to continue.';

%display info;                                                                                                                          

                                                                                                                                        

%put [입력된 ID : &id];