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

Modified field on the map


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
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
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: 3156
Location: Tucson AZ

PostPosted: Wed Jul 11, 2007 6:48 am
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
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
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
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
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: 3156
Location: Tucson AZ

PostPosted: Fri Jul 13, 2007 3:22 am
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
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
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: 3156
Location: Tucson AZ

PostPosted: Fri Jul 13, 2007 3:53 am
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
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: 3156
Location: Tucson AZ

PostPosted: Fri Jul 13, 2007 4:38 am
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
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
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 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