> Tech > Essayez vous-même

Essayez vous-même

Tech - Par iTPro - 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 :

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

Guide de facturation électronique, voie royale pour le DAF et la digitalisation de la fonction finance

Ce livre blanc expose les problématiques auxquelles sont confrontés les DAF modernes et souligne les bénéfices de la facturation électronique pour la trésorerie. Il dévoile également le processus de déploiement de ce projet de transformation digitale que la réglementation rendra bientôt obligatoire.

Tech - Par iTPro - Publié le 24 juin 2010