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
 
sample program testing MDT's

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

New User


Joined: 02 Aug 2010
Posts: 2
Location: Sewell, NJ

PostPosted: Fri Aug 13, 2010 8:27 pm    Post subject: sample program testing MDT's
Reply with quote

I getting back into the CICS world after a 10 year absence. Does anyone have a sample program that tests if the MDT, including both erase EOF and erase screen, was modified before updating the BMS filed to a database. I have the Murach sample programs but all their fields are transmitted even if they were not modified. I'm specifically looking for the sample program used in Computer Tasks Group's CICS course but I will take any similar programs.

Please note that I am not looking for any companies software that is in use. I am only looking for samples that can be legally shared.

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

Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2504
Location: Atlanta, Georgia, USA

PostPosted: Fri Aug 13, 2010 9:39 pm    Post subject: Reply to: sample program testing MDT's
Reply with quote

Tom,

Welcome to the forum.

To test MDT's after a RECEIVE would be to check if the map-field's length is greater than zero.

For testing ERASE-EOF (after the RECEIVE as weil), check the attribute field for a X'80'. I believe this is defined to copybook DFHBMSCA as DFHBMEOF. If not, it's easy enough to define your own or use a hex-literal.

Some shops set the attribute-byte to FSET for each map field, instead of moving these map-fields to the commarea.

When all map-fields attribute-bytes are set to FSET, then all the data is sent and upon the next RECEIVE, all of the length fields associated with these previous FSET fields will be greater than zero. This would cause re-editing/validating of the map-data again, not to mention re-transmitting of all the map-data, again and again (SEND/RECEIVE). This is why the commarea should be used to hold previously entered and validated map-data.

Unfortunately, I don't have a sample program. But, there might be some in one of the IBM manuals.

Check for a manual list at the top of the page.

HTH....

Bill
Back to top
View user's profile Send private message
c62ip64

New User


Joined: 02 Aug 2010
Posts: 2
Location: Sewell, NJ

PostPosted: Sat Aug 14, 2010 10:36 pm    Post subject: Reply to: sample program testing MDT's
Reply with quote

OK, thanks for the update. How about checking for the Erase Screen key? Does this key even exist on the keyboard any longer? Although I think someone can program this key if it doesn't.

I remember that it was important to use FSET and FRSET to check if a field was changed for two reasons. The first reason was to prevent modifying a unchanged field with old data after it was modified and updated by someone else. The second was to minimize the data flow over the transmission lines. Is this still important considering the high speed data lines in use today?

Thanks,
Tom
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Thu Aug 19, 2010 3:55 am    Post subject:
Reply with quote

minimizing data flow for greenscreen doesn't seem to be much of a priority now days.
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 How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm
No new posts pre-compiler for program in an HFS Pedro DB2 0 Fri Jun 23, 2017 11:13 pm
No new posts Compiling program in endeavor for tra... RALAKKAL Compuware & Other Tools 4 Mon Jun 05, 2017 8:27 pm

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