Page History
[ 
|../../index.htm#lansa/get_help.htm]
現在地:
| Anchor | ||||
|---|---|---|---|---|
|
注意: 9.1 組み込み関数の規則 &<a href="ladtgub1_0041.htm"&>利用オプション&</a&>利用オプション
指定のフィールド、ファンクション、またはプロセスに関するヘルプ・テキストのリストを取得します。
この BIF は、9は、9.2 開発環境のみで使用される組み込み関数です。開発環境のみで使用される組み込み関数です。
引数
番号 | タイプ | 必須/任意 | 記述 | 最小長 | 最大長 | 最小小数桁数 | 最大小数桁数 |
1 | A | 必須 | オブジェクト名。フィールド、ファンクション、またはプロセスの名前です。 | 1 | 10 |
|
|
2 | A | 必須 | オブジェクト拡張名。オブジェクト・タイプがファンクションの場合、この値はファンクションが定義されているプロセスの名前にする必要があります。オブジェクト・タイプがファンクション以外の場合、この値はブランクにします。 | 1 | 10 |
|
|
3 | A | 必須 | オブジェクト・タイプの値： | 2 | 2 |
|
|
...
- Define arguments and lists DEFINE FIELD(#OBJNAM) TYPE(*CHAR) LENGTH(10) DEFINE FIELD(#OBJEXT) TYPE(*CHAR) LENGTH(10) DEFINE FIELD(#OBJTYP) TYPE(*CHAR) LENGTH(2) DEFINE FIELD(#HLPTXT) TYPE(*CHAR) LENGTH(77) DEFINE FIELD(#RETCOD) TYPE(*CHAR) LENGTH(2) DEF_LIST NAME(#WKHLPL) FIELDS((#HLPTXT)) TYPE(*WORKING) DEF_LIST NAME(#BWHLPL) FIELDS((#HLPTXT)) GROUP_BY NAME(#RQSOBJ) FIELDS((#OBJNAM) (#OBJEXT) (#OBJTYP)) GROUP_BY NAME(#DSPHLP) FIELDS((#OBJNAM) (#OBJEXT) (#OBJTYP)) ********* Clear working and browse lists BEGIN_LOOP ********* Request Object Name, Extension and Type REQUEST FIELDS(#RQSOBJ) CLR_LIST NAMED(#WKHLPL) CLR_LIST NAMED(#BWHLPL) ********* Execute built-in-function - GET_HELP USE BUILTIN(GET_HELP) WITH_ARGS(#OBJNAM #OBJEXT #OBJTYP) TO_GET(#WKHLPL #RETCOD) ********* Help text was retrieved successfully IF COND('#RETCOD *EQ ''OK''') ********* Move Help text from the working list to the browselist SELECTLIST NAMED(#WKHLPL) ADD_ENTRY TO_LIST(#BWHLPL) ENDSELECT ********* Allow Help text to be reviewed for the specified object DISPLAY FIELDS((#DSPHLP)) BROWSELIST(#BWHLPL) ********* Working list overflowed, more help text to retrieve ELSE IF COND('#RETCOD *EQ ''OV''') MESSAGE MSGTXT('List not big enough to fit all help text') ********* GET_HELP failed with errors, report error ELSE MESSAGE MSGTXT('GET_HELP failed with errors, try again') ENDIF ENDIF END_LOOP
[ |../../index.htm#lansa/get_help.htm]
- Define arguments and lists DEFINE FIELD(#OBJNAM) TYPE(*CHAR) LENGTH(10) DEFINE FIELD(#OBJEXT) TYPE(*CHAR) LENGTH(10) DEFINE FIELD(#OBJTYP) TYPE(*CHAR) LENGTH(2) DEFINE FIELD(#HLPTXT) TYPE(*CHAR) LENGTH(77) DEFINE FIELD(#RETCOD) TYPE(*CHAR) LENGTH(2) DEF_LIST NAME(#WKHLPL) FIELDS((#HLPTXT)) TYPE(*WORKING) DEF_LIST NAME(#BWHLPL) FIELDS((#HLPTXT)) GROUP_BY NAME(#RQSOBJ) FIELDS((#OBJNAM) (#OBJEXT) (#OBJTYP)) GROUP_BY NAME(#DSPHLP) FIELDS((#OBJNAM) (#OBJEXT) (#OBJTYP)) ********* Clear working and browse lists BEGIN_LOOP ********* Request Object Name, Extension and Type REQUEST FIELDS(#RQSOBJ) CLR_LIST NAMED(#WKHLPL) CLR_LIST NAMED(#BWHLPL) ********* Execute built-in-function - GET_HELP USE BUILTIN(GET_HELP) WITH_ARGS(#OBJNAM #OBJEXT #OBJTYP) TO_GET(#WKHLPL #RETCOD) ********* Help text was retrieved successfully IF COND('#RETCOD *EQ ''OK''') ********* Move Help text from the working list to the browselist SELECTLIST NAMED(#WKHLPL) ADD_ENTRY TO_LIST(#BWHLPL) ENDSELECT ********* Allow Help text to be reviewed for the specified object DISPLAY FIELDS((#DSPHLP)) BROWSELIST(#BWHLPL) ********* Working list overflowed, more help text to retrieve ELSE IF COND('#RETCOD *EQ ''OV''') MESSAGE MSGTXT('List not big enough to fit all help text') ********* GET_HELP failed with errors, report error ELSE MESSAGE MSGTXT('GET_HELP failed with errors, try again') ENDIF ENDIF END_LOOP