problem in running MPP program

suman_sen · New User Joined: 23 Jan 2007 Posts: 3 Location: India

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;

Bitneuker · Posted: Wed Feb 07, 2007 6:44 pm

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

suman_sen · New User Joined: 23 Jan 2007 Posts: 3 Location: India

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

Devzee · Posted: Thu Feb 08, 2007 12:57 pm

I dont think this is an MPP program.

Is this BMP ? can you share the execution jcl?

krishna_mf · New User Joined: 31 Jan 2007 Posts: 56 Location: banglore

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)