|
View previous topic :: View next topic
|
| Author |
Message |
bhupesh.dewangan
New User
Joined: 07 Feb 2007
Posts: 1
Location: mumbai
|
|
|
|
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 |
|
 |
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
Said slightly differently, you have a map problem, not a vsam problem. |
|
| Back to top |
|
|
|
|
