&)79HUVLRQ
*XLGHGHO ([LW$6,7
C2-ASIT-23-00
Copyright
Le Code de la propriété industrielle n’autorise, aux termes de l’article L.122-5 que les “copies ou
reproductions strictement réservées à l’usage privé du copiste et non destinées à une utilisation
collective”.
Toute reproduction totale ou partielle, toute transmission sous quelque forme ou par quel procédé que ce
soit (électronique ou mécanique, photocopie ou enregistrement) et à toutes autres fins que l’usage
personnel sans autorisation écrite d'Axway Software est strictement interdite. Cette représentation ou
reproduction constituerait donc une contrefaçon sanctionnée par les articles L.335-2 et suivants du Code
de la propriété intellectuelle.
© Axway Software, 2003. Tous droits réservés.
Présentation du Guide de l'EXIT ASIT
L'EXIT ASIT est un composant complémentaire livré avec certains produits CFT. Son emploi est
facultatif.
Le "Guide de l’EXIT ASIT" intéresse les utilisateurs d'applicatifs SIT (ASIT). Il décrit la
fonctionnalité offerte par ce type d'EXIT et donne les indications nécessaires à sa mise en œuvre.
CFT V2.3 iii
Table des Matières
1. ASIT........................................................................................................................................1-1
1.1. Principe......................................................................................................................................... 1-1
1.2. Zone de communication ............................................................................................................... 1-1
1.2.1. Description des champs ........................................................................................................ 1-1
1.2.2. Structure en COBOL ............................................................................................................ 1-3
1.2.3. Structure en langage C.......................................................................................................... 1-5
1.3. Exemple........................................................................................................................................ 1-6
CFT V2.3 iv
Liste des Tableaux
Tableau 1: Zone de communication.......................................................................................................................... 1-1
CFT V2.3 v
1. ASIT
1.1. Principe
ASIT est un sous-programme ou une fonction utilisateur. Il est appelé en fin de transfert et de
manière synchrone par le moniteur CFT. Il n'est utilisé qu'en mode serveur et en protocole PeSIT
profil SIT.
L'EXIT livré consiste en une enveloppe vide complétée éventuellement par l'utilisateur. Celui-ci
doit alors "linker" CFT avec l'EXIT codé.
Cas particulier MVS : pour la mise en oeuvre de l'EXIT, consultez le "Guide d'exploitation"
spécifique.
La fonction utilisateur est activée, en émission comme en réception, avant la procédure de fin de
transfert ou en cas d'interruption du transfert.
Restrictions : lorsque l'EXIT ASIT doit communiquer avec le moniteur CFT par le biais des
interfaces de programmation (API), l'analyse syntaxique de la commande ne doit pas s'effectuer.
Seules les fonctions CFTC (COBOL) et cftac (langage C) peuvent être invoquées.
1.2. Zone de communication
1.2.1. Description des champs
Le moniteur CFT et le programme EXIT échangent leurs informations par l'intermédiaire de la
zone de communication dont les champs sont décrits ci-dessous.
Tableau 1: Zone de communication
Le champ ... de longueur est transmis dans le ... et indique ...
...
ASXSENS 1 le sens du transfert
'E' : émission
'R' : réception
ASXTYP 1 binaire le type d'EXIT
1 : transfert terminé correctement
ASXVERS 1 binaire PI06 le numéro de version du PeSIT
demandeur
ASXTRR 1 binaire PI15 si le transfert a été relancé
0 : transfert nouveau (LOW-
VALUE)
1 : transfert relancé
CFT V2.3 1-1
ASIT
Tableau 1: Zone de communication (suite)
Le champ ... de longueur est transmis dans le ... et indique ...
...
ASXFCODE 1 binaire PI16 le format des données
0 : ASCII (LOW-VALUE)
1 : EBCDIC
2 : BINAIRE
ASXPRI 1 binaire PI17 la priorité du transfert
0 : haute
1 : moyenne
2 : basse
ASXTRF 1 binaire PI19 le code fin de transfert
0 : transfert terminé correctement
1 : transfert en erreur
ASXRET 1 le code retour de l'EXIT
00 : fin normale (LOW-VALUE)
> 00 à FF : erreur
FILLER 32 zone libre
ASXPART 8 l'identifiant du partenaire
ASXSAPPL 8 PI03 le nom de l'application émettrice
ASXRAPPL 8 PI04 le nom de l'application réceptrice
ASXIDF 8 PI11 le type de fichier
ASXPARM 8 PI12 l'identifiant du fichier SIT
ASXIDT 8 PI13 l'identifiant de transfert
ASXRDU 8 PI24 le résidu (si signature émetteur)
ASXALEA 36 PI35 l'aléa (clé aléatoire)
ASXSCEAU 64 PI36 le sceau SIT ou autre signature
ASXFNAME 64 PI37 le nom du fichier reçu
ASXDATE 6 numeric PI51 la date de création (format
AAMMJJ)
ASXTIME 6 numeric PI51 l'heure de création (format
HHMMSS)
ASXDATEX 6 numeric PI52 la date de dernière extraction
(format AAMMJJ)
ASXTIMEX 6 numeric PI52 l'heure de dernière extraction
(format HHMMSS)
ASXDATED 6 numeric la date de réception "CREATE"
(format AAMMJJ)
ASXTIMED 6 numeric l'heure de réception "CREATE"
(format HHMMSS)
ASXDIAG 4 numeric PI02 le code diagnostic PeSIT
1-2 CFT V2.3
Guide de l'exit ASIT
1.2.2. Structure en COBOL
La structure de communication est définie ainsi :
* * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* * CFT >> EXIT ASIT : DESCRIPTION DE LA ZONE PARAMETRE
* * Les champs non exploités par CFT à ce jour sont en "filler"
* * - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* *
* * SENS DU TRANSFERT :
* * > 'E' = EMISSION
* * > 'R' = RECEPTION
05 ASXSENS PIC X.
* *
* * TYPE D'EXIT ASIT :
* * > 1 BINAIRE = EXIT FIN TRANSFERT
05 ASXTYP PIC X.
* *
05 FILLER PIC X.
* *
* * (15) INDICATEUR DE RELANCE :
* * > LOW-VALUE = NOUVEAU TRANSFERT
* * > 1 BINAIRE = RELANCE
05 ASXTRR PIC X.
* *
* * (16) CODE DES DONNEES :
* * > LOW-VALUE = DONNEES ASCII
* * > 1 BINAIRE = DONNEES EBCDIC
* * > 2 BINAIRE = DONNEES BINAIRES
05 ASXFCODE PIC X.
* *
* * (17) PRIORITE DU TRANSFERT :
* * > LOW-VALUE = HAUTE PRIORITE
* * > 1 BINAIRE = PRIORITE MOYENNE
* * > 2 BINAIRE = BASSE PRIORITE
05 ASXPRI PIC X.
* *
05 FILLER PIC X.
05 FILLER PIC X.
05 FILLER PIC X(32).
* *
* * IDENTIFIANT DU PARTENAIRE :
05 ASXPART PIC X(8).
* *
* * (03) IDENTIFIANT APPLICATION EMETTRICE :
05 ASXSAPPL PIC X(8).
* *
* * (04) IDENTIFIANT APPLICATION RECEPTRICE :
05 ASXRAPPL PIC X(8).
* *
* * (11) TYPE DE FICHIER :
05 ASXIDF.
CFT V2.3 1-3
ASIT
10 FILLER PIC X.
10 ASX11 PIC 9(5).
10 FILLER PIC X(2).
* *
* * (12) NOM DU FICHIER (NUMERO REMISE SIT) :
05 ASXPARM.
10 ASX12 PIC 9(5).
10 FILLER PIC X(3).
* *
* * IDENTIFIANT DE TRANSFERT LOCAL DE CFT :
05 ASXIDT PIC X(8).
* *
05 FILLER PIC X(8).
05 FILLER PIC X(36).
* *
* * (36) SCEAU SIT :
05 ASXSCEAU PIC X(64).
* *
* * (37) NOM DU FICHIER (LABEL) :
05 ASXFNAME PIC X(64).
* *
* * (51) DATE ET HEURE SIT DE CREATION
* * AAMMJJ, HHMNSS :
05 ASX51.
10 ASXDATE PIC 9(6).
10 ASXTIME PIC 9(6).
* *
* * (52) DATE ET HEURE DERNIERE EXTRACTION
* * AAMMJJ, HHMNSS :
05 ASX52.
10 ASXDATEX PIC 9(6).
10 ASXTIMEX PIC 9(6).
* *
* * DATE ET HEURE (CFT) RECEPT. DERNIER CREATE
* * AAMMJJ, HHMNSS :
05 ASXD.
10 ASXDATED PIC 9(6).
10 ASXTIMED PIC 9(6).
* * 05 FILLER PIC X(4).
1-4 CFT V2.3
Guide de l'exit ASIT
1.2.3. Structure en langage C
Définition de la structure pour le langage C :
/*******************************************************************/*
*/
/* CFT C _ EXIT ASIT */
/* */
/* DESCRIPTION DE LA ZONE PARAMETRE (C) */
/* */
/********************************************************************/
typedef struct
{
unsigned char asxsens ; /* 'E' Emission */
/* 'R' Reception */
unsigned char asxtyp; /* type d'exit asit */
/* 1 fin de transfert */
unsigned char asxvers; /* 06. numero version du psit */
unsigned char asxtrr; /* 05. indicateur transfert relance*/
/* 0 transfert nouveau */
/* 1 transfert relance */
unsigned char asxfcode; /* 06. code-donnees */
/* 0 ASCII */
/* 1 EBCDIC */
/* 2 BINAIRE */
unsigned char asxpri; /* 07. priorite du transfert : */
/* 0 Haute */
/* 1 Moyenne */
/* 2 Basse */
unsigned char asxtrf; /* 09. code fin de transfert */
/* 0 OK */
/* 1 Erreur, relancer */
/* 2 Suspension */
/* 3 Annulation par serveur */
/* 4 Annulation par demandeur */
unsigned char asxret; /* -- code retour exit */
/* ------------------------------- */
unsigned char res[32]; /* -- reserve */
/* ------------------------------- */
unsigned char asxpart[8]; /* -- identifiant du partenaire */
unsigned char asxsappl[8]; /* 03. nom application emettrice */
unsigned char asxrappl[8]; /* 04. nom application receptrice */
unsigned char asxidf[8]; /* 01. type de fichier */
unsigned char asxparm[8]; /* 02. numero remise sit */
unsigned char asxidt[8]; /* 03. identifiant de tranfert */
unsigned char asxrdu[8]; /* 04. residu (si signature-emetteur)*/
unsigned char asxalea[36]; /* 05. alea (clef aleatoire) */
unsigned char asxsceau[64];/* 06. sceau sit, ou autre signature */
unsigned char asxfname[64];/* 07. nom du fichier (label) */
/* ------------------------------- */
/* 01. date et heure (sit) de creation*/
CFT V2.3 1-5
ASIT
unsigned char asxdate[6]; /* date 'AAMMJJ' */
unsigned char asxtime[6]; /* heure 'HHMNSS' */
/* 02. date et heure (sit) dern.
extraction*/
unsigned char asxdatex[6]; /* date 'AAMMJJ' */
unsigned char asxtimex[6]; /* heure 'HHMNSS' */
/* -- date et heure (cft) recept.
create */
unsigned char asxdated[6]; /* date 'AAMMJJ' */
unsigned char asxtimed[6]; /* heure 'HHMNSS' */
/* ------------------------------- */
unsigned char asxdiag[4]; /* 02. diagnostic */
} asxreqT;
typedef asxreqT *asxreqTp;
1.3. Exemple
Exemple d'appel :
/* fichiers a inclure */
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <asi.h>
#ifdef CTRTYP
long cftasx( asxreqTp ) ;
#else
long cftasx() ;
#endif
long cftasx( ptasx )
asxreqTp ptasx ;
{
printf( "\n EXIT ASIT : \n\n") ;
printf( " PART = %-8.8s\n", ptasx->asxpart ) ;
printf( " IDT = %-8.8s\n", ptasx->asxidt ) ;
printf( " IDF = %-8.8s\n", ptasx->asxidf ) ;
printf( " PARM = %-8.8s\n", ptasx->asxparm ) ;
printf( " FDATE = %-8.8s\n", ptasx->asxdate ) ;
printf( " DIAG = %-4.4s\n", ptasx->asxdiag ) ;
return((long)0) ;
1-6 CFT V2.3