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
 
Dynamic input fields in BMS map with data stream attributes

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

Active User


Joined: 16 Apr 2008
Posts: 104
Location: South Carolina

PostPosted: Wed Oct 05, 2011 1:05 am    Post subject: Dynamic input fields in BMS map with data stream attributes
Reply with quote

I am working on something that has me stumped...

Here are a few sections of my BMS:

Code:

TSUTMB2  DFHMSD TYPE=MAP,CTRL=FREEKB,LANG=COBOL,MODE=INOUT,TERM=ALL,   *
               STORAGE=AUTO
TSUTMB2  DFHMDI SIZE=(24,80),TIOAPFX=YES,LINE=1,COLUMN=1,              *
               MAPATTS=(COLOR,PS,HILIGHT,VALIDN),DSATTS=(COLOR,PS,     *
               HILIGHT,VALIDN)

...

LN-ACTION DFHMDF POS=(8,1),LENGTH=1,COLOR=GREEN,ATTRB=(UNPROT,NORM),   *
               HILIGHT=OFF
LN-APPLID DFHMDF POS=(8,3),LENGTH=8,COLOR=NEUTRAL,ATTRB=(ASKIP,NORM),  *
               HILIGHT=OFF
LN-PARMS DFHMDF POS=(8,12),LENGTH=66,COLOR=GREEN,ATTRB=(UNPROT,NORM),  *
               HILIGHT=OFF
         DFHMDF POS=(8,79),LENGTH=1

...

         DFHMSD TYPE=FINAL
                END



LN-PARMS is my dynamic field. I am populating the field with protected and unprotected fields.

Here is the content of LN-PARMS in my program before the SEND MAP:

Code:
 000000  40401D45 D6D7C5D5 40404040 401DF01D  *   ..OPEN     .0. *
 000010  45C5D5C1 C2D3C5C4 40401DF0 40401D45  * .ENABLED  .0  .. *
 000020  E8C5E21D F0401D45 E8C5E21D F01D45E8  * YES.0 ..YES.0..Y *
 000030  C5E21DF0 1D45E8C5 E21DF01D 45E8C5E2  * ES.0..YES.0..YES *
 000040  1DF0                                 * .0               *


1D45 is my first attribute (unprotected). I intentionally shifted the attribute over by two bytes.

Now I overtype all the fields with 'S' and do a RECEIVE MAP, and this is the content of LN-PARMS:

Code:
 000000  E2E24040 40404040 40404040 40404040  * SS               *
 000010  40404040 40404040 40404040 40404040  *                  *
 000020  40404040 40404040 40404040 40404040  *                  *
 000030  40404040 40404040 40404040 40404040  *                  *
 000040  4040                                 *                  *


I am assuming that the attributes that I am inserting are not really 'input' attributes, and the MDT byte is not behaving as normal. This is what has me stumped. Why is the MDT byte not being set when I modify the field?
Back to top
View user's profile Send private message

Mickeydusaor

Active User


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

PostPosted: Wed Oct 05, 2011 3:07 am    Post subject:
Reply with quote

try using FSET on the fields in your map
Back to top
View user's profile Send private message
valyk

Active User


Joined: 16 Apr 2008
Posts: 104
Location: South Carolina

PostPosted: Wed Oct 05, 2011 4:32 am    Post subject:
Reply with quote

I didn't add it to the BMS, but I did move DFHBMFSE to the attribute byte in my program before the send map. It didn't make a difference.

I also tried using 1D40 and 1D45 (MDT byte on) and it also didn't make a difference.

I'll try hard coding FSET to the BMS.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10327
Location: italy

PostPosted: Wed Oct 05, 2011 11:43 am    Post subject: Reply to: Dynamic input fields in BMS map with data stream a
Reply with quote

You are confusing things and BMS at the same time

You cannot expect BMS to map properly a messed up screen, because that's just what You did
did You read the 3270 programming guide on how the fileds are defined for proper 3270 handling ? looks like not

BMS tries to map things according to the map definition, not according to Your messed up screen

BMS in mapping fields is not driven by the attributes, but by the SBA and START FIELD commands ,

review the design

You might get away with messing around with output fields, when doing it with INPUT fields the best You can expect are unexpected results

misplaced, misMapped fields at least, but on the long run BMS MAPPING errors

if You need Dynamic input fields You will have to <parse> yourself the unformatted buffer read.
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 Subtract the ZD fields to provide neg... Balaryan DFSORT/ICETOOL 4 Wed Oct 11, 2017 10:51 pm
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
No new posts Addition of two records on 2 fields amar143 SYNCSORT 8 Tue Oct 03, 2017 11:14 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am

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