900-GET-CALENDAR-DESC

900-GET-CALENDAR-DESC gets the calendar description associated with a named calendar and returns it to the caller. See Century Parameter Processing.

Library CALRTNS

Required Input

Field Type and length Definition
WSDR-CALENDAR A 15 Name of calendar.

Output

Field Type and length Definition
WSDR-CALENDAR-DESC A 30 Calendar description or an error message.
WSDR-ERROR-NBR N 9

Error number.

See Error Number.
WSDR-ERROR-VAR A 20 Input parameter is in error.

Programming Example

    MOVE AR00F1-ACG-CALENDAR        TO WSDR-CALENDAR.
    PERFORM 900-GET-CALENDAR-DESC.
    IF (WSDR-CALENDAR-DESC = AR00WS-CALENDAR-ERR)
        MOVE 204                             TO CRT-ERROR-NBR
        MOVE AR00F1-ACG-CALENDAR-FN          TO CRT-FIELD-NBR
        GO TO 232-END.