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
 

 

Regarding the runtime abend - SFCB.

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
jayant_tibhe

New User


Joined: 25 Feb 2006
Posts: 27
Location: Pune

PostPosted: Mon Feb 12, 2007 7:05 pm    Post subject: Regarding the runtime abend - SFCB.
Reply with quote

Hi,

I am executing a simple IMS DB test program. The DBD, PSB and program compillation all are successful.But at the runtime I am getting the Abend SFCB. I am not getting why this is? Whether my System is supporting or not?

Please help me in this....

Details in SPOOL for Abend :
Code:

IEF237I JES2 ALLOCATED TO DFSVSAMP                             
IEA995I SYMPTOM DUMP OUTPUT                                   
SYSTEM COMPLETION CODE=FCB                                     
 TIME=12.41.03  SEQ=00273  CPU=0000  ASID=0022                 
 PSW AT TIME OF ERROR  070C1000   80FFEBD2  ILC 2  INTC 0D     
   NO ACTIVE MODULE FOUND                                     
   NAME=UNKNOWN                                               
   DATA AT PSW  00FFEBCC - 00181610  0A0D4110  016D182F       




My COBOL Code is :

USERS.MOUNESH.IMSDB(CBLPGM)

Code:


IDENTIFICATION DIVISION.                                   
PROGRAM-ID. ISRTPGM.                                       
AUTHOR.  MOUNESH.                                           
ENVIRONMENT DIVISION.                                       
CONFIGURATION SECTION.                                     
SOURCE-COMPUTER. IBM-370.                                   
OBJECT-COMPUTER. IBM-370.                                   
INPUT-OUTPUT SECTION.                                       
DATA DIVISION.                                             
WORKING-STORAGE SECTION.                                   
01  WS-RECORD             PIC X(20).                       
01  UNQUAL-SSA-HOSP       PIC X(11) VALUE 'HOSPITAL*  '.   
01  UNQUAL-SSA-WARD       PIC X(09) VALUE 'WARD     '.     
                                                           
01  CN-IMS-FUNCTIONS.                                       
    05  CN-GU                     PIC XXXX    VALUE 'GU  '.
     05  CN-GN                     PIC XXXX    VALUE 'GN  '.   
     05  CN-GNP                    PIC XXXX    VALUE 'GNP '.   
     05  CN-GHU                    PIC XXXX    VALUE 'GHU '.   
     05  CN-GHN                    PIC XXXX    VALUE 'GHN '.   
     05  CN-GHNP                   PIC XXXX    VALUE 'GHNP'.   
     05  CN-ISRT                   PIC XXXX    VALUE 'ISRT'.   
     05  CN-DLET                   PIC XXXX    VALUE 'DLET'.   
     05  CN-REPL                   PIC XXXX    VALUE 'REPL'.   
                                                               
 LINKAGE SECTION.                                             
                                                               
 01  PCB-HOSPMASK.                                             
     05 PCB-HOSP-DBDNAME            PIC X(08).                 
     05 PCB-HOSP-LEVEL-NUMBER       PIC X(02).                 
     05 PCB-HOSP-STATUS-CODE        PIC X(02).                 
     05 PCB-HOSP-PROC-OPTIONS       PIC X(04).                 
     05 PCB-HOSP-JCB-ADDRESS        PIC X(04).                 
     05 PCB-HOSP-SEGMENT-NAME       PIC X(08).                   
     05 PCB-HOSP-KEY-LENGTH         PIC S9(05) COMP.             
     05 PCB-HOSP-NUMBER-SEGS        PIC S9(05) COMP.             
     05 PCB-HOSP-KEY-FEEDBACK       PIC X(48).                   
 PROCEDURE DIVISION.                                             
 0000-MAIN-PARA.                                                 
     ENTRY 'DLITCBL' USING PCB-HOSPMASK.                         
*    MOVE 'ZEBRA  HOSPITAL     SOUTH EXTENSION, NEW DELHI-29 01101
*    '126543   ERT             55002020015PHYSIO             '   
     MOVE 'ZEBRA  HOSPITAL' TO WS-RECORD.                         
                                                                 
     CALL 'CBLTDLI' USING CN-ISRT                                 
                        PCB-HOSPMASK                             
                        WS-RECORD                                 
                        UNQUAL-SSA-HOSP                           
*                       UNQUAL-SSA-WARD.                         
       IF PCB-HOSP-STATUS-CODE NOT = SPACES                       
          DISPLAY '******ERROR ON ISRT******'   
          DISPLAY 'PCB-HOSPMASK: ' PCB-HOSPMASK 
          GOBACK                                 
       END-IF.                                   
      DISPLAY '******THE END******'.             
      GOBACK.         




The run JCL for this Pgm is :

USERS.MOUNESH.IMSDB(RUNCOIMS)


Code:

