commande RETRIEVE

A propos de la commande RETRIEVE:

Format

Options

USING PCB (expression)

Indique le PCB de base de données à utiliser pour la commande. Son argument peut être n'importe quelle expression convertie en type de données de type entier ; vous pouvez spécifier un nombre ou une référence à un demi-mot dans votre programme contenant un nombre.

Expression indique le PCB pour lequel vous souhaitez extraire la clé concaténée. Il peut s'agir de n'importe quelle expression dans la langue de l'hôte qui est convertie en type de données entier. Vous pouvez spécifier un nombre ou une référence à un demi-mot contenant un nombre. La valeur doit être un entier positif qui n'est pas supérieur au nombre de BPC générés pour le PSB. Le premier PCB de la liste, le PCB d'E/S, est 1. Le premier PCB de base de données de la liste est 2, le second est 3, et ainsi de suite.

KEYFEEDBACK (zone)

Spécifie une zone dans laquelle la clé concaténée du segment est placée. Si la zone n'est pas assez longue, la clé est tronquée.

FEEDBACKLEN (expression)

Indique la longueur de la zone de retour d'informations de clé dans laquelle vous souhaitez extraire la clé concaténée. Son argument peut être n'importe quelle expression convertie en type de données de type entier ; vous pouvez spécifier un nombre ou une référence à un demi-mot dans votre programme contenant un nombre. (Il est obligatoire dans les programmes COBOL et facultatif dans les programmes PL/I et en langage assembleur)

Expression est la longueur de la zone d'E-S de retour d'informations de clé. Il peut s'agir de n'importe quelle expression dans la langue de l'hôte qui est convertie en type de données de type entier ; vous pouvez spécifier un nombre ou une référence à un demi-mot contenant un nombre. Pour IBM® COBOL pour z/OS® & VM (ou VS COBOL II ), PL/I, ou le langage assembleur, FEEDBACKLEN est facultatif. Pour les programmes COBOL qui ne sont pas compilés avec le compilateur IBM COBOL for z/OS & VM (ou VS COBOL II ), vous devez spécifier FEEDBACKLEN avec l'option KEYFEEDBACK.

Usage

Vous pouvez utiliser la commande RETRIEVE pour extraire la clé concaténée afin de déterminer votre position actuelle dans tous les BPC auxquels votre programme accède.

Après avoir émis la commande RETRIEVE, le type de segment et le niveau sur lesquels le poste est établi sont renvoyés aux zones DIBSEGM et DIBSEGLV de la DIB. La valeur de DIBKFBL est définie sur la longueur réelle de la clé concaténée.

Exemple

EXEC DLI RETRIEVE USING PCB(2) KEYFEEDBACK(KEYAREA);

EXEC DLI RETRIEVE USING PCB(5) KEYFEEDBACK(KEYAREA);

Ces commandes RETRIEVE extraient la clé concaténée pour les premier et quatrième PCB de base de données. (Le premier PCB de la liste est le PCB d'E/S, donc le premier PCB de base de données est le deuxième de la liste.) Après avoir émis la première commande RETRIEVE , vous pouvez déterminer votre position dans le premier PCB de base de données en examinant la clé concaténée dans KEYAREA et les valeurs renvoyées dans les zones DIBSEGM et DIBSEGLV dans DIB. Après avoir émis la deuxième commande RETRIEVE , vous pouvez déterminer votre position dans le quatrième PCB de base de données en examinant les mêmes zones.

Restrictions

Restrictions pour la commande RETRIEVE :

• Vous ne pouvez pas utiliser cette commande dans un programme CICS® .
• Pour utiliser cette commande, vous devez d'abord définir un PCB d'entrée-sortie pour votre programme.