Data commit

Task/Conditional-structures/PL-I/conditional-structures-1.pli

@@ -0,0 +1,14 @@
+if condition_exp then unique_statement; else unique_statement;
+
+if condition_exp then
+    unique_statement;
+else
+    unique_statement;
+
+if condition_exp
+then do;
+    list_of_statements;
+end;
+else do;
+    list_of_statements;
+end;

Task/Conditional-structures/PL-I/conditional-structures-2.pli

@@ -0,0 +1,21 @@
+if condition_exp1 then
+    statement_1;
+else if condition_exp2 then
+    statement_2;
+else if condition_expN then
+    statement_N;
+else
+    statement_E;
+
+if condition_exp1 then do;
+    list_of_statements;
+end;
+else if condition_exp2 then do;
+    list_of_statements;
+end;
+else if condition_expN then do;
+    list_of_statements;
+end;
+else do;
+    list_of_statements;
+end;

Task/Conditional-structures/PL-I/conditional-structures-3.pli

@@ -0,0 +1,16 @@
+select (i); /* select on value of variable */
+  when (1,4,9)
+    do;
+      statement_s;
+    end;
+
+  when (11, 42)
+    do;
+      statement_s;
+    end;
+
+  other /* everything else */
+    do;
+      statement_s;
+    end;
+end;

Task/Conditional-structures/PL-I/conditional-structures-4.pli

@@ -0,0 +1,21 @@
+select; /* select first matching condition */
+  when (i = 4)
+    do;
+      statement_s;
+    end;
+
+  when (this = that)
+    do;
+      statement_s;
+    end;
+
+  when (mystring = 'ABCDE')
+    do;
+      statement_s;
+    end;
+
+  other
+    do;
+      statement_s;
+    end;
+end;