IBM TSO/E REXX User Manual

Example Using SELECT/WHEN/OTHERWISE/END
/******************************** REXX *****************************/
/* This exec receives input with a person's age and sex. In */
/* reply it displays a person's status as follows: */
/* BABIES - under 5 */
/* GIRLS - female 5 to 12 */
/* BOYS - male 5 to 12 */
/* TEENAGERS - 13 through 19 */
/* WOMEN - female 20 and up */
/* MEN - male 20 and up */
/*******************************************************************/
PARSE ARG age sex .
SELECT
WHEN age < 5 THEN /* person younger than 5 */
status = 'BABY'
WHEN age < 13 THEN /* person between 5 and 12 */
DO
IF sex = 'M' THEN /* boy between 5 and 12 */
status = 'BOY'
ELSE /* girl between 5 and 12 */
status = 'GIRL'
END
WHEN age < 20 THEN /* person between 13 and 19 */
status = 'TEENAGER'
OTHERWISE
IF sex = 'M' THEN /* man 20 or older */
status = 'MAN'
ELSE /* woman 20 or older */
status = 'WOMAN'
END
SAY 'This person should be counted as a' status '.'
Each SELECT must end with an END. Indenting each WHEN makes an exec
easier to read.
Exercises - Using the SELECT/WHEN/OTHERWISE/END
Instruction
"Thirty days hath September, April, June, and November; all the rest have
thirty-one, save February alone ..."
Write an exec that provides the number of days in a month. First have the exec ask
the user for a month specified as a number from 1 to 12 (with January being 1,
February 2, and so forth). Then have the exec reply with the number of days. For
month "2", the reply can be "28 or 29".
ANSWER
Using Conditional Instructions
46
z/OS V1R1.0 TSO/E REXX User’s Guide

IBM TSO/E REXX Specifications

General

Brand	IBM
Model	TSO/E REXX
Category	Computer Hardware
Language	English