RTVCLSRC

La commande RTVCLSRC (Extraire un source CL) permet d'extraire les instructions source d'un programme CL OPM (Original Program Model) ou d'un module CL ILE (Integrated Language Environment). Dans le cas d'un module CL ILE, la commande RTVCLSRC permet également d'extraire le source CL d'un objet programme ILE (*PGM) ou programme de service (*SRVPGM) contenant le module CL indiqué.

Pour que le source CL puisse être extrait, *YES doit avoir été spécifié pour le paramètre RTVCLSRC admise (ALWRTVSRC) au moment de la compilation de ce source.

Les instructions source sont stockées dans un membre de fichier source qu'il est possible d'utiliser en entrée pour une nouvelle compilation du programme CL.

Paramètres

Programme (PGM)

Indique l'objet programme depuis lequel le source CL initial doit être extrait.

Remarque :Ce paramètre et le paramètre Programme de service (SRVPGM) sont mutuellement exclusifs.

Qualificatif 1 : Programme

nom

Indiquez le nom du programme.

Qualificatif 2: Biblio

*LIBL

La recherche porte sur toutes les bibliothèques de la liste des bibliothèques de l'unité d'exécution en cours jusqu'à ce que la première occurrence soit trouvée.

*CURLIB

Le programme est recherché dans la bibliothèque en cours de l'unité d'exécution. Si cette bibliothèque n'est pas indiquée, QGPL est utilisée par défaut.

nom

Indiquez le nom de la bibliothèque contenant le programme.

Programme de service (SRVPGM)

Indique l'objet programme de service depuis lequel le source CL initial doit être extrait.

Remarque :Ce paramètre et le paramètre Programme (PGM) sont mutuellement exclusifs.

Qualificatif 1 : Programme

nom

Indiquez le nom du programme de service.

Qualificatif 2 : Biblio

*LIBL

La recherche porte sur toutes les bibliothèques de la liste des bibliothèques de l'unité d'exécution en cours jusqu'à ce que la première occurrence soit trouvée.

*CURLIB

La recherche s'effectue dans la bibliothèque en cours du travail. Si celle-ci n'est pas précisée, QGPL est utilisée par défaut.

nom

Indiquez le nom de la bibliothèque sur laquelle doit porter la recherche.

Module (MODULE)

Indique le module CL depuis lequel le source CL initial doit être extrait. Si une valeur est spécifiée pour le paramètre Programme (PGM) ou Programme de service (SRVPGM), ce paramètre indique quel est le module CL du programme ou programme de service qui contient le source CL à extraire.

Remarque :Ce paramètre est ignoré si un objet programme OPM (Original Program Model) est indiqué pour le paramètre Programme (PGM).

Valeurs uniques

*PGM

Le nom du module CL est identique à la valeur indiquée pour le paramètre PGM ou le paramètre SRVPGM. Si aucune valeur n'a été indiquée pour PGM et SRVPGM, *PGM ne constituera pas une valeur correcte.

Qualificatif 1 : Module

nom

Indiquez le nom du module CL depuis lequel le source CL initial doit être extrait.

Qualificatif 2 : Biblio

*LIBL

La recherche porte sur toutes les bibliothèques de la liste des bibliothèques de l'unité d'exécution en cours jusqu'à ce que la première occurrence soit trouvée.

*CURLIB

La bibliothèque en cours est utilisée pour le module. Si celle-ci n'est pas précisée, QGPL est utilisée par défaut.

nom

Indiquez le nom de la bibliothèque pour le module.

Fichier source (SRCFILE)

Indique le fichier base de données devant contenir les instructions source CL. Ce fichier doit exister lors de l'exécution de la commande.

Qualificatif 1 : Fichier source

QCLSRC

Fichier source QCLSRC.

nom

Indiquez le nom du fichier source.

Qualificatif 2: Biblio

*LIBL

La recherche porte sur toutes les bibliothèques de la liste des bibliothèques de l'unité d'exécution en cours jusqu'à ce que la première occurrence soit trouvée.

*CURLIB

Bibliothèque de l'unité d'exécution en cours utilisée pour localiser le fichier source. Si cette bibliothèque n'est pas indiquée, QGPL est utilisée par défaut.

nom

Indiquez le nom de la bibliothèque dans laquelle doit s'effectuer la recherche.

Membre source (SRCMBR)

Indique le membre de fichier base de données devant contenir les instructions source CL. Si le membre existait déjà avant l'exécution de la commande, il est mis à blanc avant l'écriture des instructions source. Dans le cas contraire, il est créé.

*PGM

Si les instructions source CL sont extraites d'un programme CL OPM (Original Program Model), le nom du membre sera identique au nom du programme. Si les instructions source CL sont extraites d'un objet module CL ILE (Integrated Language Environment) ou d'un module CL de programme ou programme de service ILE, le nom du membre sera également identique au nom du module.

nom

Indiquez le nom du membre de fichier source destinataire des instructions source CL.

Extraire source incluse (RTVINCSRC)

Indique si les commandes CL incluses par les commandes INCLUDE (Inclure source CL) doivent être extraites dans le programme CL source initial.

*NO

Si le source CL initial contient des commandes INCLUDE, le source extrait contiendra les mêmes commandes INCLUDE, mais il ne ne contiendra pas les instructions source incluses lors de la compilation du source CL.

Si vous indiquez *NO pour ce paramètre, un source CL aussi proche que possible du source CL initial sera créé.

*YES

