Ü  FLDCSRPRG

 

·         This field-level keyword is used to define the field to which the cursor moves when exiting this field.

 

 

Example

 

In the example below the cursor will be at the initial field S_ORG and then after field exiting will progress to the next field S_ACC and then S_CCY and S_PARTY after that.

 

 

0004.00      A          R HEADER                                               

0005.00      A                                  1 30'ACCOUNT ENTRY DISPLAY'    

0006.00      A                                      DSPATR(HI)                 

0007.00      A                                      COLOR(BLU)                 

0008.00      A                                  4 25'ORG'                      

0009.00      A                                      DSPATR(HI)                 

0010.00      A                                      COLOR(BLU)                 

0011.00      A            S_ORG          3S 0B  4 35                           

0011.01      A                                      FLDCSRPRG(S_ACC)           

0012.00      A  50                                  DSPATR(RI)                 

0013.00      A                                  5 25'ACC'                      

0014.00      A                                      DSPATR(HI)                 

0015.00      A                                      COLOR(BLU)

0016.00      A            S_ACC         12A  B  5 35                           

0016.01      A                                      FLDCSRPRG(S_CCY)           

0017.00      A  51                                  DSPATR(RI)                 

0018.00      A                                  6 25'CCY'                      

0019.00      A                                      DSPATR(HI)                 

0020.00      A                                      COLOR(BLU)                 

0021.00      A            S_CCY          3A  B  6 35                           

0021.01      A                                      FLDCSRPRG(S_PARTY)         

0022.00      A  52                                  DSPATR(RI)                 

0023.00      A                                  7 25'PARTY'                    

0024.00      A                                      DSPATR(HI)                  

0025.00      A                                      COLOR(BLU)                 

0026.00      A            S_PARTY       12A  B  7 35                           

0027.00      A  53                                  DSPATR(RI)  

              

 





User Comments:





Copyright © Go4as400.com, 2013-2016. Copyright notice