Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
FORTRAN display from COBOL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
brganeshbabu

New User


Joined: 23 Jun 2005
Posts: 34
Location: Chennai

PostPosted: Mon Oct 22, 2012 3:29 am    Post subject: FORTRAN display from COBOL
Reply with quote

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.
Back to top
View user's profile Send private message

Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2020
Location: UK

PostPosted: Mon Oct 22, 2012 3:50 am    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8344
Location: Dubuque, Iowa, USA

PostPosted: Mon Oct 22, 2012 4:18 am    Post subject:
Reply with quote

FORTRAN normally writes to file 7, which would be DD name //FT07F001 DD SYSOUT=* (or it could point to a file instead).
Back to top
View user's profile Send private message
brganeshbabu

New User


Joined: 23 Jun 2005
Posts: 34
Location: Chennai

PostPosted: Tue Oct 23, 2012 11:59 pm    Post subject: Reply to: FORTRAN display from COBOL
Reply with quote

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
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8344
Location: Dubuque, Iowa, USA

PostPosted: Wed Oct 24, 2012 12:25 am    Post subject:
Reply with quote

Glad to hear you got it working -- sorry I got the number wrong; it's been quite a while since I did FORTRAN coding.
Back to top
View user's profile Send private message
Phrzby Phil

Active Member


Joined: 31 Oct 2006
Posts: 973
Location: Richmond, Virginia

PostPosted: Wed Oct 24, 2012 5:30 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Member


Joined: 14 Mar 2007
Posts: 10478
Location: italy

PostPosted: Wed Oct 24, 2012 5:33 pm    Post subject: Reply to: FORTRAN display from COBOL
Reply with quote

why not look at the fortran manuals ???
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Issue in suppressing leading zeros &a... Vijay_Sirisha COBOL Programming 21 Thu Jun 07, 2018 8:01 pm
No new posts VBS to VB in COBOL and JCL srajendran2 COBOL Programming 12 Fri Jun 01, 2018 3:04 am
This topic is locked: you cannot edit posts or make replies. Rexx code to find greater then symobl... Bharath Vikraman CLIST & REXX 8 Tue May 29, 2018 9:40 am
No new posts How to convert 2 bytes into single by... pkmurali DB2 6 Fri May 25, 2018 1:41 pm
No new posts SYSADATA - COBOL - Structure displace... ganasrinivasan COBOL Programming 3 Thu May 24, 2018 9:45 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us