> Tech > FIGURE 3

FIGURE 3

Tech - Par iTPro - Publié le 24 juin 2010
email

Code pour envoyer des fichiers spoule

/* This example sends a spool file to an AS/400 called REMOTE */
/* and an output queue called REMOTEQ.
*/
        PGM PARM(&SPOOL +
                 &JOB +
                 &JUSER +
                 &JNUMBER +
                 &NUMBER)
        DCL VAR(&SPOOL) TYPE(*CHAR) LEN(10)
        DCL VAR(&JOB) TYPE(*CHAR) LEN(10)
        DCL VAR(&JUSER) TYPE(*CHAR) LEN(10)
        DCL

FIGURE 3

VAR(&JNUMBER) TYPE(*CHAR) LEN(6)
DCL VAR(&NUMBER) TYPE(*DEC) LEN(5 0)
/* LPR
*/
/*
*/
/* Note that I have hard-coded a remote system and
*/
/* the output queue name. The parameter RMTSYS should reflect */
/* the host table entry name in CFGTCP. The output queue */
/* should exist on the remote system.
*/
/*
*/
/* If you were to use SNADS instead, the SNDNETSPLF command */
/* would replace the SNDTCPSPLF statement below.
*/
SNDTCPSPLF RMTSYS(REMOTE) PRTQ(REMOTEQ)
+
FILE(&SPOOL) JOB(&JNUMBER/&JUSER/&JOB)
SPLNBR(&SPOOL) DESTTYP(*AS400)
+
TRANSFORM(*NO)
/* Monitor for Send errors
*/
MONMSG MSGID(TCP3701 TCP3702 TCP3703 TCP3704 +
TCP3705 TCP3706) EXEC(SNDMSG MSG(‘Spool
+
Distribution failed’) TOUSR(*SYSOPR))
ENDPGM

Téléchargez cette ressource

Checklist de protection contre les ransomwares

Checklist de protection contre les ransomwares

Comment évaluer votre niveau de protection contre les ransomwares à la périphérie du réseau, et améliorer vos défenses notamment pour la détection des ransomwares sur les terminaux, la configuration des appareils, les stratégies de sauvegarde, les opérations de délestage... Découvrez la check list complète des facteurs clés pour améliorer immédiatement la sécurité des terminaux.

Tech - Par iTPro - Publié le 24 juin 2010

A lire aussi sur le site

Revue Smart DSI

La Revue du Décideur IT