*
* SIGNATUR : écriture dans le fichier SIGNP1 des signatures(e-mail)
*
* Ce pgm est appellé après SIGNATURCL qui passe la cde ADDLIBLE
* --------------------------------------------------------------
*
* ps: LINKER CE PGM AVEC QTMHCGI *SRVPGM
*
FSIGNPF1 O E DISK
****************************************************************
* Fonction C2N transforme le CHAR en numérique (donnée par la doc IBM)
Dc2n PR 30p 9
Dc 32 options(*varsize)
* buffers pour écriture (SORTIE) et lecture (RECUE) ************
DSORTIE S 240
DSORTIELG S 10I 0 INZ(%LEN(SORTIE))
DRECUE S 1024
DRECUELG S 10I 0 INZ(%LEN(RECUE))
DVALEURLG S 10I 0
* variables d'env.
Denv S 1024
Denvlg S 10I 0 INZ(%size(env))
DenvvalLG S 10I 0
Denvname S 1024
Denvnamelg S 10I 0
Ddebut S 10I 0
Dfin S 10I 0
* Structure pour gestion des erreurs (API)
DAPIERR DS
D ERRLG 10I 0 INZ(%len(apierr))
D ERRLGDISPO 10I 0
D ERRID 7
D ERRRESERVE 1
D ERRMSG 50
**** API (programme de service QTMHCGI)
* API POUR recevoir la saisie (lecture)
DQREAD PR EXTPROC('QtmhRdStin')
D wRECUE like(recue)
D wRECUELG like(recuelg)
D wVALEURLG like(valeurlg)
D wAPIERR like(apierr)
* API POUR générer la sortie (écriture)
DQWRITE PR EXTPROC('QtmhWrStout')
D wSORTIE like(sortie)
D wSORTIELG like(sortielg)
D wAPIERR like(apierr)
* API POUR lire une variable d'env.
Dgetenv PR EXTPROC('QtmhGetEnv')
D wenv like(env)
D wenvlg like(envlg)
D wenvvallg like(envvallg)
D wenvname like(envname)
D wenvnamelg like(envnamelg)
D wAPIERR like(apierr)
* CONSTANTES
DEOL C X'15'
DPROBLEME C 'location: http:/html/cgi/+
D erreur.html'
DPROBLEM2 C 'location: http:/html/cgi/+
D mailfr.html'
Dentete C 'Content-type: text/html'
dACCORD1 C '