RAMP TSAD06 Appendix Function UFRTS03

RAMP-TS

RAMP-TSAD06 Appendix: Function UFRTS03

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