Le
programme LNCSETKW permet d'insérer dans la variable &PARMx, une expression
du type: 'MotCle=Valeur'.
LNCSETKW facilite la construction des paramètres d'appel de LNCCMD.
Si le mot clé existe déjà dans &PARMx, sa valeur sera remplacée.
Syntaxe
| 
   DCL  | 
  
   VAR(&HANDLE) TYPE(*CHAR) LEN(50)  | 
 
| 
   DCL  | 
  
   VAR(&PARMX) TYPE(*CHAR) LEN(512)  | 
 
| 
   DCL  | 
  
   VAR(&KEYW) TYPE(*CHAR) LEN(...)  | 
 
| 
   DCL  | 
  
   VAR(&TYPE) TYPE(*CHAR) LEN(10)  | 
 
| 
   DCL  | 
  
   VAR(&VALUE) TYPE( . . .  | 
 
| 
   DCL  | 
  
   VAR(&FORMAT) TYPE(*CHAR) LEN(10)  | 
 
| 
   
  | 
  
   
  | 
 
| 
   CALL  | 
  
   PGM(LNCSETKW) PARM(&HANDLE &PARMX + &KEYW &TYPE &VALUE &FORMAT)  | 
 
Paramètres
| 
   Paramètres  | 
  
   
  | 
 
| 
   &PARMX  | 
  
   &PARMX
  est la variable à modifier, qui sera utilisée lors du prochain appel à
  LNCCMD.  | 
 
| 
   &KEYW  | 
  
   &KEYW
  contient le mot clé à insérer dans &PARMX.. Exemple: CHGVAR VAR(&KEYW) VALUE('Pattern;') Si &KEYW est blanc, alors la valeur de &VALUE sera ajoutée à &PARMX, précédée de ';' si &PARMX n'est pas vide.  | 
 
| 
   &TYPE  | 
  
   &TYPE désigne le type de valeur attribuée au mot clé. Les valeurs possibles sont: *STR: Type chaîne de caractère; la valeur fournie par la paramètre &VALUE sera encadrée par des doubles quotes. *DEC: Type numérique; *BOO: Type booléen;
  &VALUE contient la valeur: *CAT: Type chaîne de caractère; La valeur fournie dans &VALUE sera concaténée à la valeur déjà présente pour le mot clé dans &PARMX. *CLR: Le mot clé et sa valeur sont supprimés de &PARMX, s'il existe.  | 
 
| 
   &VALUE  | 
  
   Contient
  la valeur à attribuer au mot clé.  | 
 
| 
   &FORMAT  | 
  
   Format
  du paramètre &VALUE, sous la forme: Tn.d  | 
 
| 
   
  | 
  
   
  | 
 
Exemple
Après l'exécution de la séquence d'instructions suivante :
CHGVAR  VAR(&PARPM1)
VALUE(' ')
CHGVAR  VAR(&KEYW) VALUE('Title ')
CHGVAR  VAR(&TYPE) VALUE('*STR')
CHGVAR  VAR(&VALUE) VALUE('Ouvrir le document')
CHGVAR  VAR(&FORMAT) VALUE('A50')
CALL  PGM(LNCSETKW) PARM(&HANDLE &PARM1 +
      &KEYW &TYPE &VALUE &FORMAT)
CALL  PGM(LNCSETKW) PARM(&HANDLE &PARM1 +
      'FileMustExist' '*BOO ' '1')
La variable &PARM1 aura la valeur:
'Title="Ouvrir le document";FileMustExist=True'
Voir aussi