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
 

 

Cursor positioning in Assembly CICS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
Rajani Krishna

New User


Joined: 24 Oct 2007
Posts: 3
Location: India

PostPosted: Mon Oct 29, 2007 2:44 pm    Post subject: Cursor positioning in Assembly CICS
Reply with quote

Hi!

Can you tell me how to do dynamic positioning of the cursor in Assembly language CICS. I am sending -1 to the field+L with cursor option in send map and also have IC in the field. But the cursor is not moving dynamically as per the requirement. I even initialized the map by passing low values to it in the beginning of the program.
Back to top
View user's profile Send private message

hemanth.nandas

Active User


Joined: 18 Aug 2007
Posts: 120
Location: Chennai

PostPosted: Mon Oct 29, 2007 3:23 pm    Post subject:
Reply with quote

Hi Rajani,


Quote:
Can you tell me how to do dynamic positioning of the cursor in Assembly language CICS


Are you writing CICS program in Assembly Program?

Quote:
I am sending -1 to the field+L with cursor option in send map and also have IC in the field.


ATTRB=IC can be overridden by the CURSOR option of the SEND MAP command that causes the write operation.

Quote:
But the cursor is not moving dynamically as per the requirement.


What does it mean?
Do you wanna move cursor to next field as values entered?
Back to top
View user's profile Send private message
Rajani Krishna

New User


Joined: 24 Oct 2007
Posts: 3
Location: India

PostPosted: Mon Oct 29, 2007 10:03 pm    Post subject: Reply to: Cursor positioning in Assembly CICS
Reply with quote

hi Hemanth,

Thanks for the immediate reply. Yes, I am writing CICS program in Assembly language and I am trying to position the cursor on the field on the screen at the place of the error. It will help more if you can give me a sample program of CICS in assembly langauge with dynamic positioning of cursor.
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 743
Location: Germany

PostPosted: Tue Oct 30, 2007 2:06 pm    Post subject:
Reply with quote

Hi Rajani !

CICS-ASSEMBLER, Great !

You have to move the -1 to the Length-Field of the Map-Field in which the
user entered somthing wrong.

You could also change the colour by using other attributes.

Regards, UmeySan
Back to top
View user's profile Send private message
Rajani Krishna

New User


Joined: 24 Oct 2007
Posts: 3
Location: India

PostPosted: Wed Oct 31, 2007 11:35 am    Post subject: Reply to: Cursor positioning in Assembly CICS
Reply with quote

Hi UmeySen,

I have done that. But it is not moving. I moved low-values to the map in the start of the program. I moved IC to all the fields where dynamic cursor postioning is needed, moved -1 to the field+L, added cursor option to the send map. But still, the cursor is not moving to the field dynamically. Colour change is working successfully.
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 743
Location: Germany

PostPosted: Wed Oct 31, 2007 1:35 pm    Post subject:
Reply with quote

Hi !

Essentially everything seams to be right. Normaly, i have a IC on the first
MapField, that the user has to enter. Then, with Tab he could move to the next MapField. After receiving Map and checking MapFields, i move -1 to the LengthByte of that MapField, where the first error has occured. Also i change colour of other MapFields, which are in error. I also change the attributes of the correct MapFields to protect and askip before resendeing the Map.

Regards, UmeySan
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 743
Location: Germany

PostPosted: Wed Oct 31, 2007 2:00 pm    Post subject:
Reply with quote

Hi !

One more hint:

MVC -1 to the FldnameF for cursor positionig

exec cics
send map('xxxx') mapset('xxxx')
dataonly cursor
end-exec

Regards, UmeySan
Back to top
View user's profile Send private message
Earl

Active User


Joined: 17 Jun 2007
Posts: 148
Location: oklahoma

PostPosted: Thu Nov 01, 2007 8:25 am    Post subject:
Reply with quote

Sorry no cigar,

FldmameF is incorrect

for assembler its

mvc FldnmeL,=X'FFFF'

I copied the following statement from a working Assembler program..
MVC M1SSN1L,=X'FFFF' POSITION CURSOR TO SSN FIELD

EXEC CICS SEND MAP ('XXXXXXXX') CURSOR END-EXEC
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 743
Location: Germany

PostPosted: Wed Nov 07, 2007 4:49 pm    Post subject:
Reply with quote

Hi Earl !

Sorry, right, must be L instead of F.

But that's what i wrote in my post before.

>> I move -1 to the LengthByte of that MapField, where the first error has occured. <<

Thanks for correcting !

UmeySan
Back to top
View user's profile Send private message
revel

Active User


Joined: 05 Apr 2005
Posts: 135
Location: Bangalore/Chennai-INDIA

PostPosted: Wed Nov 07, 2007 5:00 pm    Post subject:
Reply with quote

Hi Rajani Krishna,


Quote:
But the cursor is not moving dynamically as per the requirement


May be because, you didn't used CURSOR Option while SENDING MAP

Say,

Code:
EXEC CICS SEND
         MAP(Map name)
         MAPSET(Mapset Name)
         CURSOR
END-EXEC.
Back to top
View user's profile Send private message
haibrs

New User


Joined: 03 Jan 2007
Posts: 8
Location: Mumbai

PostPosted: Mon Dec 17, 2007 2:11 pm    Post subject:
Reply with quote

Hi Rajani,
Did you got the solution for Cursor positioning !
If so san you explain me too..the same plzzz!
I have the same problem..but i am able to get the Dynamic Cursor position correctly(i.e. by move `ffff` to length field)
but my default cursor position defined in BMS( by giving ATTRB=IC) is not working properly.
My problem is occuring when i send the map without errors that time the default cursor is always pointing at (row,col)=(1,1) but my default(actual) position is defined in BMS is different.


Regard's
BRS
Back to top
View user's profile Send private message
Earl

Active User


Joined: 17 Jun 2007
Posts: 148
Location: oklahoma

PostPosted: Mon Dec 17, 2007 11:50 pm    Post subject:
Reply with quote

BRS,

if you specify CURSOR on the send,

BMS expects an override, you MUST always specify -1 (x'ffff') to length field ,


if you want to default then you need a CICS SEND without cursor option.
Back to top
View user's profile Send private message
haibrs

New User


Joined: 03 Jan 2007
Posts: 8
Location: Mumbai

PostPosted: Tue Dec 18, 2007 1:43 pm    Post subject:
Reply with quote

Earl,
Thanks for your Reply...!
Is there any chance chance or way handle both conditions.

Regards
BRS
Back to top
View user's profile Send private message
Earl

Active User


Joined: 17 Jun 2007
Posts: 148
Location: oklahoma

PostPosted: Tue Dec 18, 2007 9:03 pm    Post subject:
Reply with quote

BRS.

not that I am aware of,

you will need to code for it.

perhaps have 2 different sends.


-Earl icon_cool.gif
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 -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
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
No new posts Updating Cursor row withour using FOR... chandan.inst DB2 15 Tue Nov 08, 2016 11:17 am


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