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
 
Which programming language is this piece of code written in?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
kkxlnc

New User


Joined: 12 Jun 2005
Posts: 44
Location: Boston

PostPosted: Sat Jun 25, 2005 8:45 pm    Post subject: Which programming language is this piece of code written in?
Reply with quote

hi Friends,
I am Keerti Kumar More. My question is: I found this piece of code being used in an application but we are unable to identify the language in which this code has been written. Can anybody can make out which programming language it is and what function does this piece of code perform?


PROGRAM E1365BD J1300010
CHARACTER A*14 J1300020
OPEN (UNIT=1, J1300030
* ACCESS='SEQUENTIAL', J1300040
* ACTION='READ', J1300050
* STATUS='OLD', J1300060
* FORM='FORMATTED') J1300070
OPEN (UNIT=2, J1300080
* ACCESS='SEQUENTIAL', J1300090
* ACTION='WRITE', J1300100
* STATUS='NEW', J1300110
* FORM='FORMATTED') J1300120
10 READ(1,11,END=999)A J1300130
11 FORMAT(A14) J1300140
WRITE(2,12)A(1:13) J1300150
12 FORMAT(A13) J1300160
GO TO 10 J1300170
999 STOP J1300180
END J1300190



Thank you.

Sincerely,
Keerti Kumar More.
Back to top
View user's profile Send private message

MGIndaco

Active User


Joined: 10 Mar 2005
Posts: 432
Location: Milan, Italy

PostPosted: Mon Jun 27, 2005 5:55 pm    Post subject:
Reply with quote

This is Fortran(I think Fortran 77 because for what I read it's fixed) but I don't know what this program really do.
I can't help you more.
Try to visit this site to learn more about Fortran 77:
http://www.ictp.trieste.it/~manuals/programming/sun/fortran/f77rm/
Back to top
View user's profile Send private message
grepusr3

New User


Joined: 10 May 2005
Posts: 29

PostPosted: Thu Jun 30, 2005 4:47 am    Post subject: Re: Which programming language is this piece of code written
Reply with quote

Keerti Kumar,

Yes, the language is Fortran.

It reads input file sequentially, and for each record - it reads the first 14 bytes (as characters). It writes them, the leftmost thirteen bytes to an outputfile.

Hope it helps!

-Pelad
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 -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Speed-up/reduce CPU use of code prino PL/I & Assembler 0 Tue Sep 26, 2017 12:05 am
This topic is locked: you cannot edit posts or make replies. how to code for GDG in Rexx cvnlynn CLIST & REXX 13 Wed Aug 09, 2017 9:13 pm
This topic is locked: you cannot edit posts or make replies. rexx code to create a ps file Bharath Vikraman CLIST & REXX 4 Mon Aug 07, 2017 10:30 am
No new posts I want to retire TRX and use only Rex... Abhinav Sharma CLIST & REXX 6 Sat Jul 29, 2017 2:53 am
No new posts UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm

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