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

Dynamic input fields in BMS map with data stream attributes


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
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
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
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
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

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Wed Oct 05, 2011 11:43 am
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts How to save SYSLOG as text data via P... All Other Mainframe Topics 2
No new posts TRIM everything from input, output co... DFSORT/ICETOOL 1
No new posts Store the data for fixed length COBOL Programming 1
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts Data set Rec-Cnt and Byte-Cnt Testing & Performance 2
Search our Forums:

Back to Top