IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to find program to be called ...


IBM Mainframe Forums -> PL/I & Assembler
Post new topic   Reply to topic
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
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

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Thu Jan 17, 2008 8:20 pm
Reply with quote

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

Moderator Emeritus


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

PostPosted: Fri Jan 18, 2008 4:01 am
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
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
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> PL/I & Assembler

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts To find whether record count are true... DFSORT/ICETOOL 6
No new posts DB2 Event passed to the Application P... DB2 1
No new posts How to pass the PARM value to my targ... COBOL Programming 8
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
Search our Forums:

Back to Top