modify COBOL code to write from FB to VB file

sudhirk63 · New User Joined: 08 Oct 2006 Posts: 19 Location: Bangalore

Hello,

I have a very basic question.
I have an existing COBOL code which reads data from a VB file and writes the output to an FB file.
I have to modify the program to write to an VB file and not to an FB file.

I have changed the FD sections to indicate that the output file is VB.
The data is moved to the working storage varaible using MOVE and this variable is used to write to the output VB file.
The output VB file has unwanted spaces and I am not sure what else I am missing to resolve this issue.
Could some one suggest what am I missing in the code.

Thanks.

Sudhir

murmohk1 · Posted: Thu Nov 29, 2007 6:14 am

Sudhir,

dick scherrer · Posted: Thu Nov 29, 2007 7:48 am

Hello,

If your FD has only one record layout and does not have an "occurs depending on" all of the records written will be "the length". There will be no variance in the record length.

If you post your code as suggested, we may be able to be more help.

sudhirk63 · New User Joined: 08 Oct 2006 Posts: 19 Location: Bangalore

hi,

The FD section is as :
FD SPTNMSK-FILE
BLOCK CONTAINS 0 RECORDS
LABEL RECORDS ARE STANDARD
RECORDING MODE IS V
RECORD IS VARYING FROM 5 TO 4509 CHARACTERS
DEPENDING ON RECLENOUT1.
01 SPTNMSK-RECORD-AREA PIC X(4509).
01 SPTNMSK-RECORD-AREA-MIN PIC X(5).

In the code , the values are moves as :

MOVE RECORD-LENGTH-DS2-DS2-C3 TO RECLENOUT1
WRITE SPTNMSK-RECORD-AREA FROM NOTMASKEDREC

--
In the final output, I see spaces X'40' even after position as defined in variable RECORD-LENGTH-DS2-DS2-C3.
The variable RECORD-LENGTH-DS2-DS2-C3 is the length of the record.

murmohk1 · Posted: Thu Nov 29, 2007 8:49 am

Sudhir,

Is the posted FD for I/P or O/P file. Where is the other FD.

William Thompson · Posted: Thu Nov 29, 2007 8:21 pm

dick scherrer · Posted: Thu Nov 29, 2007 8:22 pm

Hello,

Please re-read my previous reply.

The FD you posted does not contain an "OCCURS . . DEPENDING ON". To do what i believe you want, this will have to be in one or more of the level 01s. What the posted FD does will cause vb records to be created, but not the way you want them.

What you have defined will write either a 5-byte record or a 4509-byte record.

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Hi Sudhir,

How do you determine the value of RECORD-LENGTH-DS2-DS2-C3 ?

The code you provided should produce variable length recs if you filled RECORD-LENGTH-DS2-DS2-C3 properly.

You might want to put the ODO in the 01 as Bill suggested, but I think it will work w/o it.

Give it a try both ways and see what happens.

dick scherrer · Posted: Thu Nov 29, 2007 11:20 pm

Hello,

I don't believe this will work:

ajay_bhad · New User Joined: 09 May 2007 Posts: 8 Location: Delhi

dick scherrer · Posted: Sat Dec 01, 2007 9:42 pm

Hello,

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

In an earlier post I said that I didn't think that an ODO was required when defining an 01 level for a variable length record file: