RAMP-TSAD06 付録：ファンクション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