> Tech > FIGURE 3

FIGURE 3

Tech - Par Renaud ROSSET - 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

Rapport Forrester sur les solutions de sécurité des charges de travail cloud (CWS)

Rapport Forrester sur les solutions de sécurité des charges de travail cloud (CWS)

Dans cette évaluation, basée sur 21 critères, Forrester Consulting étudie, analyse et note les fournisseurs de solutions de sécurité des charges de travail cloud (CWS). Ce rapport détaille le positionnement de chacun de ces fournisseurs pour aider les professionnels de la sécurité et de la gestion des risques (S&R) à adopter les solutions adaptées à leurs besoins.

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

A lire aussi sur le site

Revue Smart DSI

La Revue du Décideur IT