RE: Version level dataarea

[Buck Calabro <Buck.Calabro@xxxxxxxxxxxx>]

Kevin said:

>ISTR that IBM discouraged use of the data area,
>possibly by stating that the data area might
>at some future date disappear, and encouraged the
>use of the API, hence my original preface to the method:

I was using the data area method before the API.  Here's some code that
originated in the 1988 time frame.  I do not believe there was an MRI data
area at that time.  You can see how this code had to be fiddled to keep it
current.  The API would not need this manipulation.

            RTVDTAARA  Q5738SS1.QSYS &CPFLVL
            MONMSG     CPF0000 EXEC(GOTO TRYV1)
            IF         (%SST(&CPFLVL 1 6) *EQ 'V2R1M0') (GOTO CPFLVLOK)
            IF         (%SST(&CPFLVL 1 6) *EQ 'V2R2M0') (GOTO CPFLVLOK)
            IF         (%SST(&CPFLVL 1 6) *EQ 'V3R0M5') (GOTO CPFLVLOK)
TRYV1:
            RTVDTAARA  Q5728SS1.QSYS &CPFLVL
            MONMSG     CPF0000 EXEC(GOTO CPFLVLBAD)
            IF         (%SST(&CPFLVL 1 6) *EQ 'R02M00') +
                         (GOTO CPFLVLOK)
            IF         (%SST(&CPFLVL 1 6) *EQ 'R03M00') +
                         (GOTO CPFLVLOK)

  --buck