MVSFORUMS.com

[kirank]

hi,
im using mfcobol
im writing in select statement as :
SELECT FILE1 ASSIGN TO DD1.

in FD am writing as:

FD FILE1
VALUE OF ID IS DD1.
01 VAR PIC X(30).

and in WORKING-STORAGE SECTION.

WORKING-STORAGE SECTION.
01 DD1.
02 VAR1 PIC X(3) VALUE "C:\".
02 VAR2 PIC X(4).
02 VAR3 PIC X(6) VALUE "ABC.TXT".

and procedure division.

PROCEDURE DIVISION.
MAIN-PARA.

OPEN EXTEND FILE1.
MOVE "0001" TO VAR2.
DISPLAY DD1.

Here it is displaying the path as C:\0001\ABC.TXT. But when i open the directory, the file is not present in the directory.

can anybody pls tell me why the file is not creating even though i've opened in the EXTEND MODE. I've all the permissions in the path.

[SureshKumar]

kirank,
I do not work on mfcobol, but just curious - how did the second backslash '\' get assigned. also VAR3 is 6 bytes but the value is 7 bytes ? is the above complete program - where is the write statement ?

[kirank]

i've written the size of the variables wrongly in the query. VAR2 is x(5) and VAR3 is x(7).

when we come to WRITE statemnt, im not writing the any records to the file. My aim is to create a file while opening the file in EXTEND mode.

[SureshKumar]

kirank,
Are you using EXTEND mode to create a file ? Sorry, I do not understand the problem. probably a better explanation of the requirement may help someone else to answer. Thanks

[kirank]

hi suresh,

My problem is solved. Thank you for sharing my query.