langs a-z

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

@@ -0,0 +1,14 @@
+if condition then
+  statement;
+else
+  statement;
+
+if condition then
+  do;
+    statement-1;
+    .
+    .
+    statement-n;
+  end;
+else
+  statement;

Task/Conditional-structures/PL-I/conditional-structures-2.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-3.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 (string = 'ABCDE')
+    do;
+      statement(s)
+    end;
+
+  other
+    do;
+      statement(s)
+    end;
+end;