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
↧