cobol-cics program
Moderators: DikDude, Natarajan, Moderator Group
cobol-cics program
I have written a cobol-cics program for a menu screen in which you enter an option and it 'll direct u to that screen.I have just 2 options.My program worked fine the 1st day displaying error msg for wrong option.But now its accepting any option and directing it to the next screen. What could have gone wrong? Pls help
Code: Select all
GET-OPTION-NUMBER.
EXEC CICS RECEIVE
MAP('ZH00051')
MAPSET('ZH00051')
RESP(WS-RESPONSE)
RESP2(WS-REASON-CODE)
END-EXEC.
EVALUATE OPTIONI
WHEN 1
EXEC CICS SEND MAP('ZH00052') MAPSET('ZH00052') ERASE
END-EXEC
EXEC CICS RETURN END-EXEC
WHEN 2
EXEC CICS SEND MAP('ZH00053') MAPSET('ZH00053') ERASE
END-EXEC
EXEC CICS RETURN END-EXEC
WHEN 3
PERFORM END-OF-PROGRAM
WHEN OTHER
MOVE 'PLEASE ENTER VALID OPTION' TO WS-MSG-LINES
PERFORM RECOVERY-ROUTINE
END-EVALUATE.
this is the para to be performed after i hit enter. after the first the only thing i changed was in bms i made the columns after the option column as protected.
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page