创建类似于WRKLIBPDM的命令

Question

我想创建一个类似于 WRKLIBPDM 命令中的 LIB 字段的字段。 如果我在 WRKLIBPDM 命令上按 F4，它将显示以下内容。包括

name

和

*generic*

 Library  . . . . . . . . . . . .   *PRV          *PRV, name, *generic*... 

但是当我在字段本身上按 F4 时，它会显示列表，但不会显示

name

和

*generic*

。

*PRV    
*LIBL   
*USRLIBL
*ALL    
*ALLUSR 
*CURLIB

我尝试这样做，但没有成功。尽管即使这样有效，

name

和

*generic*

就像一个硬编码值，而不是任何名称或通用名称。

PARM       KWD(LIB2) TYPE(*NAME) LEN(10) RSTD(*YES) +
             DFT(*PRV) VALUES(*PRV name *generic*) +  
             PROMPT('Library')                       

Answer 1

命令可以处理具有

*GENERIC

类型的通用名称

   PARM       KWD(LIB2) TYPE(*GENERIC) LEN(10) DFT(*PRV) SPCVAL((*PRV) +
         (*LIBL) (*USRLIBL) (*ALL) (*ALLUSR) (*CURLIB)) PROMPT('Library')

选择文本将像这样生成：

Library  . . . . . . . . . . . .   *PRV          Name, generic*, *PRV...

但是您可以通过设置

CHOICE

中的文本来覆盖生成

   PARM       KWD(LIB2) TYPE(*GENERIC) LEN(10) DFT(*PRV) SPCVAL((*PRV) +
         (*LIBL) (*USRLIBL) (*ALL) (*ALLUSR) (*CURLIB)) CHOICE('*PRV name +
         *generic*') PROMPT('Library')

Library  . . . . . . . . . . . .   *PRV          *PRV name *generic*