We are seeing performance in ESP when running 1000 VGET's
Running 1000 VGETs at once caused a performance impact on ESP INDEX file.
Run VGET command once at the application generation phase.
Example:
IF ESP_APPL_GEN THEN DO
VGET V1 TABLE(GVT)
VGET VN TABLE(GVT)
ENDDO
ELSE DO
DV1=WOBDATA('SAVE','V1')
DVN=WOBDATA('SAVE','VN')
ENDDO
DATA_OBJECT SAVE
SETVAR V1=%DV1
SETVAR VN=%DVN
ENDJOB