Si le source CL initial contient des commandes INCLUDE, le source extrait contiendra les instructions source incluses au lieu des commandes INCLUDE initiales.

Si vous indiquez *YES pour ce paramètre, un source CL aussi proche que possible du source CL complet initial sera généré pour la création du programme ou module CL.

Exemples

Exemple 1 : Extraction du source CL initial

RTVCLSRC   PGM(JOHN1/TEXT1)  SRCFILE(JOHN2)  SRCMBR(JOHN3)

Cette commande extrait les instructions source du programme CL nommé TEXT1 dans la bibliothèque JOHN1. Les instructions source extraites sont placées dans le fichier JOHN2 et sont nommées en tant que membre JOHN3. Si le programme source CL initial contient des commandes INCLUDE, le source extrait contient les mêmes commandes INCLUDE.

Si le programme TEXT1 a été créé avec la commande CRTBNDCL (Créer un programme CL lié), le source CL est extrait du module TEXT1 dans le programme TEXT1.

Exemple 2 : Extraction du source CL développé

RTVCLSRC   PGM(MYAPP1)  SRCFILE(RTVAPPSRC)  RTVINCSRC(*YES)

Cette commande extrait les instructions source du programme CL nommé MYAPP1 et localisé à partir de la liste des bibliothèques. Les instructions source CL extraites se trouvent dans le membre MYAPP1 du fichier source RTVAPPSRC, qui est également localisé à l'aide de la liste des bibliothèques. Si le source CL initial contient des commandes INCLUDE, le source CL extrait contiendra le source CL inclus au lieu des commandes INCLUDE.

Exemple 3 : Extraction du source CL depuis un programme ILE

RTVCLSRC   PGM(ACCTRCV)  MODULE(GETACCT)

Cette commande extrait les instructions source CL du module GETACCT, lequel fait partie du programme ILE (Integrated Language Environment) nommé ACCTRCV. Le programme ACCTRCV est localisé à partir de la liste des bibliothèques. Les instructions source CL extraites sont placées dans le membre GETACCT du fichier source QCLSRC, lequel est également localisé à partir de la liste des bibliothèques. Si le source CL initial contient des commandes INCLUDE, le source extrait contiendra les mêmes commandes INCLUDE.

Exemple 4 : Extraction du source CL depuis un programme de service

RTVCLSRC   SRVPGM(AR_LIB/AR_PROCS)  MODULE(GETCUST)
           SRCFILE(AR_SRC)  RTVINCSRC(*YES)

Cette commande extrait les instructions source du module GETCUST, lequel fait partie du programme ILE (Integrated Language Environment) nommé ACCTRCV. Les instructions source CL extraites sont placées dans le membre GETCUST du fichier source AR_SRC, qui est également localisé à partir de la liste des bibliothèques. Si le source CL initial contient des commandes INCLUDE, le source CL extrait contiendra le source CL inclus au lieu des commandes INCLUDE.

Exemple 5 : Extraction du source CL depuis un module CL

RTVCLSRC   MODULE(TOOLSLIB/MAILPDF)  SRCFILE(TOOLSLIB/QCLSRC)

Cette commande extrait les instructions source CL du module MAILPDF contenu dans la bibliothèque TOOLSLIB. Les instructions source CL extraites sont placées dans le membre MAILPDF du fichier source QCLSRC, lequel se trouve également dans bibliothèque TOOLSLIB. Si le source CL initial contient des commandes INCLUDE, le source extrait contiendra les mêmes commandes INCLUDE.

Messages d'erreur

Messages *ESCAPE

CPF0560

Le programme &1 de &2 n'est pas un programme CL.

CPF0561

Impossible d'extraire le source CL du programme &2.

CPF0562

Le fichier &1 de &2 n'est pas une fichier source base de données.

CPF0563

Longueur d'enregistrement insuffisante pour le fichier source base de données.

CPF0564

Impossible d'ajouter le membre base de données &3 au fichier.

CPF0565

Source du programme CL &4 non extraite. Source from CL program &4 not retrieved.

CPF0566

Source non disponible pour le programme CL &1 de &2.

CPF0567

Le module &1 de la bibliothèque &2 n'est pas un module CL ou n'a pas de source CL.

CPF0568

Module &4 introuvable dans &1, &3, de la bibliothèque &2.

CPF0569

Le module &4 dans &1, &3, bibliothèque &2, ne contient pas le source CL.

CPF0571

Erreur lors d'une tentative d'extraction du source CL du module &4.

CPF9801

Objet &2 non trouvé dans la bibliothèque &3.

CPF9802

Non autorisé à l'objet &2 de &3.

CPF9803

Impossible d'allouer l'objet &2 de la bibliothèque &3.

CPF9805

Objet &2 dans bibliothèque &3 détruit.

CPF9806

Impossible d'exécuter fonction pour objet &2 de &3.

CPF9807

Une ou plusieurs bibliothèques de la liste ont été supprimées.

CPF9808

Allocation impossible pour une ou plusieurs bibliothèques de la liste.

CPF9809

Accès à la bibliothèque &1 impossible.

CPF9810

Bibliothèque &1 non trouvée.

CPF9820

Non autorisé à utiliser la bibliothèque &1.

CPF9822

Non autorisé au fichier &1 de &2.

CPF9830

Allocation de la bibliothèque &1 impossible.

CPF9848

Ouverture du membre &3 du fichier &1 de &2 impossible.

CPF9849

Erreur lors du traitement du membre &3 de &1 dans &2.