Ü  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.

 




 

 







User Comments:



Copyright © www.go4as400.com, 2013-2023. Copyright notice   Terms of services   Privacy policy