<<< 前へ   TOP   次へ>>>

複文

複文の構文は以下の通りです。

　{ 文; [文; ....] }　　[]の中身は省略可能です。

{ で始まり、文を ; で区切りながら記述し、最後を } でくくります。
ここでいう文とは以下に述べる１０種類の文です。

• ローカル変数定義文
• システム手続き文
• IF文
• WHILE文
• REPEAT文
• FOR文
• サブルーチン・ユーザー関数文
• 代入文
• CASE文
• TRY文

SASFは記述された順に文を解釈・実行していきます。

　複文の例)

　{
　  InputRegMask($Work);
　  IF (#_RESULT==1) THEN {
　    SetWorkMask($Work);
　  };
　}

　{
　  VAR $Work,#hhh;
　  IF (#_FILENUM==0) THEN { Exit(); };
　    CopyStr($Work,$_CUR_ATTR,5,1);
　    IF ($Work=='D') THEN {
　      $Work=$_CUR_DIRWITHYEN+$_CUR_FILENAMEEXT;
　      ChDir($Work);
　    } ELSE {
　      PosStr(#hhh,$_CUR_FILENAMEEXT);
　      IF (#hhh==0) THEN {
　        $Work=$_CUR_FILENAMEEXT;
　      } ELSE {
　        $Work='"'+$_CUR_FILENAMEEXT+'"';
　      };
　      Relative($Work,'',1,0);
　    };
　}

<<< 前へ   TOP   次へ>>>