Go4AS400-Image

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



Ü  RTNCSRLOC

 

·         This record level keyword is used to return the location of the cursor where it is placed on the screen.

·         The syntax is:

RTNCSRLOC(&RCD &FLD &POS)

Where,

RCD=Display file record

FLD=Screen field name

POS=Position where the cursor is placed on the record’s field

 

Example

 

 

 

Columns . . . :    1 100                    Edit                        IROBO1/QRPGLESRC

 SEU==>                                                                             DSP3

 FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions+++++++++++++++++++++++++++

        *************** Beginning of data **********************************************

0000.30      A                                      DSPSIZ(24 80 *DS3)

0000.40      A                                      CA03(03 'EXIT')

0000.50      A          R HEADER

0000.60      A                                  3 27'ACCOUNT REALATED INFORMATION'

0000.70      A                                  3  1USER

0000.80      A                                  3 73DATE

0000.90      A                                      EDTCDE(Y)

0001.00      A                                  4 73TIME

0001.10      A          R DETAIL

0001.30      A                                      RTNCSRLOC(&RCD &FLD &POS)

0001.40      A                                      OVERLAY

0001.50      A            FLD           10A  H

0001.60      A            RCD           10A  H

0001.70      A            POS            4S 0H

0001.80      A                                  7 14'PARTY NUMBER....'

0001.90      A                                  8 14'ORG CODE........'

0002.00      A                                  9 14'ACCOUNT NUMBER..'

0002.10      A                                 10 14'CURRENCY........'

0002.20      A            S_PARTY       12A  O  7 34

0002.30      A            S_ORG          3S 0O  8 34

0002.40      A            S_ACC         12A  O  9 34

0002.50      A            S_CCY          3A  O 10 34

0002.60      A          R FOOTER

0002.70      A                                      OVERLAY

0002.80      A                                 23  2'F3 = EXIT'

        ****************** End of data ***********************************************

                                                                                                                                    

                                                                                                                                   

 

 

                                                                                                                                   

 

Columns . . . :    6 100                     Edit                   IROBO1/QRPGLESRC

 SEU==>                                                                         RPG3

 FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords++++++++++Comments++++++++++++

        *************** Beginning of data ******************************************

0001.00 FACCOUNT   IF   E           K DISK

0002.00 FDSP3      CF   E             WORKSTN

0003.00  *

0004.00 C                   DOW       *IN03=*OFF

0005.00 C   03              LEAVE

0006.00 C                   READ      ACCOUNT

0007.00 C                   IF        %EOF(ACCOUNT)

0008.00 C                   LEAVE

0009.00 C                   ENDIF

0010.00 C                   EVAL      S_PARTY=PARTY

0011.00 C                   EVAL      S_ORG=ORG

0012.00 C                   EVAL      S_ACC=ACC

0013.00 C                   EVAL      S_CCY=CCY

0014.00 C

0015.00 C                   WRITE     HEADER

0016.00 C                   WRITE     DETAIL

0017.00 C                   WRITE     FOOTER

0018.00 C                   READ      DETAIL

0018.01 C   03              LEAVE

0018.01 C   03              LEAVE

0019.00 C     RCD           DSPLY

0020.00 C     POS           DSPLY

0021.00 C     FLD           DSPLY

0022.00 C                   ENDDO

0023.00 C                   SETON                                        LR

        ****************** End of data *******************************************

 

 

 

OUTPUT

 

 

                                                                               

                                                                               

IROBO                     ACCOUNT REALATED INFORMATION                   4/06/13

                                                                        21:26:19

                                                                                

                                                                               

             PARTY NUMBER....    P00000000001   >>>> Cursor is placed at P in P00000000001

             ORG CODE........    190                                           

             ACCOUNT NUMBER..    A00000000001                                  

             CURRENCY........    CCY                                           

                                                                               

                                                                               

                                                                               

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                                

                                                                               

                                                                               

                                                                                

 F3 = EXIT                                                                     

                                                                               

 

 

 

Below is the output that we get after the cursor is placed is placed at P0000000001 and ENTER is hit:

 

 

DSPLY  DETAIL   

DSPLY     1     

DSPLY  S_PARTY  

 

 


Comments:


Copyright © Go4as400.com, 2014. Copyright notice