IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to know whether the field was changed?


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
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
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
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
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
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
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
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
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
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts Join 2 files according to one key field. JCL & VSAM 3
No new posts How to move the first field of each r... DFSORT/ICETOOL 5
No new posts S0C7 - Field getting overlayed COBOL Programming 2
No new posts Masking variable size field - min 10 ... DFSORT/ICETOOL 4
Search our Forums:

Back to Top