You can only pass an optional parameter BY VALUE.
class-id myClass. method-id Method1. procedure division using by reference s1 as string = "Hello". ... end method. end class.