Page History
...
ファンクションのソースは以下のようになっています。
...
FUNCTION OPTIONS(*
...
NOMESSAGES *
...
DEFERWRITE *DIRECT)
GROUP_
...
BY NAME(#PANELDATA)
...
FIELDS(#IDNO #STATUS #SPOUSE #MARRIED #DIVORCED)
**********
...
COMMENT(Loop until user EXITs or CANCELs)
BEGIN_LOOP
R10:
...
REQUEST FIELDS(#IDNO)
...
DESIGN(*DOWN)
...
IDENTIFY(*DESC)
**********
...
COMMENT(Fetch file MARRIAGE details )
FETCH FIELDS(#PANELDATA)
...
FROM_FILE(MSTATUS)
...
WITH_KEY(#IDNO)
...
NOT_FOUND(R10)
...
ISSUE_MSG(*YES)
**********
...
COMMENT(Display results to the user )
SET_MODE TO(*DISPLAY)
POP_
...
UP FIELDS(#PANELDATA)
...
DESIGN(*DOWN)
...
AT_LOC(*
...
UPPER 7) CHANGE_KEY(*YES)
...
DELETE_KEY(*YES)
IF_
...
MODE IS(*CHANGE)
...
UPDATE FIELDS(#PANELDATA)
...
IN_FILE(MSTATUS)
ENDIF
IF_
...
MODE IS(*DELETE)
...
DELETE FROM_FILE(MSTATUS)
...
ISSUE_MSG(*YES)
ENDIF
END_LOOP
「2.3.3.3 コードの比較」を参照してください。