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

how to find the name of an ims/dc screen?


IBM Mainframe Forums -> IMS DB/DC
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
sonynath

New User


Joined: 12 Apr 2005
Posts: 3
Location: PUNE

PostPosted: Mon Jun 27, 2005 1:42 pm
Reply with quote

hi all,

can we find the names of ims/dc screens from ims/dc region?? i dont have access to the mapset source code...

is the same possible in cics??

thanks in advance,

sony.
Back to top
View user's profile Send private message
sudheer648

New User


Joined: 23 May 2005
Posts: 97
Location: Chennai

PostPosted: Mon Jun 27, 2005 4:04 pm
Reply with quote

On Online DC Screen definetly you cannot see the Mapset Code.

You might be having PDS with name Formatlibs. which would be generally be containing this Mapset coding.
Back to top
View user's profile Send private message
sonynath

New User


Joined: 12 Apr 2005
Posts: 3
Location: PUNE

PostPosted: Mon Jun 27, 2005 6:16 pm
Reply with quote

thanx sudheer.

but actually i was looking for just the mapname, and not the mapset code...something like we have list+f9 in ispf.

but i dont think its possible in ims dc or cics!!!

regards,
sony.
Back to top
View user's profile Send private message
sudheer648

New User


Joined: 23 May 2005
Posts: 97
Location: Chennai

PostPosted: Tue Jun 28, 2005 9:49 am
Reply with quote

Hi,

You find something from boogle and Babbage.
Back to top
View user's profile Send private message
creator.abhishek

New User


Joined: 07 May 2006
Posts: 32
Location: Pune

PostPosted: Mon Jan 22, 2007 12:18 pm
Reply with quote

Sudheer .. would you like to send some materials on boole and babbage?



Thanks in advance...

*email-id removed*
From Forum Rules:
Quote:
No email-ID
Never post your Email-IDs or IRC links in the Forum Posts. Don't attach your resumes / biodata. If you have to transfer any files or images use Private Messages.
Back to top
View user's profile Send private message
Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Tue Jan 23, 2007 7:48 am
Reply with quote

In TSO List+F9 displays all active sessions (F2 split screens).
If you are trying to do similar in online, then in IMS DC just do

/dis a
this should display all active transactions running.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Tue Jan 23, 2007 3:32 pm
Reply with quote

If you just want to see what screens (MID/MOD) have been made check the MFS-source library using ISPF 3.4
Back to top
View user's profile Send private message
creator.abhishek

New User


Joined: 07 May 2006
Posts: 32
Location: Pune

PostPosted: Wed Jan 24, 2007 11:03 am
Reply with quote

How to know the source code of IMS/DC screen. Like cics screens are basically written in asembler language.. Is there any special language using to write the MAPset in IMS/DC?
Back to top
View user's profile Send private message
Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Wed Jan 24, 2007 2:21 pm
Reply with quote

CICS screen are developed using BMS Macros.

Similarly for IMS DC online screens are developed using MFS Macros
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Wed Jan 24, 2007 2:59 pm
Reply with quote

Example of MFS-screen: in this case an input screen (MID).

Code:
 QNSMIDH  MSG   TYPE=INPUT,SOR=(QNSDFH),OPT=3,NXT=QNSMODH                00005   
*                                                                       00006   
         COPY  QXXMICD                                                  00007   
