|
Identifies CMA Cruise class and ranges.
CRUFLAG/A1= DECODE PS:CLASS ('0302' 'Y' '0303' 'Y' '0304' 'Y'
'0305' 'Y' '0306' 'Y' '0307' 'Y'
'0308' 'Y' '0309' 'Y'
'0351' 'Y' '0352' 'Y' '0354' 'Y'
'0356' 'Y' '0357' 'Y' '0358' 'Y'
'0360' 'Y' '0362' 'Y' '0364' 'Y'
'0551' 'Y' '0552' 'Y' '0554' 'Y'
'0556' 'Y' '0557' 'Y' '0558' 'Y'
'0560' 'Y' '0562' 'Y' '0564' 'Y'
'3302' 'Y' '3303' 'Y' '3308' 'Y'
'3309' 'Y' '3314' 'Y' '3315' 'Y'
'3320' 'Y' '3321' 'Y' ELSE 'N');
PS:CRUISE/A1= IF CRUFLAG EQ 'Y' THEN 'Y' ELSE
IF PS:CLASSRNG EQ '03103' OR '03113' THEN 'Y' ELSE 'N';
|