Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How do I remove the RECORDING keyword from code? 1

Status
Not open for further replies.

teebee7

Programmer
May 7, 2004
2
US
Hello.
I am converting code from AS/400 Cobol 85 to an A series unisys using Cobol 74. There is a keyword that I have never used in 85 in this code. It is RECORDING MODE F.

Here is the FD description using it.

FD JOB-FILE RECORDING MODE F
RECORD CONTAINS 80 CHARACTERS.
01 JOB-RECORD VALUE SPACE PIC X(80).

If it helps, here is the select statement as well.
SELECT JOB-FILE ASSIGN JOBOUT
ORGANIZATION LINE SEQUENTIAL.

I did research this some but since I am unfamiliar with the keyword, I do not know what purpose it serves and how to convert it to cobol 74.
Any help would be truly appreciated.
Thanks in advance.
Tee
 
RECORDING MODE

is an IBM extension (used on IBM mainframes - possibly/probably NOT OS/400).

Simply remove it and your program should work "as expected".

It says that file is "fixed format" (as opposed to VARIABLE - or SPANNED or UNDEFINED - on IBM mainframes).

Bill Klein
 
Thanks so much. I get it now. Though I have been coding on IBM for many years...I have never used that keyword. I will just remove it as you said.

I have several programs to change and if I come across any other keywords I am not familiar with...I will look you up.
Thanks again.
Tee
 
IBM does not require this keyword anymore. It will default to fixed or variable depending on how you define your record layout.

etom
 
I think Recording Mode F may be the default recording mode on most mainframes. It may not even be needed. My book talks about the record size the the blocking used to determine the recording mode to be used. However that was for SAM files.

If you do not like my post feel free to point out your opinion or my errors.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top