select fd-in-name assign to dynamic ws-in-file. ... select fd-out-name assign to dynamic ws-out-file. ... working-storage section. 01 ws-in-file pic x(30) value "input.dat". 01 ws-out-file pic x(40). ... procedure division. accept ws-out-file. open input fd-in-name fd-out-name ...
In this example, the file input.dat in the current directory and the file specified by the current value of ws-out-file, are opened.