Discussion :

[Homer-ac]

+1, même pas un clone d'un utilitaire je pense. Vu le JCL, sans doute un COBOL 'maison' (à cause de la DD CEEDUMP, encore que ce n'est peut être même pas utile) qui se contente de mettre à jour un fichier par remplacement trivial et dans l'ordre des variables &.... reçues en parm=, donc valorisées, sur celles lues dans le fichier de DDNAME DD00011A (avec un nom pareil, certainement pas un utilitaire standard, IBM aurait plutôt choisi un DDNAME du genre SYSUT2 pour un fichier en écriture).
Quant à DB2TEP2, probablement une erreur de saisie ou juste un alias (dont je ne vois pas bien l'intérêt soit dit en passant).

[Lemmings1406]

Allez voir ce sujet, il pourra vous apporter une solution assez simple:

http://www.developpez.net/forums/d84...ables-systeme/

[Peut-êtreUneRéponse]

+1, même pas un clone d'un utilitaire je pense. Vu le JCL, sans doute un COBOL 'maison' (à cause de la DD CEEDUMP, encore que ce n'est peut être même pas utile) qui se contente de mettre à jour un fichier par remplacement trivial et dans l'ordre des variables &.... reçues en parm=, donc valorisées, sur celles lues dans le fichier de DDNAME DD00011A (avec un nom pareil, certainement pas un utilitaire standard, IBM aurait plutôt choisi un DDNAME du genre SYSUT2 pour un fichier en écriture).
Quant à DB2TEP2, probablement une erreur de saisie ou juste un alias (dont je ne vois pas bien l'intérêt soit dit en passant).

SY00011 est un utilitaire maison (vous devinerez de quelle maison) qui remplace, dans un fichier SYSIN, les symboles de paramétrage par les valeurs de paramètres données dans le champ "PARM".

Je ne rentrerais pas dans les détails du comment et du pourquoi du clone de DSNTEP2... je ne les connais pas

+1 pour Luc Orient et Homer-ac, l'exemple de magmerlin n'est valable que sur son site.

[magmerlin]

Bonjour,

Désolé de tarder à répondre mais j'ai changé de travail.

Pour les septiques voici le JCL généralisé:

//*-----------------------------------
//* FORMATAGE DE LA SQL DYNAMIQUE
//*-----------------------------------
//DYNSQL01 EXEC PGM=IKJEFT01,
// PARM=('&date1','&date2','&champ1','&champ2')
//*
//DD00011A DD DISP=SHR,
// DSN=bibliotheque(membre de ta requete à contruire)
//*
//DD00011S DD DISP=(NEW,PASS,DELETE),
// DSN=&&DYNSQL01,
// SPACE=(TRK,(1,1),RLSE),
// UNIT=TVIO
//*
//SYSOUT DD SYSOUT=*
//CEEDUMP DD SYSOUT=E
//*=================================================
//*---------------------------------------------------------------------
//* STEP002 : EXECUTION DE LA REQUETE
//*---------------------------------------------------------------------
//*
//STEP002 EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD DISP=(,CATLG,DELETE),
// SPACE=(CYL,(250,100),RLSE),
// DCB=(RECFM=FB,LRECL=133),
// DSN=UZ11777.EXTRACT.REQUETE.SQL
//SYSUDUMP DD SYSOUT=Z
//SYSTSIN DD *
DSN SYSTEM(DPF0)
RUN PROGRAM(DSNTEP2) PLAN(DSNTEP2)
/*
//SYSIN DD DISP=(OLD,DELETE),
// DSN=&&DYNSQL01
/*
//*
=================================================
Corps de requete à mettre dans la bibliothèque perso
*****************************************************
SELECT COUNT(*),
FROM creator.table_name A, creator.table_name B
WHERE A.**=B.**
AND A.DATE1 >= '&date1'
AND A.DATE2 <= '&date2'
AND A.** IN
('&CHAMP1', '&CHAMP2')
WITH UR;
/*