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.'

    Source: geocities.com/vmvse/files

               ( geocities.com/vmvse)