[Réso­lu] Rem­pla­cer CURRENT DATE par JOBDATE dans une requête SQL

Bon­jour, 

Voi­ci une méthode pos­sible, écrire une pro­cé­dure RPGLE pour récu­pé­rer la date du job puis encap­su­ler celle-ci dans une fonc­tion SQL :

// --------------------------------------------------
// Procedure name: getJobDate
// Purpose:        Renvoie la date du travail, utile pour les langages où ce
//                          concept n'existe pas, exemple SQL
// Returns:        Date du travail lançant cette procédure
// --------------------------------------------------
Dcl-Proc getJobDate export;
  Dcl-Pi *N DATE;
  End-Pi;
  // Local fields

  Dcl-S jobDate Date inz(*Job);
  // Calculation specifications

  return jobDate;
End-Proc;          

CREATE OR REPLACE FUNCTION getJobDate ()
	               RETURNS DATE
  LANGUAGE RPGLE
  NO SQL
  EXTERNAL NAME BERGERSRV(getJobDate)
  PARAMETER STYLE GENERAL
  PROGRAM TYPE SUB;

Pour le times­tamp, tout dépend de ce que l’on veut, faire croire aux dif­fé­rents pro­grammes que nous lan­çons le trai­te­ment à tel jour et telle heure. Ou est-ce que l’on veut juste adjoindre la par­tie time du times­tamp réel à la date du job.

Cor­dia­le­ment,