CDE

Task/Conditional-structures/REXX/conditional-structures-1.rexx

@@ -0,0 +1,22 @@
+if  y  then x=6                        /* Y must be either   0   or   1 */
+
+
+if t**2>u then x= y
+          else x=-y
+
+
+if t**2>u then do j=1 to 10; say prime(j); end
+          else x=-y
+
+
+if z>w+4 then do
+              z=abs(z)
+              say 'z='z
+              end
+         else do;  z=0;  say 'failed.';  end
+
+
+if x>y & c*d<sqrt(pz) |,
+   substr(abc,4,1)=='@' then if z=0 then call punt
+                                    else nop
+                        else if z<0 then z=-y

Task/Conditional-structures/REXX/conditional-structures-2.rexx

@@ -0,0 +1,13 @@
+                     /*the  WHEN  conditional operators are the same as */
+                     /*the   IF   conditional operators.                */
+  select
+  when t<0       then z=abs(u)
+  when t=0 & y=0 then z=0
+  when t>0       then do
+                      y=sqrt(z)
+                      z=u**2
+                      end
+
+                /*if control reaches this point  and  none of the WHENs */
+                /*were satisfied,  a SYNTAX condition is raised (error).*/
+  end   /*select*/

Task/Conditional-structures/REXX/conditional-structures-3.rexx

@@ -0,0 +1,14 @@
+     select
+     when g=='angel'              then many='host'
+     when g=='ass' | g=='donkey'  then many='pace'
+     when g=='crocodile'          then many='bask'
+     when g=='crow'               then many='murder'
+     when g=='lark'               then many='ascension'
+     when g=='quail'              then many='bevy'
+     when g=='wolf'               then many='pack'
+     otherwise  say
+                say '*** error! ***'
+                say g "isn't one of the known thingys."
+                say
+                exit 13
+     end   /*select*/