> 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 gratuitement cette ressource

Endpoint Security : Guide de Mise en œuvre

Endpoint Security : Guide de Mise en œuvre

Détournement d’applications légitimes, élévation de privilèges, logiciels malveillants furtifs : comment les solutions de Endpoint Security permettent elles de faire face aux nouvelles techniques d'attaques complexes ? Découvrez, dans ce Guide Endpoint Security, les perspectives associées à leur mise en œuvre.

Tech - Par iTPro - Publié le 24 juin 2010