how to resolve IBM0204S ONCODE=84 abend for a MPP program

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

Hi,

I am getting an abend while I am running the IMS transaction sn020 for an MPP program.

Abend is

?IBM0204S ONCODE=84 The UNDEFINEDFILE condition was raised because a DD statement or CMS FILEDEF was not used in ('ONFILE'= SYSPRINT).

From compile unit SN0200 at entry point SN0200 at compile unit offset +000000DA at entry offset +000000D2 at address 09802A92.?

The program is abending at the entry point.
Even the first put skip is not gettign displayed.

I am not using any MFS. I just want to invoke the program using the transaction.

Can any one please help me.

The PSB I am using is

PCB TYPE=TP,ALTRESP=YES,MODIFY=YES

PSBGEN LANG=PLI,PSBNAME=SN0200

END

The application program is

SN0200: PROC($PCB1,$PCB2) OPTIONS (MAIN NOEXECOPS);

PUT SKIP LIST('ENTER SN0200');

DCL ADDR BUILTIN;

DCL PLITDLI ENTRY;

DCL $PCB1 PTR;

DCL DBPTR PTR;

DCL 1 PCBAREA BASED(DBPTR),

2 DBDNAME CHAR(08);

DCL SIOAREA CHAR(8) INIT('KRISHNA');

DCL $SIOAREA PTR;

$SIOAREA=ADDR(SIOAREA);

DCL 1 DBPCB BASED($PCB2),

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);

DBPTR = $PCB1;

PUT SKIP LIST('DATABASE NAME IS : ' || DBDNAME);

CALL PLITDLI(3,'ISRT',$PCB1,$SIOAREA);

END SN0200;

Bitneuker · Posted: Mon Feb 12, 2007 3:48 pm

Does your region JCL contain SYSPRINT? Sample of one of our regions:

Bitneuker · Posted: Mon Feb 12, 2007 4:08 pm

Additional information to your error message may be found here. May be your site doesn't allow put skips (might fill the spool to much). IBM has a great support in trouble shooting.

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

thanks Bitneuker
there is no SYSPRINT in my job jcl.

Bitneuker · Posted: Mon Feb 12, 2007 5:58 pm

Hehmmm,

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

So ca'nt we give any put skip list in the MPP program
also cant we do any file processinig in MPP program

Bitneuker · Posted: Mon Feb 12, 2007 6:50 pm

Put skips you can do provided the region-JCL contains a SYSPRINT. Some sites don't allow this and leave the SYSPRINT out. Explore in TSO/SDSF the region and check the JCL to find out if there's any SYSPRINT. As for file processing an MPP can't access OS-files. Some reading in manuals will make this clear to you.

First step for now is to find out the SDSF for your region. If you don't know by heart find out the messageclass of your MPP. You can find out in IMS by typing /DIS TRAN transaction; under CLS you find the class. Transaction NS has class 2.