FUNCTION OPTIONS(*DIRECT) BEGIN_LOOP * Get the key details * A classic junction * Cancel key goes back to process menu or caller program RQ1: DOUNTIL COND('#IO$STS = OK') REQUEST FIELDS(#EMPNO) EXIT_KEY(*NO) PANEL_ID(UFRTS03_R1) PANEL_TITL('UFRTS03_R1 - Input Employee Number') FETCH FIELDS(*ALL) FROM_FILE(pslmst) WITH_KEY(#EMPNO) ISSUE_MSG(*YES) ENDUNTIL * Display details screen 1 * Cancel key goes back to request next employee number * Enter goes forward to Details screen 2 DISPLAY FIELDS(#EMPNO #SURNAME #GIVENAME) EXIT_KEY(*NO) MENU_KEY(*YES RQ1) PANEL_ID(UFRTS03_D1) PANEL_TITL('UFRTS03_D1 - Employee Details - 1') * Display details screen 2 * Cancel key goes back to request next employee number * Enter goes forward to Details screen 3 DISPLAY FIELDS(#EMPNO #ADDRESS1 #ADDRESS2 #ADDRESS3) EXIT_KEY(*NO) MENU_KEY(*YES RQ1) PANEL_ID(UFRTS03_D2) PANEL_TITL('UFRTS03_D2 - Employee Details - 2') * Display details screen 3 * Cancel key goes back to request next employee number * Enter goes forward to request next employee number DISPLAY FIELDS(#EMPNO #SALARY #DEPTMENT #SECTION) EXIT_KEY(*NO) MENU_KEY(*YES RQ1) PANEL_ID(UFRTS03_D3) PANEL_TITL('UFRTS03_D3 Employee Details - 3') * Loop around and ask for the next employee number END_LOOP