> Tech > Essayez vous-même

Essayez vous-même

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

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

Préparer l’entreprise aux technologies interconnectées

Préparer l’entreprise aux technologies interconnectées

Avec la « quatrième révolution industrielle », les environnements hyperconnectés entraînent de nouveaux risques en matière de sécurité. Découvrez, dans ce guide Kaspersky, comment faire face à cette nouvelle ère de vulnérabilité.

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