> Tech > Essayez vous-même

Essayez vous-même

Tech - Par iTPro - 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 gratuitement cette ressource

HP Elite Slice G2 : optimisez la collaboration… et votre budget !

HP Elite Slice G2 : optimisez la collaboration… et votre budget !

Téléchargez cette étude Forrester et découvrez comment booster la collaboration tout en dégageant un excellent R.O.I grâce au système de vidéoconférence HP Elite Slice G2 avec Microsoft Teams !

Tech - Par iTPro - Publié le 24 juin 2010