How to get cursor position from system in CICS environment ?
- 8 Answers
- 37522 Views
- I also Faced
- E-Mail Answers
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 ? | 22 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 ? | 12 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 can we execute only one step in a job
22 Answers MAHINDRA, Mind Tree, Tech Mahindra,
There is one QSAM is the VB file. i want to get the first characters in this file and change those characters from'abcd' to '1234' and creat a vasm file to put '1234' in it. how to do in only JCL. if it not QSAM, it's VASM and VB. how to do it.
What is the differentiation between TRK,cyl, and Bytes... how they can be connected??
Can we delete the data using IEFBR14 , IEBGENER??
What is the difference between these two parameters? -> accounting information -> class how would it bring the differrence to a program?
How do you create a temporary dataset?
how can we pass parameters from JCL to cobol subprogram...my requirement is i should not get data from mainprogram but i need it from JCL directly
Suppose there are 2 Input files Infile-1 and Infile-2. Both the Files contain Employee Records. You need to compare both the files and Write the Common Records in third file named Outfile. How can we do this using File-Aid?
how many max steps can we use in a job? pls answer to my question
How to resolve the error "WER488A JOIN CAPACITY EXCEEDED" I am using SYNCSORT with JOINKEYS to compare 2 files. I am Getting error - > WER488A JOIN CAPACITY EXCEEDED There are 2 files to be compared with about 2 million records each. LRECL is 3665. Can somebody give a pointer as to how to resolve this problem? I am using SYNCSORT with JOINKEYS to compare 2 files. I am Getting error - > WER488A JOIN CAPACITY EXCEEDED There are 2 files to be compared with about 2 million records each. LRECL is 3665. Can somebody give a pointer as to how to resolve this problem?
How to find in aparticular step how many versions a paricular gdg base have?
What is timing concept in mainframe?
COBOL 
