Ü  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-2017. Copyright notice