MVSFORUMS.com

[hvijayakumar]

Hi All,

I am new FOCUS language. I searched through forum and got the manuals and gained some knowledge on FOCUS.
My requirement is to convert the FOCUS program to COBOL program.

I am not able to understand the following code snippet.
PARTICULARY the highlighted one.

DEFINE FILE SNAPSHO1
DATE/A6='000929';
ACCOUNTS/I7=1;
OFFICE/A3=EDIT(ACCT,'999');
END

what does it mean by ACCOUNTS/I7=1 ?
And I searched in the manuals and forums and I did not got the data types in FOCUS. Can anybody please provide the data types in FOCUS?

Thanks in advance for your replies...

[kolusu]

hvijayakumar,

I stands for integer.

If the format is A then that field is Alphanumeric and it can contain alphabetic and numeric characters and special characters. It can have a 1 to 256 characters.

If the format is I, F, D, or P then that field is Numeric and it can contain Numeric characters only.

I=whole number D, F, and P can indicate different decimal number formats.

I: 1 to 9 positions
D: 1 to 15 positions
P: 1 to 15 positions
F: 1 to 9 positions


So I7 is equivalent to S9(09) COMP which occupies 4 bytes.


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[hvijayakumar]

Thanks kolusu..

I have done with the conversion from FOCUS to COBOL. Your answer has helped me a lot.

Thanks.