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

Cursor positioning in Assembly CICS


IBM Mainframe Forums -> PL/I & Assembler
Post new topic   Reply to topic
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
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: India

PostPosted: Mon Oct 29, 2007 3:23 pm
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
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: 771
Location: Germany

PostPosted: Tue Oct 30, 2007 2:06 pm
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
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: 771
Location: Germany

PostPosted: Wed Oct 31, 2007 1:35 pm
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: 771
Location: Germany

PostPosted: Wed Oct 31, 2007 2:00 pm
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
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: 771
Location: Germany

PostPosted: Wed Nov 07, 2007 4:49 pm
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
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
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
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
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> PL/I & Assembler

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts Calling an Open C library function in... CICS 1
No new posts How to 'Ping' a CICS region in JCL CICS 2
No new posts Parallelization in CICS to reduce res... CICS 4
No new posts How to avoid duplicating a CICS Web S... CICS 0
Search our Forums:

Back to Top