RE: Position Cursor on a Display File

["VIJI SETHURAMAN" <VIJI.SETHURAMAN@xxxxxxx>]

Hi there!

I asked the same question a while ago, and I got some very good code and I have
incorporated it
into my programs.  It works, so may be you can use it...
To save you some time, here is the subroutine that does the job and other
relevant parts:

 File info DS for the DSPF
 D DSPFInfo        DS
 D  LinPos#              370    371B 0
 D  RequestDev           197    206
 D SaveLin#        S              3  0
 D SavePos#        S              3  0

 Select
 When      i_cmd ='SAVE'
 Eval      SaveLin#=LinPos#/256
 Eval      SavePos#=LinPos#-(SaveLin#*256)
 When      i_cmd ='SET '
 Eval      S0Lin#= SaveLin#
 Eval      S0Pos#= SavePos#
 When      i_cmd ='CLEAR'
 Eval      S0Lin#= *zero
 Eval      S0Pos#= *zero
 Other

The select is put into a procedure for ease of use...
I use a procedure in the same program, but you can choose your method....

C                   DoW       Not *inKC  AND  Not *inK
C                   EXFMT     VCP010R1
C     *INKC         CABEQ     True          ENDPGM
C     *INKL         CABEQ     True          ENDPGM
C                   CallP     P_Cursor('SAVE')
C                   If        *inKD
C                   Exsr      DisplayList
C                   CallP     P_Cursor('SET')
C                   Iter
C                   Endif
C                   If        *INKF