Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How i can hande the edits on fields.

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

New User


Joined: 22 Jan 2010
Posts: 12
Location: delhi

PostPosted: Tue Feb 09, 2010 3:29 pm    Post subject: How i can hande the edits on fields.
Reply with quote

Hi,

I am writing a cics cobol code and i wanted to handel some edit on particular fields.

For e.g 1) Name should be alpha and required and whenever i give input to the screen if it is not alpha and equals to spaces than it should give me error message.

Please help me this. if any body having any e.g please send itto me.

Thanks
Back to top
View user's profile Send private message

CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Tue Feb 09, 2010 3:37 pm    Post subject: Re: How i can hande the edits on fields.
Reply with quote

mainframe_world wrote:
For e.g 1) Name should be alpha and required and whenever i give input to the screen if it is not alpha and equals to spaces than it should give me error message.
I'm sorry, but what part of the IF statement do you not understand?
Edit the field, determine if the data is valid, reject the input if it does not follow your rules of validity....
Back to top
View user's profile Send private message
mainframe_world

New User


Joined: 22 Jan 2010
Posts: 12
Location: delhi

PostPosted: Tue Feb 09, 2010 4:04 pm    Post subject: Re: How i can hande the edits on fields.
Reply with quote

mainframe_world wrote:
Hi,

I am writing a cics cobol code and i wanted to handel some edit on particular fields.

For e.g 1) Name should be alpha and required and whenever i give input to the screen if it is not alpha and equals to spaces than it should give me error message.

Please help me this. if any body having any e.g please send itto me.

Thanks
IF FIELD NOT ALPHA
MOVE "INVALID VALUE"
ENDIF.

sO I CAN USE THIS RIGHT..

NOW HOW CAN I SET THE CURSUR TO THAT FIELD TO CORRECT OR GIVE THE RIGHT VALUE.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8201
Location: East Dubuque, Illinois, USA

PostPosted: Tue Feb 09, 2010 4:17 pm    Post subject:
Reply with quote

Your code isn't right, but I'm sure you'll figure out the syntax error.

Your bigger problem, however, is that you are asking questions answered in the first few sessions of any CICS class -- if you cannot do these things, you need to go back and take the class again until you understand the concepts! If you cannot do this, click on the manuals link, find the CICS reference and application programming guide manuals and read them -- cover to cover -- which will give you the basic information to write a CICS program.
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Wed Feb 10, 2010 6:14 am    Post subject:
Reply with quote

mainframe_world,

Is this program a project at your Job as a CICS programmer, or are you in Training ?

I agree with Robert:

Quote:
Your bigger problem, however, is that you are asking questions answered in the first few sessions of any CICS class -- if you cannot do these things, you need to go back and take the class again
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 SORT BUT RETAIN HIGHEST VALUE ON NON-... leondan22 DFSORT/ICETOOL 0 Thu Dec 14, 2017 8:13 pm
No new posts Merging 2 records at multiple rows wi... Bijesh DFSORT/ICETOOL 2 Wed Dec 06, 2017 1:50 am
No new posts Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm
No new posts Addition of two records on 2 fields amar143 SYNCSORT 8 Tue Oct 03, 2017 11:14 am
No new posts Split file based on comparsion to 2 f... Div Grad DFSORT/ICETOOL 3 Thu Jul 27, 2017 9:16 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us