Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

problem in running MPP program

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
suman_sen

New User


Joined: 23 Jan 2007
Posts: 3
Location: India

PostPosted: Wed Feb 07, 2007 6:15 pm    Post subject: problem in running MPP program
Reply with quote

hi,
i am trying to run an an IMS application program (MPP program)
but when i am firing the transaction the program is abending .
can any one tell me how to run it succesfully.

i am using the below PSB
PCB TYPE=TP,ALTRESP=YES,MODIFY=YES
PCB TYPE=GSAM,DBDNAME=IVPDB5,PROCOPT=G
PCB TYPE=GSAM,DBDNAME=IVPDB5,PROCOPT=L
PSBGEN LANG=PLI,PSBNAME=SN0200,CMPAT=YES
END

and the application program is

SN0200: PROC($PCB1,$PCB2,$PCB3) OPTIONS (MAIN) REORDER;
DCL ADDR BUILTIN;
DCL PLITDLI ENTRY;
DCL $PCB1 PTR;
DCL $PCB2 PTR;
DCL $PCB3 PTR;
DCL DBPTR PTR;
DCL 1 PCBAREA BASED(DBPTR),
2 DBDNAME CHAR(08);
DCL SIOAREA CHAR(500);
DCL $SIOAREA PTR;
$SIOAREA=ADDR(SIOAREA);
DCL 1 DBPCB BASED($PCB3),
2 DBD CHAR (08),
2 LEV CHAR (02),
2 STC CHAR (02),
2 RES1 CHAR (08),
2 SENA CHAR (08),
2 RES2 CHAR (08),
2 KBA CHAR (100);


PUT SKIP LIST('INSIDE PROGRAM SN0100 ');
DBPTR = $PCB1;
PUT SKIP LIST('DATABASE NAME IS : ' || DBDNAME);
DBPTR = $PCB2;
PUT SKIP LIST('DATABASE NAME IS : ' || DBDNAME);
DBPTR = $PCB3;
PUT SKIP LIST('DATABASE NAME IS : ' || DBDNAME);
CALL PLITDLI(3,'GU',$PCB1,$SIOAREA);
END SN0200;
Back to top
View user's profile Send private message

Bitneuker

CICS Moderator


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

PostPosted: Wed Feb 07, 2007 6:44 pm    Post subject:
Reply with quote

Could you provide us with some detailed information about the abend? And why is the PCB duplicate with PROCOPT=G and L? Meanwhile have a look at some documentation about GSAM
Back to top
View user's profile Send private message
suman_sen

New User


Joined: 23 Jan 2007
Posts: 3
Location: India

PostPosted: Thu Feb 08, 2007 12:33 pm    Post subject:
Reply with quote

hi
we are getting the following abend code

+DFS0578I - READ SUCCESSFUL FOR DDNAME PROCLIB MEMBER = DFSINTDC IMS1
IEA995I SYMPTOM DUMP OUTPUT 223
USER COMPLETION CODE=0551
Back to top
View user's profile Send private message
Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Thu Feb 08, 2007 12:57 pm    Post subject:
Reply with quote

I dont think this is an MPP program.

Is this BMP ? can you share the execution jcl?
Back to top
View user's profile Send private message
krishna_mf

New User


Joined: 31 Jan 2007
Posts: 56
Location: banglore

PostPosted: Thu Feb 08, 2007 3:10 pm    Post subject:
Reply with quote

hi
we are getting the following abend code while running the MPP program

IBM0204S ONCODE=84 The UNDEFINEDFILE condition was raised because a DD statemenent or CMS FILEDEF was not used in ('ONF
ILE'= SYSPRINT).
From compile unit SN0200 at entry point SN0200 at compile unit offset at entry offset +000000DA at
address 098029B2.

we are using the following trasaction definition to run the program
SPACE 2
APPLCTN PSB=DFSIVPE,PGMTYPE=TP //* NON-CONV MPP *//
TRANSACT CODE=SN020,MODE=SNGL,
MSGTYPE=(SNGLSEG,NONRESPONSE,1)
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 -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS T-Pipe queue counts in a COBOL Pr... Siva NKK Kothamasu IMS DB/DC 0 Tue May 09, 2017 6:31 pm
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts Strings with double quotes having pro... raja Arumugam All Other Mainframe Topics 11 Thu Mar 30, 2017 10:34 am
No new posts Problem reading GTF trace output danik56 ABENDS & Debugging 7 Thu Mar 16, 2017 1:02 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us