Go4AS400-Image

The Web Ask Go4AS400
Share  
Homepage
See Sitemap
as400_FAQ
See Videos here
Contact me



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

 

                                                                                       


Comments:


Copyright © Go4as400.com, 2014. Copyright notice