Ü  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  

 

 




 

 







User Comments:



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