Re: [open-cobol-list] File path.

[vbcoen]

Hi

 

Your second example is wrong and the first one correct there is no reason to insert a quote symbol within a path other than at the start AND the end.

 

If you do it will FALL

 

Vince

 

 

On Wednesday 08 May 2013 17:20:10 studiok wrote:


It seems that:

working-storage section.

01  myfilepath                pic x(50).
01  myfilename              pic x(20).

Procedure division.

move spaces                to myfilepath
                                         myfilename
move "something.txt"   to myfilename

string
         "/abc/def"              delimited size
         "/xyz/"                   delimited size
         "filename"              delimited spaces
         into myfilepath
end-string

------------> that is /abc/def/xyz/something.txt

string
         "/abc/def"              delimited size
         "/xyz/"                   delimited size    
         '"'                           delimited size
         "filename"              delimited spaces
         '"'                           delimited size   
         into myfilepath
end-string

------------> that is /abc/def/xyz/"something.txt"

get different results. First of which file-status 35. Is it possible?

marcellom

Il 08/05/2013 14:29, vbcoen ha scritto:

Hi

forgot to add this that sets up the ACAS-xxx vars from the environment that is run before the code I sent last msg:

Procedure:

accept ACAS_LEDGERS from Environment "ACAS_LEDGERS".

accept ACAS_IRS from Environment "ACAS_IRS".

accept ACAS_BIN from Environment "ACAS_BIN".

if ACAS_IRS (1:1) = space

or ACAS_LEDGERS (1:1) = spaces

or ACAS_BIN (1:1) = spaces

display ST009 at 0505 with erase eos highlight

display ST008 at 1210 with foreground-color 3 highlight

accept ws-reply at 1243

stop run

end-if

if ACAS_LEDGERS (1:1) = "/" *> Its Linux/Unix/OSX

move "/" to OS-Delimiter.

if ACAS_LEDGERS (1:1) = "\" *> Its Windoz/Dos-Box

move "\" to OS-Delimiter.

Vince