How to get cursor position from system in CICS environment ?
Answers were Sorted based on User's Feedback
Answer / arun singh
There are three approches to cursor positioning.
1)static positioning.
by placing "IC" in the attrib parameter of DFHMDF for a
particuler field.
EX. DFHMDF POS=(3,16)
ATTRIB=(UNPROT,FSET,IC)
LENGTH=8
2)Dynamic symbolic positioning.
by using the symbolic name of the field
MOVE -1 TO THE LENGTH FIELD.
3)USING THE CURSOR IN THE SEND MAP.
EX. EXEC CICS SEND
MAP('............')
MAPSET('.........')
CURSOR(100)
END-EXEC.
the cursor will be placed at the position 100 of the
terminal relative to zero.......
| Is This Answer Correct ? | 23 Yes | 7 No |
Answer / pof
EIBCPOSN ( from EIBBLK) gives a number
int(EIBCPOSN /80) + 1 gives line #
1 + EIBCPOSN - 80 *(int(EIBCPOSN /80)) gives column #
| Is This Answer Correct ? | 18 Yes | 3 No |
Answer / amiya ranjan
You can get ur cursor position from EIBCPOSN.
give
COPY DFHAID in working storage.
from eibcposn you will get your cursor position.
suppose you have 80 columns in your screen and if your cursor is in 2nd row and 3rd column then your eibcposn is 80+3 =83
so by dividing it with 80 you will get 1 and adding 1 you will get your row number. Similarly you can get your column position by calculating with above formula given by Pof.
thanks.
| Is This Answer Correct ? | 13 Yes | 0 No |
Answer / venkat
to get the cursor pos of cics environment by the concept
of 'eibcposn'.by copy this dfhbmsca we can achive this.
| Is This Answer Correct ? | 8 Yes | 2 No |
Answer / harsha
1 Divide EIBCPOSN by 80.
2 Save the Quotient. Add 1 to it to get the ROW.
3 Remainder will be your column number.
| Is This Answer Correct ? | 6 Yes | 2 No |
How are datasets concatenated?
A. Job Abended in STEP03. Now run job again to execute STEP03, STEP04 (STEP01,STEP02 should not execute again)
3 Answers Cap Gemini, CSC, Xchanging,
How to pass values in jcl to cobol?
What are the utility programs in jcl?
what is a jcl?
which are the parameters mandatory in job card ?
In which table PLAN is registered in ?
Is it possible to code instream data in a PROC?
Can we use two or more SYSPUNCH DD statements in a JCL for multiple unload (SYSREC00 & SYSREC01)..?
State the uses of syspring, sysin, sort fields, sum fields and dummy.
Hi, I have a requirement File A : I have 6 records out of which 4 are same. File B: I have 8 records out of 6 records are same. The 4 records in FILEA and 6 records in FILE B are same. If we substract we will get two records, I need these two records in output file This is because to remove the duplicates from the database. Through easytrieve we can compare but for that there should not duplicates, but in my file I have duplicates. Thanks in advance!!
How to override loadlib?