Not sure what I am doing wrong. Here is what I tried. I have 2 scenarios. I didn't try the quotes because if I go this route I only have to change one program. Thanks
Scenario 1
01 passed-to-program2 type String.
set passed-to-program2 to type Environment::CommandLine.
accept passed-to-program2 from command-line.
if passed-to-program2 not = spaces
*> it is going into here and I do use a dialogresult to display to the screen and it
is truncating the spaces just as before?
Scenario 2
01 passed-to-program.
05 ptp-policy-num pic x(07) value spaces private.
05 filler pic x(01) value spaces private.
05 ptp-ins-type pic x(01) value spaces private.
05 filler pic x(05) value spaces private.
05 ptp-program-name pic x(10) value spaces private.
05 filler pic x(30) value spaces private.
set passed-to-program to type Environment::CommandLine.
move spaces to passed-to-program.
accept passed-to-program from command-line.
if passed-to-program not = spaces
*> this is also truncating the spaces