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)