CONTROL COMMENT='~' ERROR=IGNORE
ARG @OPT
IF (@OPT == '?' OR LENGTH(@OPT) > 1) THEN
STOP 0, 'USAGE: OLL '
ENDIF
IF (@OPT == '') THEN
STOP 0, 'The currently defined OLL is ' S.OLLNAME
ENDIF
@OPT = UPPER(@OPT)
@NUMOLL = 15
ARRAY @OLLS(15)
@OLLS(1) = 'D DEVELOP'
@OLLS(2) = 'F FLEECAL'
@OLLS(3) = 'S OLLFILS'
@OLLS(4) = '3 OLLFIL3'
@OLLS(5) = '4 OLLFIL4'
@OLLS(6) = 'X DEV5XCD'
@OLLS(7) = 'T DEV4TST'
@OLLS(8) = 'P PRD4TST'
@OLLS(9) = 'V VSEOLL '
@OLLS(10) = 'N DEV4NXT'
@OLLS(11) = 'Y Y2KTEST'
@OLLS(12) = 'R DEV4REL'
@OLLS(13) = '5 OLLFIL5'
@OLLS(14) = '6 OLLFIL6'
@OLLS(15) = '7 OLLFIL7'
FOR (@A=1, @A LE @NUMOLL, @A=@A+1)
IF (TRIM(SUBSTR(@OLLS(@A),1,1)) == @OPT) THEN
@OLLNAME = TRIM(SUBSTR(@OLLS(@A),3))
'DEF OLL=' @OLLNAME
RETURN 0, @OLLNAME ' IS THE DEFINED OLL.'
ENDIF
ENDFOR
RETURN 0, @OPT ' IS AN INVALID OLL OPTION.'
               (
geocities.com/vmvse)