En V5R4, vous observerez quelque chose de différent sur l’affichage WRKACTJOB (Work with Active Jobs). Sur la vue initiale, il y aura désormais une colonne Current User appelée à remplacer la colonne User.
Quel en est l’intérêt et pourquoi ce changement ? Rappelons que la colonne User contient l’information sur le profil utilisateur sous lequel le job a démarré. C’est la portion utilisateur du nom du job.
Par Julian Monypenny
La commande CPYF (Copy File) sert normalement à copier un fichier entier. Mais elle est aussi très intéressante pour extraire des sous-ensembles de données à des fins de production et de test. En effet, avec CPYF, on peut extraire :
• un intervalle de numéros d’enregistrements
• un ensemble de valeurs de clés
• un ensemble d’enregistrements
• un ensemble de champs
Le tout peut être combiné à volonté. Les quelques exemples suivants vous aideront à démarrer. Pour plus d’informations, lisez le texte d’aide de la commande CPYF. Tous les exemples utilisent un fichier Item Class (ITMCLS) indexé sur Class Number (CLSNUM) et Subclass Number (SUBCLSNUM). CLSNUM et SUBCLSNUM sont tous deux de type numérique zoné à trois chiffres.
Pour extraire les numéros d’enregistrements de 1 à 10, utilisez les paramètres FROMCD et TORCD :
CPYF FROMFILE(ITMCLS) TOFILE(ITMCLS@)
MBROPT(*REPLACE)
FROMCD(1) TORCD(10)
Pour extraire l’ensemble de valeurs clés pour CLSNUM 10 et SUBCLSNUM 120, utilisez les paramètres FROMKEY et TOKEY :
CPYF FROMFILE(ITMCLS) TOFILE(ITMCLS@)
MBROPT(*REPLACE)
FROMKEY(2 (‘010120’))
TOKEY(2 (‘010120’))
La première valeur des paramètres KEY définit le nombre de champs clés (key). La seconde est une chaîne de caractères qui définit la valeur de la clé ; pour le numérique packé et autres types de champs spéciaux, il faut spécifier un littéral hexadécimal.
Les paramètres KEY vous permettent aussi de construire des valeurs de clés à partir de chaînes séparées pour chaque champ clé :
CPYF FROMFILE(ITMCLS) TOFILE(ITMCLS@)
MBROPT(*REPLACE)
FROMKEY(*BLDKEY (‘010’ ‘120’))
TOKEY(*BLDKEY (‘010’ ‘120’))
Pour extraire un ensemble d’enregistrements incluant la chaîne de caractères ‘010’ en position 1 de l’enregistrement, utilisez le paramètre INCCHAR :
CPYF FROMFILE(ITMCLS) TOFILE(ITMCLS@)
MBROPT(*REPLACE)
INCCHAR(*RCD 1 *EQ ‘010’)
Pour extraire l’ensemble d’enregistrements qui inclut la relation champ de CLSNUM égal à 10, utilisez le paramètre INCREL :
CPYF FROMFILE(ITMCLS) TOFILE(ITMCLS@)
MBROPT(*REPLACE)
INCREL((*IF CLSNUM *EQ 10))
Vous pouvez définir des relations complexes avec INCREL:
CPYF FROMFILE(ITMCLS) TOFILE(ITMCLS@)
MBROPT(*REPLACE)
INCREL((*IF CLSNUM *EQ 10)
(*AND SUBCLSNUM *EQ 120)
(*OR CLSNUM *EQ 20)
(*AND SUBCLSNUM *EQ 240))
Découvrez les dernières tendances et solutions IT autour des univers de Poste de travail, Affichage et Collaboration, Impression et Infrastructure, et notre dossier Green IT sur les actions engagés par inmac wstore pour réduire son impact environnemental
