> Tech > Essayez vous-même

Essayez vous-même

Tech - Par Renaud ROSSET - Publié le 24 juin 2010

Pour prendre des exemples de files d'attente de données et les programmes pour effectuer un test, créez les files d'attente en entrant les commandes ci-dessus. Ensuite, copiez le code de cet article sur l'AS/400 ou téléchargez-le à  l'adresse http://www.news400.com. Utilisez les commandes suivantes pour créer les programmes :

Essayez vous-même



CRTBNDRPG PGM(RPGISCOOL/DTAQCL) +

SRCFILE(RPGISCOOL/APISRC)



CRTBNDRPG PGM(RPGISCOOL/DTAQSR) +

SRCFILE(RPGISCOOL/APISRC)



Utilisez les commandes suivantes pour exécuter les programmes :



SBMJOB CMD(CALL PGM(RPGISCOOL/DTAQSR))



CALL PGM(RPGISCOOL/DTAQCL)



Si tout se passe comme prévu, la réponse suivante s’affichera :



Hello Client 075608, thanks for calling


Cet article
est extrait du Redbook Who Knew You Could Do That with RPG IV? (SG24-5402),
copyright IBM. Utilisé avec autorisation.

Téléchargez cette ressource

Mac en entreprise : le levier d’un poste de travail moderne

Mac en entreprise : le levier d’un poste de travail moderne

Ce livre blanc répond aux 9 questions clés des entreprises sur l’intégration du Mac : sécurité, compatibilité, gestion, productivité, coûts, attractivité talents, RSE et IA, et l’accompagnement sur mesure proposé par inmac wstore.

Les plus consultés sur iTPro.fr

A lire aussi sur le site

À la une de la chaîne Tech