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 Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm
No new posts Need Suggestion on COBOL program vickey_dw COBOL Programming 5 Thu Jan 05, 2017 10:55 pm
No new posts SYMNAMES problem jacobdng DFSORT/ICETOOL 7 Thu Dec 22, 2016 7:47 am
No new posts I can not compile my program PL1 V3.R... Miguel Fernandez PL/I & Assembler 13 Tue Dec 06, 2016 8:30 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm


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