How to Pass Multiple String in One Input Parameter?

I would like to know How to Pass Multiple String in One Input Parameter?. For example

RUN ExportToXML IN THIS-PROCEDURE (INPUT "Yes",
INPUT "No"
) NO-ERROR.

ExportToXML:

DEFINE INPUT PARAMETER cShiftHrs AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER cShift AS CHARACTER NO-UNDO.

CASE cShiftHrs:
WHEN "Yes" THEN DO:
/*Codes here*/
END.
END CASE.
CASE cShift:
WHEN "No"THEN DO:
/*Codes here*/
END.
END CASE.


Here i don't want to use multiple case statement.Need to use one case one input and using that input need to pass the multiple string.can you help this case?

Continue reading...