FORTRAN display from COBOL

brganeshbabu · New User Joined: 23 Jun 2005 Posts: 34 Location: Chennai

Hi,

I have COBOL program calling a FORTRAN code. I want to know the business logic and the intermediate values calculated in FORTRAN code. But the write statements in the FORTRAN code does not appear in my job IOF. Only the COBOL display statements are seen. I checked our forum and on google. Can you please help me on this.

Nic Clouston · Posted: Mon Oct 22, 2012 3:50 am

Does your fortran routine have "displays"? Do they display to messages or to a file. Is your fortran routine actually being called? Do you have the correct DDname for the Fortran "displays"? If you are sure on all these points then you must have been able to look at the Fortran code so you should be able to deduce the logic and intermittent values from that inspection.

Robert Sample · Posted: Mon Oct 22, 2012 4:18 am

FORTRAN normally writes to file 7, which would be DD name //FT07F001 DD SYSOUT=* (or it could point to a file instead).

brganeshbabu · New User Joined: 23 Jun 2005 Posts: 34 Location: Chennai

Hi Robert,

Thanks! It worked. But I used FT06F001 instead of 07. I came to know that Unit number 5 is used to designate input read from card images, unit number 6 is used to designate output written to a printer, and unit number 7 is used to designate output written to card image

Robert Sample · Posted: Wed Oct 24, 2012 12:25 am

Glad to hear you got it working -- sorry I got the number wrong; it's been quite a while since I did FORTRAN coding.

Phrzby Phil · Posted: Wed Oct 24, 2012 5:30 pm

I'm thinking last century FT06 was for punch, which of course need not be an actual punch these days but just another way to output card images.

enrico-sorichetti · Posted: Wed Oct 24, 2012 5:33 pm

why not look at the fortran manuals ???