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
 

 

Modified field on the map

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

New User


Joined: 12 Sep 2005
Posts: 28

PostPosted: Wed Jul 11, 2007 6:21 am    Post subject: Modified field on the map
Reply with quote

Can I simply check if length of the field on the BMS map is equal to 0 for checking if a field was modified?
I think YES, but I read somewhere that "No, not if ERASE EOF was used."
Can somebody please help?
Back to top
View user's profile Send private message

William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Wed Jul 11, 2007 6:48 am    Post subject:
Reply with quote

I'm sorry that I can't recall, but I know that you can "play" with the map interactivly with CECI...Try various inputs and see what information gets returned....
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Wed Jul 11, 2007 9:16 pm    Post subject:
Reply with quote

If you are going to check the length field then check for a X'80'
Back to top
View user's profile Send private message
Earl

Active User


Joined: 17 Jun 2007
Posts: 148
Location: oklahoma

PostPosted: Fri Jul 13, 2007 1:53 am    Post subject:
Reply with quote

If the ERASE EOF is depressed in the 1st position of the field the x'80'
will be in fieldnameF and fieldnameL will be ZERO.
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Fri Jul 13, 2007 3:03 am    Post subject:
Reply with quote

02 FILLER PIC X(12).
02 SYSDATEL COMP PIC S9(4).
02 SYSDATEF PICTURE X.
02 FILLER REDEFINES SYSDATEF.
03 SYSDATEA PICTURE X.
02 FILLER PICTURE X(2).
02 SYSDATEI PIC X(10).

the SYSDATEL field will have x'0000' and the
SYSDATEF will have the attribute for the field
when you use the EOL, which tells you that the
field has not been modified.

If you check the length field for the X'80'
this shows you that the FIELD has been
modified as for the question you asked.
Back to top
View user's profile Send private message
Earl

Active User


Joined: 17 Jun 2007
Posts: 148
Location: oklahoma

PostPosted: Fri Jul 13, 2007 3:18 am    Post subject:
Reply with quote

Mickeydusaor,

hmmm, maybe CICS has changed since last time I coded for this condition. I used to check fieldnameF (SYSDATEF) for the X'80' to detect eraseEOF keystroke. Which would mean field was modified, contained data, then erased.

in your example, SYSDATEL is the length field , so I really don't understand why CICS would post the x'80' in it. Its a 2byte field, so which byte contains the x'80' ?
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Fri Jul 13, 2007 3:22 am    Post subject:
Reply with quote

Mickeydusaor wrote:
the SYSDATEL field will have x'0000' and the
SYSDATEF will have the attribute for the field
when you use the EOL, which tells you that the
field has not been modified.

If you check the length field for the X'80'
this shows you that the FIELD has been
modified as for the question you asked.
I'm (was) fairly connected with CICS, but I've never really learned the "rules" for BMS fields back from the user.....Thanks for the insight....
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Fri Jul 13, 2007 3:35 am    Post subject:
Reply with quote

If you really want to know if a field has been MODIFIED, either by the
user SPACING out the field or with the EOL key or typing in a new value
I check the field with what was originally sent to the screen and if they do not match, I move the new value to the original field that was saved. Using the LENGTH field to determine if the field has been modifed is not
really the correct way for processing the data on the MAP as I think you
have found out.
Back to top
View user's profile Send private message
Earl

Active User


Joined: 17 Jun 2007
Posts: 148
Location: oklahoma

PostPosted: Fri Jul 13, 2007 3:51 am    Post subject:
Reply with quote

Agreed, I prefer matching what was sent to received, but I've maintained a lot of code that check length fields.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Fri Jul 13, 2007 3:53 am    Post subject:
Reply with quote

"as I think you have found out"
Right, ya' got it....
I just have never been required (by myself) to put a set of rules to it..... All things come to those that wait...
Thanks again...
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Fri Jul 13, 2007 4:00 am    Post subject:
Reply with quote

Yes, I have written and maintaned old and I mean old code,
back in the day this was the only way to know if the field
had been changed, but with the commarea to say and
return you data it made is much simpler to know when
a changed occurred.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Fri Jul 13, 2007 4:38 am    Post subject:
Reply with quote

Macro level? BMS without SDF? Assembler coding the CSECT field structure and DSECT values in a straight output to a screen?
Back to top
View user's profile Send private message
Earl

Active User


Joined: 17 Jun 2007
Posts: 148
Location: oklahoma

PostPosted: Fri Jul 13, 2007 4:44 am    Post subject:
Reply with quote

ahhh ,,

music to my ears,
Macro Level, Assembler CICS , NO BMS
just 3270 native mode sends/receives

ST TIOABAR,TCTTEDA
DFHTC TYPE=SEND

those were the days
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Fri Jul 13, 2007 7:20 pm    Post subject:
Reply with quote

Earl,

Bringing back old memories, ya but I do enjoy not having to remember
all of this, just getting older I quess. one thing I do miss is not having
access to some of the control blocks.
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