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
 
How to find program to be called ...

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
amitava
Warnings : 1

Active User


Joined: 30 Oct 2005
Posts: 186
Location: India

PostPosted: Thu Jan 17, 2008 7:24 pm    Post subject: How to find program to be called ...
Reply with quote

Guys,
I don't know anything about Assembler! But in our project module, a job is using assembler module. The PROC defination is like -
Code:
//FPRPT03  EXEC PGM=DFSRRC00,REGION=&RGN,                         
//         PARM='DLI,&PROGRAM,&PSB,&BUF,,&PLOAD,,,&MON,,,,,&DBRC',
//         COND=(02,EQ,FUNC01)                                     
//STEPLIB  DD  DISP=SHR,DSN=&RESLIB                               
//         DD  DISP=SHR,DSN=&SSLOAD                               
//         DD  DISP=SHR,DSN=&CLLOAD                               
//         DD  DISP=SHR,DSN=&SSTBLLB                               
//         DD  DISP=SHR,DSN=&SYS2SPL                               
//         DD  DISP=SHR,DSN=&SYS2COB                               
//         DD  DISP=SHR,DSN=&SYS2RPT                               
//IMS      DD  DISP=SHR,DSN=&TPSBLIB                               
//         DD  DISP=SHR,DSN=&PSBLIB                               
//         DD  DISP=SHR,DSN=&TDBDLIB                               
//         DD  DISP=SHR,DSN=&DBDLIB                               
//DFSRESLB DD  DISP=SHR,DSN=&RESLIB                               
//DPKTABLE DD  DISP=SHR,DSN=&DPKTAB                               
//PROCLIB  DD  DISP=SHR,DSN=&PROCLIB                       
//RECON1   DD  &REC1DMY.DSN=&REC1DSN,DISP=SHR               
//RECON2   DD  &REC2DMY.DSN=&REC2DSN,DISP=SHR               
//IEFRDER  DD  &LOGDMY.DSN=&LOGNODE..&PSB..&JNAME.LOG&LOG1,
//         UNIT=SCRDSK,                                     
//         DISP=(,CATLG,CATLG),SPACE=(CYL,(200,200),RLSE), 
//    DCB=(&MGEN.RECFM=VB,LRECL=22524,BLKSIZE=22528,BUFNO=2)
//MASTER    DD DSN=SYS2.SOURCE,DISP=SHR                     
//DFSVSAMP DD  DISP=SHR,DSN=&SSPARM.(&IMSBFSZ)
//FIPPRHMO DD  DISP=SHR,DSN=&SSPARM.(&HMODATE)
//RSIIN    DD  DISP=SHR,DSN=&SFINLIB.(&RSIREQ)



And in the member indicated by the symbolic variable - program, the followings are defined -
Code:
MODE AMODE(31),RMODE(24)
INCLUDE OBJLIB(KJRSIREQ)
INCLUDE OBJLIB(LKCMI9)   
INCLUDE RESLIB(DFSLI000)
LIBRARY *(LOCMILST)     
ENTRY   KJRSIREQ         
 ORDER KJRSIREQ         
 ORDER LKCMI             
 ORDER DFSLI000         
NAME    KLRSIREQ(R) 


I searched and found these are two assembler modules called from the card. In the same step, some COBOL programs are also executed. I need to find out a dataset (say named - X) is used in which COBOL program? To me, it seems that the one of the assembler modules is calling COBOL programs(at least 10 COBOL programs are executed in that step and one of the COBOL program is using that file - X). How to find out which COBOL program is called by the Assembler modules and which COBOL program is using that file - X.
Even I searched in the assembler module by CALL but did not find any COBOL program name or any other assembler module!
Is there any other way to call a COBOL program to execute in the same step in which a Assembler module is executing? Guys need advice from u and I am really stuck at this point.[/code]
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10327
Location: italy

PostPosted: Thu Jan 17, 2008 8:20 pm    Post subject: Reply to: How to find program to be called ...
Reply with quote

what about reading the application specifications ???
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Jan 18, 2008 4:01 am    Post subject:
Reply with quote

Hello,

Quote:
I searched and found these are two assembler modules called from the card.
Which modules? Which card? What is there about assembler that you need to know for this?

The jcl you posted is IMS jcl (i believe).
Back to top
View user's profile Send private message
amitava
Warnings : 1

Active User


Joined: 30 Oct 2005
Posts: 186
Location: India

PostPosted: Fri Jan 18, 2008 10:45 am    Post subject:
Reply with quote

Dick,
Quote:
Which modules? Which card? What is there about assembler that you need to know for this?

The jcl you posted is IMS jcl (i believe).

I agree with you. This is a IMS step. But the symbolic variable is having the value - KJRSIREQ. I searched into the libraries and found the member in one library. In that member, the followings are mentioned -
Code:
MODE AMODE(31),RMODE(24)
INCLUDE OBJLIB(KJRSIREQ)
INCLUDE OBJLIB(LKCMI9)   
INCLUDE RESLIB(DFSLI000)
LIBRARY *(LOCMILST)     
ENTRY   KJRSIREQ         
 ORDER KJRSIREQ         
 ORDER LKCMI             
 ORDER DFSLI000         
NAME    KLRSIREQ(R)

I found out that KJRSIREQ and LKCMI are some Assembler module. Then I tried to find out what are the call modules from these assemblers but found none!
Now actually from the job description (included in the PROC itself), I came to know that some COBOL programs are also called from the same step mentioned above. I need to find out a particular file - X is called from which program. Guys, I need suggestions/ approaches to do so!!!
Back to top
View user's profile Send private message
Srihari Gonugunta

Active User


Joined: 14 Sep 2007
Posts: 295
Location: Singapore

PostPosted: Fri Jan 18, 2008 11:02 am    Post subject:
Reply with quote

Amitava,
KJRSIREQ is a program which accesses IMS DB, it can be a COBOL or Assembler program. You can check your source program library for that.
And Please don't confuse with the member KJRSIREQ you have pasted above. It is a link card used in LINK-EDIT step for creating the load module KJRSIREQ. you have nothing to do it in the current JCL.

If you have the source for KJRSIREQ, probably its calling LKCMI.
Back to top
View user's profile Send private message
amitava
Warnings : 1

Active User


Joined: 30 Oct 2005
Posts: 186
Location: India

PostPosted: Fri Jan 18, 2008 12:10 pm    Post subject:
Reply with quote

Srihari, thanks for input! But I have searched in KJRSIREQ to find out the called modules but I have not found LKCMI in it. On the other hand, my question is -
In that particular step is executing some COBOL programs as well (I am sure about that), how can I find what are the COBOL programs being called from that step? Are u getting me? My concern is - the called programs (COBOL or whatever else) should be mentioned in the JCL or in some card. I want to the location where from I can get the called programs' name.
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 -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts LIBDEF not working in called proc packerm CLIST & REXX 0 Fri Sep 15, 2017 7:22 pm
No new posts Command to find TMEMBER name for a TPIPE Siva NKK Kothamasu IMS DB/DC 0 Wed Aug 16, 2017 6:08 pm
No new posts Could we identify the called modules ... elixir1986 COBOL Programming 5 Fri Jul 14, 2017 1:53 am

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