*                                                                       00008   
QASSEG2  SEG , HOLLAND-NS-SCHIRM   MID                                  00009   
         MFLD  QASINNAM,LTH=35,FILL=NULL                                00010   
         MFLD  QASINADR,LTH=30,FILL=NULL                                00011   
         MFLD  QASINPSG,LTH=06,FILL=NULL                                00012   
         MFLD  QASINWPL,LTH=25,FILL=NULL                                00013   
         MFLD  QASINAN1,LTH=02,FILL=NULL                                00014   
         MFLD  QASINAN2,LTH=02,FILL=NULL                                00015   
         MFLD  QASINA30,LTH=02,FILL=NULL                                00016   
         MFLD  QASINA35,LTH=02,FILL=NULL                                00017   
         MFLD  QASINAN4,LTH=02,FILL=NULL                                00018   
         MFLD  QASINAN5,LTH=02,FILL=NULL                                00019   
         MFLD  QASINAN6,LTH=02,FILL=NULL                                00020   
         MFLD  QASINA70,LTH=02,FILL=NULL                                00021   
         MFLD  QASINA71,LTH=02,FILL=NULL                                00022   
         MFLD  QASINA72,LTH=02,FILL=NULL                                00023   
         MFLD  QASINA73,LTH=02,FILL=NULL                                00024   
         MFLD  QASINA74,LTH=02,FILL=NULL                                00025   
         MFLD  QASINA75,LTH=02,FILL=NULL                                00026   
         MFLD  QASINA76,LTH=02,FILL=NULL                                00027   
         MFLD  QASINA77,LTH=02,FILL=NULL                                00028   
         MFLD  QASINA78,LTH=02,FILL=NULL                                00029   
         MFLD  QASINA79,LTH=02,FILL=NULL                                00030   
         MFLD  QASINAN8,LTH=02,FILL=NULL                                00031   
         MFLD  QASINAN9,LTH=02,FILL=NULL                                00032   
         MFLD  QASINA78,LTH=02,FILL=NULL     
         MFLD  QASINA79,LTH=02,FILL=NULL     
         MFLD  QASINAN8,LTH=02,FILL=NULL     
         MFLD  QASINAN9,LTH=02,FILL=NULL     
         MFLD  QASINFCD,LTH=02,FILL=NULL     
                                     
MSGEND                               

Back to top
View user's profile Send private message
amitchaudhary
Warnings : 1

New User


Joined: 13 May 2005
Posts: 8

PostPosted: Sun Jan 28, 2007 6:23 pm
Reply with quote

Hello,
In IMS DC we create MFS component for a particular program in a seperate PDS same like we have a PSB member for each program which is even compiled seperately (same like PSB).
you can check your MFS library

basically in IMS DC programming the MFS has 4 basic structures.
MID (Message Input Descriptor)
MOD (Message Output Descriptor)
DIF (Device Input Format)
DOF (Device Output Format)

The DIF and DOF are device dependent i.e, your screen size, here you actually write which field you want to display on which Row, Column

the MID and MOD are related to I/O part of the application program (Message in IMS terms), this maps the Row, Column variables defined in DIF and DOF with the I/O area using label names (like we map files with DD names).

out of these MOD is what you are asking for, in the MFS component of your Online program name check the MOD name (8 Characters).

normaly when we invoke any IMS DC program using /DIS TRANNAME, that TRANNAME is actually your MOD name which is defined in MOD as default, normally to avoid any confusion to the end users with these MOD names we use the default name same as our TRAN name.

hope it will help you.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1104
Location: The Netherlands at Hole 19

PostPosted: Tue Jan 30, 2007 7:20 pm
Reply with quote

Quote:
normaly when we invoke any IMS DC program using /DIS TRANNAME, that TRANNAME is actually your MOD name which is defined in MOD as default, normally to avoid any confusion to the end users with these MOD names we use the default name same as our TRAN name.


In a transaction a lot of MID/MOD's may be used. So you described your situation but this isn't the same at every site.
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 -> IMS DB/DC

 


Similar Topics
Topic Forum Replies
No new posts To find whether record count are true... DFSORT/ICETOOL 6
No new posts Find the size of a PS file before rea... COBOL Programming 13
No new posts Find the occurrence of Key Field (Par... DFSORT/ICETOOL 6
No new posts Find a record count/numeric is multip... COBOL Programming 1
No new posts Need to find a specific STRING COBOL Programming 11
Search our Forums:

Back to Top