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
 

 

How to know whether the field was changed?

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

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Wed Jul 02, 2008 11:18 am    Post subject: How to know whether the field was changed?
Reply with quote

Hi,

My requirement is the if one user inquiring one id c11111 in map. Then the groups associated to user are displayed. Now if the user select one group and entering action code DELG. Then that group will be deleted from c11111. This is fine.

But if user changed c11111 to c22222 in map and select one group
and entering action code DELG, currently that group got deleted from c22222. But for this i have to throw to error message "KEY FIELD HAS CHANGED, PLEASE RE-INQUIRE'.

I know only little about CICS. Any one please help me on this task?

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

rakesha.hg

Active User


Joined: 21 Mar 2008
Posts: 161
Location: bangalore

PostPosted: Wed Jul 02, 2008 12:03 pm    Post subject: Reply to: How to know whether the field was changed?
Reply with quote

one way to know is to carry it in comm area & check.

To know whether a field on map is changed or not ......... we usually check the length(l) field of that variable.

Correct me if i am wrong. icon_smile.gif
Back to top
View user's profile Send private message
prakash271082

New User


Joined: 09 Sep 2005
Posts: 53

PostPosted: Wed Jul 02, 2008 12:26 pm    Post subject:
Reply with quote

Hi,

You can set MDT and check it.
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Wed Jul 02, 2008 12:36 pm    Post subject: Reply to: How to know whether the field was changed?
Reply with quote

HI,

I done the follwoing,

LINKAGE SECTION.
01 DFHCOMMAREA.
COPY ULGPA.
COPY DSCU1A.
05 WK-HLD-DSCUS-UID PIC X(08) VALUE SPACES.
EJECT
.
.
.
.

IF DSCUS-USER-ID = WK-HLD-DSCUS-UID
PERFORM 8500-FIND-CURRENT-USERINFO
ELSE
MOVE 'KEY FIELD HAS CHANGED, PLEASE REINQUIRE'
TO ULGPA-TECH-MSG-LINE-1
MOVE 'X' TO DSCU1-ERROR-CD
PERFORM 9100-SET-UP-MSG-LINE-2
END-IF


I want to know whether it is correct....
Back to top
View user's profile Send private message
rakesha.hg

Active User


Joined: 21 Mar 2008
Posts: 161
Location: bangalore

PostPosted: Wed Jul 02, 2008 3:05 pm    Post subject: Reply to: How to know whether the field was changed?
Reply with quote

Code:
IF DSCUS-USER-ID = WK-HLD-DSCUS-UID


1) is this IF para executing after receive map process?
2)is DSCUS-USER-ID your map variable or your moving the value your getting from the map to this variable?

please clarify. tell us more.
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Wed Jul 02, 2008 7:27 pm    Post subject:
Reply with quote

before map send - save the fields in commarea (rakesha.hg pointed this out)

on receive of map - compare saved to current input fields

OR
you can set attributes to NOFSET (not modified) when you send
the map, and then check field lengths when you receive map.

If you are new to CICS, I advise you to spend some time with a little
self study, or possibly attend some CICS programming courses, and
also talk to your peers.
Back to top
View user's profile Send private message
rakesha.hg

Active User


Joined: 21 Mar 2008
Posts: 161
Location: bangalore

PostPosted: Thu Jul 03, 2008 9:27 am    Post subject: Reply to: How to know whether the field was changed?
Reply with quote

Quote:
you can set attributes to NOFSET (not modified) when you send
the map, and then check field lengths when you receive map.


Hi earl,

can you please tell me how this is done icon_question.gif

I want to clear this doubt of mine from long time?
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Thu Jul 03, 2008 8:32 pm    Post subject:
Reply with quote

rakesha.hg,

which part do you need additional help with ? icon_question.gif icon_question.gif icon_question.gif

(1)
before map send - save the fields in commarea (rakesha.hg pointed this out)

on receive of map - compare saved to current input fields

(2)
you can set attributes to NOFSET (not modified) when you send
the map, and then check field lengths when you receive map.

(3)
If you are new to CICS, I advise you to spend some time with a little
self study, or possibly attend some CICS programming courses, and
also talk to your peers.
Back to top
View user's profile Send private message
rakesha.hg

Active User


Joined: 21 Mar 2008
Posts: 161
Location: bangalore

PostPosted: Tue Jul 08, 2008 10:15 am    Post subject: Reply to: How to know whether the field was changed?
Reply with quote

hi Earl,

Thanks for your concern,

I did some study regarding that.
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 INVALID FIELD OR CONSTANT IN SORTOF ?? Ron Klop DFSORT/ICETOOL 8 Wed Jan 11, 2017 3:44 pm
No new posts Performing arithmetic on input field zh_lad DFSORT/ICETOOL 31 Tue Dec 06, 2016 8:04 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts How to split the records using the am... vnktrrd DFSORT/ICETOOL 24 Fri Oct 28, 2016 7:33 pm
No new posts Sort records based on numeric field. Alks SYNCSORT 2 Wed Oct 19, 2016 10:14 pm


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