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
 

 

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

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

New User


Joined: 31 Jan 2007
Posts: 56
Location: banglore

PostPosted: Mon Feb 12, 2007 12:48 pm    Post subject: how to resolve IBM0204S ONCODE=84 abend for a MPP program
Reply with quote

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;
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: Mon Feb 12, 2007 3:48 pm    Post subject:
Reply with quote

Does your region JCL contain SYSPRINT? Sample of one of our regions:
Code:
SDSF JOB DATA SET DISPLAY - JOB NBMSG02  (JOB32555)    LINE 1-4 (4)           
COMMAND INPUT ===>                                            SCROLL ===> CSR 
PREFIX=NBMSG*  DEST=(ALL)  OWNER=*  SYSNAME=                                   
NP   DDNAME   StepName ProcStep DSID Owner    C Dest               Rec-Cnt Page
     JESMSGLG JES2                 2 AEADV61  X                          2     
     JESJCL   JES2                 3 AEADV61  X                         64     
     JESYSMSG JES2                 4 AEADV61  X                          2     
     SYSPRINT REGION             101 AEADV61  X                          0     
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: Mon Feb 12, 2007 4:08 pm    Post subject:
Reply with quote

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.
Back to top
View user's profile Send private message
krishna_mf

New User


Joined: 31 Jan 2007
Posts: 56
Location: banglore

PostPosted: Mon Feb 12, 2007 5:36 pm    Post subject:
Reply with quote

thanks Bitneuker
there is no SYSPRINT in my job jcl.
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: Mon Feb 12, 2007 5:58 pm    Post subject:
Reply with quote

Hehmmm,
Quote:
there is no SYSPRINT in my job jcl


If you run an MPP you don't have your own job JCL. An MPP runs in an IMS region which is started by operating.
Back to top
View user's profile Send private message
krishna_mf

New User


Joined: 31 Jan 2007
Posts: 56
Location: banglore

PostPosted: Mon Feb 12, 2007 6:34 pm    Post subject:
Reply with quote

So ca'nt we give any put skip list in the MPP program
also cant we do any file processinig in MPP program
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: Mon Feb 12, 2007 6:50 pm    Post subject:
Reply with quote

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.
Code:

     TRAN     CLS ENQCT   QCT   LCT  PLCT CP NP LP SEGSZ SEGNO PARLM    RC 
    NS         2     0     0 65535     3  9  9 13     0     0  NONE     0   
        PSBNAME: TPNSVER                                                   
    *07043/141412*                                                         
                                                                           

Then in IMS perform an /DIS REG A. and you will see all active regions, at the end of each line you see the classes they process.

Code:
 REGID JOBNAME   TYPE  TRAN/STEP PROGRAM  STATUS           CLASS     
   11 NTMSG05   TP                       WAITING            8         
   10 NTMSG04   TP                       WAITING            7         
    9 NTMSG01   TP                       WAITING            1,  2     
    8 NTMSG02   TP                       WAITING            2,  2,  4
    7 NTMSG03   TP                       WAITING            3,  2,  5


As you can see this NS transaction runs in regions 01, 02 and 03.
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 IBM0472S ONCODE=290 The INVALIDOP Biswajit Pattanayak PL/I & Assembler 18 Tue May 09, 2017 3:51 pm
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm


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