Ü CSRLOC
·
This record level keyword is used
to set the cursor location on an output operation.
·
On an input operation, the cursor
location can be determined by looking at the I/O feedback area or specifying
the appropriate parameter on the RTNCSRLOC keyword.
·
The syntax of this keyword is:
CSRLOC(row_number, column_number)
Where row_number and column_number are
3-byte zoned decimal hidden field.
·
The CSRLOC keyword is not valid for
subfile record formats.
Example
Columns . . . : 1 80 Edit AMITCCCCC/QRPGLESRC
SEU==> CSRLOC_DSP
FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++++++
*************** Beginning of data **********************************************
0001.00 A DSPSIZ(24 80 *DS3)
0002.00 A CF04(04 'PROMPT')
0003.00 A CA03(03 'EXIT')
0004.00 A R HEADER CSRLOC(LIN_NO POS_NO)
0005.00 A LIN_NO 3 0H
0006.00 A POS_NO 3 0H
0007.00 A 1 35'MAIN SCREEN'
0008.00 A 1 71DATE
0009.00 A EDTCDE(Y)
0010.00 A 2 71TIME
0011.00 A 5 13'FIELD NO. 1'
0012.00 A 6 13'FIELD NO. 2'
0013.00 A 7 13'FIELD NO. 3'
0014.00 A FLD001 12A B 5 30COLOR(BLU)
0015.00 A FLD002 20A B 6 30COLOR(BLU)
0016.00 A FLD003 12A B 7 30COLOR(BLU)
0017.00 A R FOOTER OVERLAY
0018.00 A 24 02'F3 = EXIT'
0019.00 A 24 13'F4 = WINDOW PROMPT'
****************** End of data **************************************************
Columns . . . : 6 80 Browse AMITCCCCC/QRPGLESRC
SEU==> CSRLOC_PGM
FMT H HKeywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
*************** Beginning of data ***********************************************
0001.00 HOPTION(*NODEBUGIO)
0002.00 FMASTER IF E K DISK
0003.00 FDSP000 CF E WORKSTN
0004.00 C *LOVAL SETLL REC1
0005.00 C READ REC1
0006.00 C DOW *IN03=*OFF
0007.00 C 03 LEAVE
0008.00 C* EVAL LIN_NO=6
0009.00 C* EVAL POS_NO=30
0010.00 C WRITE HEADER
0011.00 C WRITE FOOTER
0012.00 C READ HEADER
0013.00 C IF *IN04=*ON
0014.00 C CALL 'WIND_PGM4C'
0015.00 C ENDIF
0016.00 C ENDDO
0017.00 C SETON LR
****************** End of data ************************************************
OUTPUT
When the program returns from the calling
program WIND_PGM4C, the cursor will be placed at the point (06,30) i.e. line
number 6 and column number 30 i.e. the 2nd field.