This function return the description of a local menù
- Funprog GET_MENLOC_TEXT(PNUMENU,PCODE)
- Value Integer PNUMENU # -> Number of menu
- Value Integer PCODE # -> Item Code
- Local Char X_RET(250) : X_RET = ""
- If clalev([F:XAPL]) = 0 Then Local File APLSTD [F:XAPL] : Endif
- Read [F:XAPL]CLE = PNUMENU;PCODE;'ITA'
- If fstat = 0 Then
- X_RET = [F:XAPL]LANMES
- Endif
- End X_RET
In this example the function return ‘No’
- Local Integer XNUMMENU : XNUMMENU = 1
- Local Integer XCODE : XCODE = 1
- #... return 'No'
- Infbox func GET_MENLOC_TEXT(XNUMMENU,XCODE)
- #... return 'Yes'
- XCODE = 2
- Infbox func GET_MENLOC_TEXT(XNUMMENU,XCODE)