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
 

 

CICS IBM BMS MAP

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

New User


Joined: 10 Dec 2010
Posts: 43
Location: hyderabad

PostPosted: Mon Dec 27, 2010 11:45 am    Post subject: CICS IBM BMS MAP
Reply with quote

Hello to all,

hope my doubt will be resolved here.

basically, the screen is 24*80, all we know that,
after if we like this,

Code:
DFHMDF POS=(006,073),                                         C
      LENGTH=006,                                             C
      ATTRB=(ASKIP,BRT),                                      C
      OUTLINE=UNDER,                                          C
      COLOR=TURQUOISE,                                        C
      PS=8,                                                   C
      GINIT=' ãYçfá '
DFHMDF POS=(006,081),                                         C
      LENGTH=001,                                             C
      ATTRB=(ASKIP,FSET)
DFHMDF POS=(006,081),                                         C
      LENGTH=001,                                             C
      ATTRB=(PROT,BRT,FSET)


will it create error or not, if not create any error why so.

but if i compile am not getting any error. why so am not getting.

please resolve this


Thanks in advance.
Back to top
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Mon Dec 27, 2010 12:13 pm    Post subject:
Reply with quote

Mahi_e wrote:
basically, the screen is 24*80, all we know that,


24X80 is not the only resolution available,
some of us know that.
Back to top
View user's profile Send private message
Mahi_e

New User


Joined: 10 Dec 2010
Posts: 43
Location: hyderabad

PostPosted: Mon Dec 27, 2010 3:00 pm    Post subject:
Reply with quote

OK, But i didn't get you. please explain me clearly
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10210
Location: italy

PostPosted: Mon Dec 27, 2010 3:52 pm    Post subject: Reply to: CICS IBM BMS MAP
Reply with quote

Quote:

basically, the screen is 24*80, all we know that,
after if we like this,
...
...
...
will it create error or not, if not create any error why so.

but if i compile am not getting any error. why so am not getting.

please resolve this


we all understand that for many ( almost all ) of us english is not the first language,
but everybody should make the effort to ask in a comprehensible way
it is sad to notice that You did not try a bit!


please reword in a less confusing way Your question!
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10210
Location: italy

PostPosted: Mon Dec 27, 2010 7:03 pm    Post subject: Reply to: CICS IBM BMS MAP
Reply with quote

do not double post the same issue on different forums!
even if the IDs are different the wording is exactly the same
( http://ibmmainframeforum.com/viewtopic.php?f=17&t=4985 )
people answering are mostly the same!

take a decision on which forum You want to keep the discussion
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1224
Location: Israel

PostPosted: Mon Dec 27, 2010 10:01 pm    Post subject:
Reply with quote

This is part of the DFHMDF macro code:
Code:
         AIF   (&POS(1) LT 1 OR &POS(1) GT 240).MDFE04               
         AIF   (&POS(2) LT 1 OR &POS(2) GT 240).MDFE04               
&FPOS    SETA  (((&POS(1)-1)*(&COLS))+(&POS(2)-1))  CALCULATE POSITION

The macro checks that row and column are between 1 and 240,
then it calculates the offset from top of screen using the classic formula: (((Row-1)*Width)+(Col-1))
So, in your case (6,81) is equivalent to (7,1)

Why does it work like this ? you will have to ask IBM.

BTW, in the example you gave you should have a return code of 4 and a MNOTE because you have overlapping fields.
__________________________________
there was a time I was able to write assembler macros... and read dumps... Ahh, that was the good old time...
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 CICS transaction slow response time vasanthz All Other Mainframe Topics 1 Thu Jan 19, 2017 1:31 am
No new posts INDEPENDENT CICS TS 4.1 MRO REGION UP... Kyle Carroll CICS 0 Wed Dec 14, 2016 6:55 pm
No new posts CICS START AND CANCEL blayek CICS 1 Wed Dec 07, 2016 3:27 am
No new posts How does a called pgm know if its cal... Graeme Westerman COBOL Programming 4 Tue Nov 29, 2016 9:25 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us