[open-cobol-list] File path.

[studiok]

Hi,

@ Vince
thank you.

@ all

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

 

 

------------------------------------------------------------------------------
Learn Graph Databases - Download FREE O'Reilly Book
"Graph Databases" is the definitive new guide to graph databases and 
their applications. This 200-page book is written by three acclaimed 
leaders in the field. The early access version is available now. 
Download your free book today! http://p.sf.net/sfu/neotech_d2d_may

_______________________________________________
open-cobol-list mailing list
address@hidden
https://lists.sourceforge.net/lists/listinfo/open-cobol-list