Ambat Ravi Nair wrote:
have a "default" dataclass for errant allocations;
my routine looks something like this:
WHEN ((&DSTYPE NE 'TEMP') AND
((&DSORG NE 'PO') OR
(&DSORG NE 'VS') OR
(&DSORG NE 'DA')) AND
(&DSORG EQ ''))
DO
SET &DATACLAS = 'DCPS'
EXIT
END
"DCPS" is my naming convention for Dataclass for DSORG=PS;
no space values, nothing, except for DSORG=PS.
I don't understand what is the reason to double check &DSORG.
Why not
WHEN ((&DSTYPE NE 'TEMP') AND
(&DSORG EQ ''))
DO
Just curious.
--
Radoslaw Skorupka
Lodz, Poland
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
