Perform the steps in this example to define a new class called
HORSES8 that you will administer together with the class called PONIES8
and that will share its POSIT value.
- Define the new class:
RDEFINE CDT HORSES8 UACC(NONE)
CDTINFO(DEFAULTUACC(NONE) FIRST(ALPHA) MAXLENGTH(200) OTHER(ALPHA,SPECIAL)
POSIT(301)
RACLIST(REQUIRED))
______________________________________________________________________
- Refresh the dynamic CDT:
SETROPTS RACLIST(CDT) REFRESH
Result: The
same SETROPTS options that were previously active for the PONIES8
class are now active for the HORSES8 class because the classes share
a POSIT value. The exception is SETROPTS RACLIST. ______________________________________________________________________
- Define some profiles in the new class:
RDEFINE HORSES8 PALOMINO.FRANKE UACC(NONE)
RDEFINE HORSES8 APPALOOSA.ANDRE UACC(NONE)
______________________________________________________________________
- RACLIST the profiles in the HORSES8 class:
SETROPTS RACLIST(HORSES8)
______________________________________________________________________