Traitement SERVJOB : Gestion des fichiers job

SETREQ : Pendant la création d'une requête à partir d'un fichier job

Le point d'entrée SETREQ est déclenché pendant la création d'une requête à partir d'un fichier job. Ceci permet de gérer la synchronisation des processus en récupérant le numéro de requête.

Contexte et mode de fonctionnement

Dans le contexte du point d'entrée :

Un fichier trace est ouvert

Les tables suivantes sont en ligne :

Table	Contenu significatif	Intitulé Table
ABATRQT [ABR]	Non	Serveur batch (Requêtes)
ABATPAR [ABP]	Non	Serveur batch (Paramètres)

Le point d'entrée SETREQ est positionné dans le traitement SERVJOB juste après la création de la requête dans la table ABATRQT. Ce traitement est appelé par le serveur batch et toutes les variables globales de l'application ne sont pas définies.

Le nom de la trace du serveur batch est contenu dans la variable FICTRA et il est possible d'écrire dans cette trace en utilisant le sous-programme STRACE du traitement SERVEUR. Les arguments de ce sous-programme sont dans l'ordre : FICTRA (Alpha), Numéro d'erreur (Integer), Numéro de requête (Integer), Commentaires (Alpha).

FICTRA contient le nom de la trace ouverte
JOB contient le nom du fichier job
APPLI contient le nom de l'application sur laquelle la requête est créée

Les tables ABATRQT et ABATPAR sont ouvertes et renseignées

WRJOB : Pendant la création du fichier sta

Le point d'entrée WRJOB est déclenché pendant la création du fichier 'sta' ou 'run'. Ceci permet de gérer le nom du fichier et pouvoir modifier le paramètres avant l'écriture du fichier.

Contexte et mode de fonctionnement

Dans le contexte du point d'entrée :

Un fichier trace est ouvert

Les tables suivantes sont en ligne :

Table	Contenu significatif	Intitulé Table
ABATRQT [ABR]	Non	Serveur batch (Requêtes)
ABATPAR [ABP]	Non	Serveur batch (Paramètres)

Contexte d'appel

Le point d'entrée WRJOB est positionné dans le traitement SERVJOB juste avant la création du fichier "sta".Ce traitement est appelé par le serveur batch et toutes les variables globales de l'application ne sont pas définies.

GPE est initialisé à 0, si GSE superieure à 0 au retour du point d'entrée , on sort du sous-programme sans écrire le fichier.

Variables

Liste des variable passé par l'appel du subprog :

JOB : nom du fichier .job
TYP : typ de fichier , par exemple "sta"
ERR : Numéro d'erreur
REQ : Numéro requête
APP : Dossier
USR : Utilisateur
TAC : Tâche
MES : Message

Aprés la création du fichier si DATDEB et DATFIN sont vide on initialise ces variables suivant les règles suivantes :

Case TYP

When "sta"

If [L]NUMREQ=0 : DATDEB = DD+HS

Else

If [F:ABR]DAT<>[0/0/0] : DATDEB = [F:ABR]DAT : Else : DATDEB = DD : Endif

If [F:ABR]HDEB<>"" : DATDEB += [F:ABR]HDEB

Elsif [F:ABR]HEURE<>"" : DATDEB += [F:ABR]HEURE+"00"

Else : DATDEB += HS :

Endif

DATFIN = DD+HS

When Default

DATDEB = DD+HS

DATFIN = ""

Endcase

Le reste des variable ne sont pas modifier avant leurs écritures.

Exemple d'utilisation

On peut modifier la variable FICHIER pour modifier le nom de fichier "sta"