//MOUNESHR JOB NOTIFY=&SYSUID,PRTY=15                   
//*************************************                       
// SET MBR=CBLPGM                                             
// SET PSB=HOSPPSB                                           
// SET PSBLIB=USERS.MOUNESH.PSBLIB                           
// SET DBDLIB=USERS.MOUNESH.DBDLIB                           
// SET LOADLIB=USERS.MOUNESH.LOAD                             
//*************************************                       
//G      EXEC PGM=DFSRRC00,REGION=4M,                         
//            PARM=(DLI,&MBR,&PSB,7,,,,,N,,T,,,N,,,N,,,,,,,N)
//STEPLIB  DD DSN=IMS810.SDFSRESL,DISP=SHR                   
//         DD DSN=IMS810.PGMLIB,DISP=SHR                     
//         DD DSN=&LOADLIB(&MBR),DISP=SHR                     
//SYSPRINT DD SYSOUT=*                                       
//DFSRESLB DD DSN=IMS810.SDFSRESL,DISP=SHR                   
//IMS      DD DSN=&PSBLIB,DISP=SHR                           
//         DD DSN=&DBDLIB,DISP=SHR                       
//PRIME    DD DSN=USERS.MOUNESH.KSDS,DISP=SHR           
//OVERFLOW DD DSN=USERS.MOUNESH.ESDS,DISP=SHR           
//*INFILE1  DD DSN=USERS.MOUNESH.INPUT.HOSPITAL,DISP=SHR
//*INFILE2  DD DSN=USERS.MOUNESH.INPUT.WARD,DISP=SHR     
//*INFILE3  DD DSN=USERS.MOUNESH.INPUT.PATIENT,DISP=SHR 
//IMSLOGR  DD DSN=USERS.MOUNESH.LOG,DISP=(MOD,CATLG),   
//    DCB=(RECFM=VB,BLKSIZE=1920,                       
//    LRECL=1916,BUFNO=2),SPACE=(TRK,(5,5))             
//IEFRDER  DD DSN=USERS.MOUNESH.IEFRDER,DISP=(MOD,CATLG),
//    DCB=(RECFM=VB,BLKSIZE=1920,                       
//    LRECL=1916,BUFNO=2),SPACE=(TRK,(5,5))             
//SYSUDUMP DD SYSOUT=*,                                 
//         DCB=(RECFM=FBA,LRECL=121,BLKSIZE=605),       
//         SPACE=(605,(500,500),RLSE,,ROUND)             
//IMSMON   DD DUMMY                                     
//DFSVSAMP DD *                                         
//*VSRBF=4096,4       
/*                   


Please resolve my query....Thanks in advance.
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 7:50 pm    Post subject:
Reply with quote

Code:
CALL 'CBLTDLI' USING CN-ISRT                                 
                        PCB-HOSPMASK                             
                        WS-RECORD                                 
                        UNQUAL-SSA-HOSP                           
*                       UNQUAL-SSA-WARD.   


Is it correct I see the last ssa has been commented (*) and the period (.) is missing for the DLI-call?
Back to top
View user's profile Send private message
jayant_tibhe

New User


Joined: 25 Feb 2006
Posts: 27
Location: Pune

PostPosted: Mon Feb 12, 2007 8:06 pm    Post subject:
Reply with quote

Hi Bitneuker,

I have rectified that...Now my code is :

Code:

         CALL 'CBLTDLI' USING CN-ISRT           
                            PCB-HOSPMASK         
                            WS-RECORD           
                            UNQUAL-SSA-HOSP.     
    *                       UNQUAL-SSA-WARD.     


Still the same abend SFCB.....

Please help me out..
Back to top
View user's profile Send private message
miaowen17

New User


Joined: 16 Jan 2009
Posts: 1
Location: China

PostPosted: Mon Mar 30, 2009 1:14 pm    Post subject:
Reply with quote

Hi bro, i think this is a system level abend. pleas check your system nulstxx, i guess maybe your ims svc code not existes in this member.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Mon Mar 30, 2009 1:37 pm    Post subject: Reply to: Regarding the runtime abend - SFCB.
Reply with quote

did anybody care to look at the manual ...


Quote:

Fnn

Explanation: The system detected an error while processing a Supervisor Call (SVC) instruction. The last 2 digits of this completion code, nn, are the operand of the SVC instruction in hexadecimal. For example, completion code X'F0D' means that the error occurred while the system was processing SVC X'0D', that is, SVC 13.


One of the following occurred:


* When nn is equal to 13, 14, 17, or 37, recovery for OPEN/CLOSE/EOV failed to recognize a passed internal abend code. Register 12 contains the passed internal abend code. This is probably a system error. If the ABEND is accompanied by message IEC900I, the code was issued by DFSMSdfp and the code explanations are provided in this section. If the ABEND is accompanied by error messages starting with message prefix EDG, the code was issued by DFSMSrmm. See DFSMS/MVS DFSMSrmm Implementation and Customization Guide for explanations of the codes when they are issued by DFSMSrmm.


* When nn is not equal to 13, 14, 17, or 37, the system detected an incorrect SVC instruction.


ask the system support group
we know little about Your setup,
nothing we can do but point You to Your organization' s channels
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Mar 30, 2009 8:28 pm    Post subject:
Reply with quote

Hello miaowen17 and welcome to the forum,

Please note that this topic has been inactive for over 2 years, so there will most likely not be many replies.

It is best to reply to currently active topics. . . icon_smile.gif
Back to top
View user's profile Send private message
Gurpreet singh chhatwal

New User


Joined: 09 Dec 2013
Posts: 3
Location: India

PostPosted: Mon Mar 09, 2015 5:19 pm    Post subject:
Reply with quote

Hi,

I am also facing the same issue, kindly help me how to solve this abend.

9.38.06 JOB00322 $HASP165 MATE01 ENDED AT N1 - ABENDED SFCB U0000

Regards
Gurpreet
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1825
Location: UK

PostPosted: Tue Mar 10, 2015 4:25 pm    Post subject:
Reply with quote

Gurpreet - please start a new topic. You may do a link to this one but it is now almost 5 years since the last post (which was already 3 year after the original post).

You appear not to have read through the topics - see Dick's post immediately before yours and read carefully Enrico's post.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    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 C03 ABEND sjiraga PL/I & Assembler 1 Thu Jun 01, 2017 4:51 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 IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm
No new posts hot to get details when "EXEC CI... Andi1982 CICS 11 Tue Sep 20, 2016 5:01 pm


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