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
 

 

ERROR CODE "ABM0" when writing to KSDS from CICS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
bhupesh.dewangan

New User


Joined: 07 Feb 2007
Posts: 1
Location: mumbai

PostPosted: Wed Feb 14, 2007 4:21 pm    Post subject: ERROR CODE "ABM0" when writing to KSDS from CICS
Reply with quote

HII ALL,
ITRIED TO THIS BUT I GOT ERROR CODE "ABM0"
MY PROGRAMS ARE:

APLLICATION PROGRAME:
Code:
  IDENTIFICATION DIVISION.         
  PROGRAM-ID. MAP1.               
  ENVIRONMENT DIVISION.           
  DATA DIVISION.                   
  WORKING-STORAGE SECTION.         
      COPY MAP1.                   
      COPY DFHBMSCA.               
      COPY DFHAID.                 
 *01 WS-REC.                       
 *    02 WS-SRNO PIC X(5).         
 *    02 FILLER PIC X(75).         
 *    02 WS-NAME PIC X(15).       
 *77 WS-LEN PIC S9(4) COMP.       
 *77 WS-KEY PIC 9(5).             
  LINKAGE SECTION.                 
  01 DFHCOMMAREA.                 
     02 WS-REC.                   
       03 WS-SRNO PIC X(5).         
      03 FILLER PIC X(75).           
 *    03 WS-NAME PIC X(15).         
  77 WS-LEN PIC S9(4) COMP.         
 *77 WS-KEY PIC 9(5).               
  PROCEDURE DIVISION.               
       MOVE 5 TO WS-LEN.             
       MOVE LOW-VALUE TO STUDO.     
       MOVE 5 TO WS-KEY.             
      EXEC CICS SEND                 
           MAP('STUD')               
           MAPSET('MAP1')           
           ERASE                     
      END-EXEC.                     
      EXEC CICS RECEIVE             
           MAP('STUD')               
           MAPSET('MAP1')           
           LENGTH(WS-LEN)           
           INTO(WS-REC)             
      END-EXEC.                     
      EXEC CICS WRITE               
               FROM(WS-REC)         
               LENGTH(WS-LEN)       
               FILE('PROJECT')       
               RIDFLD(WS-KEY)       
      END-EXEC.                     
      EXEC CICS RETURN               
      END-EXEC. 
Back to top
View user's profile Send private message

William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Wed Feb 14, 2007 4:35 pm    Post subject:
Reply with quote

The fine Manual CICS Messages and Codes clearly states:
Quote:
ABM0
Explanation: The map specified for a basic mapping support (BMS) request could not be located.
System Action: The transaction is abnormally terminated with a CICS transaction dump.
User Response: Check if the map has been defined. If it has, check that it has been specified correctly.
Do you understand?
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: Wed Feb 14, 2007 9:18 pm    Post subject:
Reply with quote

Hello,

Said slightly differently, you have a map problem, not a vsam problem.
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 -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm


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