Cursor positioning in Assembly CICS

Rajani Krishna · New User Joined: 24 Oct 2007 Posts: 3 Location: India

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.

hemanth.nandas · Active User Joined: 18 Aug 2007 Posts: 120 Location: India

Hi Rajani,

Rajani Krishna · New User Joined: 24 Oct 2007 Posts: 3 Location: India

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.

UmeySan · Posted: Tue Oct 30, 2007 2:06 pm

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

Rajani Krishna · New User Joined: 24 Oct 2007 Posts: 3 Location: India

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.

UmeySan · Posted: Wed Oct 31, 2007 1:35 pm

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

UmeySan · Posted: Wed Oct 31, 2007 2:00 pm

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

Earl · Posted: Thu Nov 01, 2007 8:25 am

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

UmeySan · Posted: Wed Nov 07, 2007 4:49 pm

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

revel · Posted: Wed Nov 07, 2007 5:00 pm

Hi Rajani Krishna,

haibrs · New User Joined: 03 Jan 2007 Posts: 8 Location: Mumbai

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

Earl · Posted: Mon Dec 17, 2007 11:50 pm

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.

haibrs · New User Joined: 03 Jan 2007 Posts: 8 Location: Mumbai

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

Regards
BRS

Earl · Posted: Tue Dec 18, 2007 9:03 pm

BRS.

not that I am aware of,

you will need to code for it.

perhaps have 2 different sends.

-Earl