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