[Déclaration]
* Curseur sans sélection pour traiter tous les employés :
CURSEUR CURS_ANCIEN_TOUS PERSONNEL                               -
                         *COL(PE_DAT_ENTREE)

* Curseur avec sélection sur le code sexe :
CURSEUR CURS_ANCIEN_F_H  PERSONNEL                               -
                         *COL(PE_DAT_ENTREE)                     -
                         *COND(PE_COD_SEXE_PER = :ZPE_CODE_SEXE)

[Déclaration]
* Variable contenant la requête SQL
ALPHA(300) W_REQUETE_SQL

* Curseur en référence à la variable requête (préfixée par « : »)
CURSEUR CURS_ANCIEN :W_REQUETE_SQL

[(Traitement)]
* Construction de la requête SQL dans la variable W_REQUETE_SQL
W_REQUETE_SQL = *BLANK
W_REQUETE_SQL = 'SELECT PEDATPENT FROM schema.PERSONP’
SI ZPE_CODE_SEXE = 'F';’H’
 W_REQUETE_SQL = W_REQUETE_SQL /// - 
    ' WHERE PEPSEX = ''' /// ZPE_CODE_SEXE /// ''''
FIN 

* Sélection de tous les employés 
 W_REQUETE_SQL = 'SELECT PEDATPENT FROM schema.PERSONP’

SI ZPE_CODE_SEXE = 'F';’H’ 
   W_REQUETE_SQL = W_REQUETE_SQL ///                               - 
                   ' WHERE PEPSEX = ''' /// ZPE_CODE_SEXE /// '''' 
FIN

W_REQUETE_SQL = W_REQUETE_SQL /// ' WHERE PEPSEX = '

W_REQUETE_SQL = W_REQUETE_SQL /// ' WHERE PEPSEX = '''

W_REQUETE_SQL = W_REQUETE_SQL /// ' WHERE PEPSEX = ''' /// ZPE_CODE_SEXE

' WHERE PEPSEX = ''' /// ZPE_CODE_SEXE /// ''''

* Soit la sélection de la date d’entrée de chaque employé ayant un code * société égal à celui saisi par l’utilisateur. 
 W_REQUETE_SQL = 'SELECT PEDATPENT FROM PERSONP WHERE PECODSTE = ' /// ZPE_COD_SOCIETE

[DECLARATION] 
* Variable requête 
ALPHA(300) W_REQUETE_SQL 
 
* Colonnes de la liste mémoire contenant le résultat de la requête 
ALPHA(30) W_NOM_SOCIETE 
NUM_BIN_4 W_NB_EMPLOYE 
 
* Paramètres de la procédure 
ALPHA(1) WP_CODE_SEXE 
LISTE LSM_NB_EMP_SOC W_NOM_SOCIETE W_NB_EMPLOYE 
 
* Curseur dynamique 
CURSEUR CUR_NB_EMP_SOC :W_REQUETE 
 
* Déclaration des paramètres gérés en entrée/sortie par la procédure 
PARAM WP_CODE_SEXE LSM_NB_EMP_SOC 

[(Traitement)] 
* Construction de la requête SQL dans la variable W_REQUETE 
W_REQUETE_SQL = *BLANK 
W_REQUETE_SQL = 'SELECT SONOMSOC, COUNT(PECODMAT) FROM PERSONP, SOCIETE -
                 WHERE PECODSTE=SOCODSTE' 
* 
SI WP_CODE_SEXE = 'F';’H’ 
   W_REQUETE_SQL = W_REQUETE_SQL /// ' AND' ///               - 
                   ' PECODSEX = ''' /// WP_CODE_SEXE /// '''' 
FIN 
* 
W_REQUETE_SQL = W_REQUETE_SQL /// ' GROUP BY SONOMSOC' 
* 
OUVRIR_SQL_C CUR_NB_EMP_SOC 
* Alimentation des colonnes de la liste par SONOMSOC et COUNT(PECODMAT) 
LIRE_AV_SQL_C CUR_NB_EMP_SOC :W_NOM_SOCIETE, :W_NB_EMPLOYE 
TANT_QUE *SQLCODE = *NORMAL 
   INSERER_ELT LSM_NB_EMP_SOC 
    LIRE_AV_SQL_C CUR_NB_EMP_SOC :W_NOM_SOCIETE, :W_NB_EMPLOYE 
REFAIRE 
FERMER_SQL_C CUR_NB_EMP_SOC

[Déclaration]
* Variable requête
ALPHA(1000) W_REQUETE_SQL
ALPHA(7)    W1_COND
*
CHARGEMENT CHRG_ENT FEN_LISTE.LST_DE_ENT:LISTE *SQL_D W_REQUETE_SQL     -
           ZZ_NUM_PROMESSE ZZ_NUM_DER_ENT ZZ_NUM_DER_ORI ZZ_COD_TYP_DER –
           ZZ_COD_FOU_APP ZZ_NOM_FOU_APP _VALEUR_PAS

[Traitement]
* Constitution de la requête
* Dans un premier temps la requête est renseignée avec les éléments 
* invariants de la sélection.
W_REQUETE     = *BLANK
W_REQUETE_SQL = 'SELECT DENOPROM, DENODERENT, DENODERORI, DECDTPDER,    -
                 FOCDFOAPP, FONMFOAPP FROM ENTDERP, NATUREP, FOUAPP     –
                 WHERE DECDNTPRO=NACDNTPRO AND FONOFOUAPP = DENOFOUAPP'
*
W1_COND = ' AND'
*
* La requête est ensuite complétée en fonction de la saisie des champs 
* constituant le filtre de sélection des enregistrements en base de données.
*
* N° promesse. Variable hôte numérique. Il suffit donc de la concaténer à la requête
SI CHS_NUM_PROMESSE <> 0 
 W_REQUETE = W_REQUETE /// W1_COND /// ' DENOPROM = ' // CHS_NUM_PROMESSE
FIN
* N° dérogation. Variable hôte alphanumérique et utilisation de la fonction SQL « LIKE ‘xxx%’». Permet de sélectionner les enregistrements commençant par la chaîne de caractères « CHS_NUM_DER_ENT ». Il faut reprendre ici le même principe vu précédemment pour coder une cote dans la variable requête. Il faut pour cela utiliser deux côtes : «''»
SI CHS_NUM_DER_ENT <> *BLANK
 W_REQUETE = W_REQUETE /// W1_COND /// ' DENODERENT LIKE ''' // CHS_NUM_DER_ENT /// '% '''
FIN
* Sélection du n° de DA. 
SI P_NUM_DA <> 0 
 * Sélection pour la DA. Variable hôte numérique et utilisation de la 
 * fonction SQL « IN » qui permet de sélectionner les enregistrements ayant
 * une valeur égale à celles extraite dans la seconde sélection.
 * A noter l’utilisation d’une fonction prédéfinie directement dans la 
 * requête : &NUM_ALPHA
 W_REQUETE = W_REQUETE /// W1_COND /// ' DENOPROM IN –
 (SELECT LVNOPROM FROM LIGVTEDP WHERE LVNODAV = ' // -
 &NUM_ALPHA(CHO_NUM_DA) /// ')'
FIN
 * Date commercialisation. Variable hôte de type date. Utilisation de la
 * fonction SQL « DATE » et de la fonction prédéfinie Adélia &DATE_ALPHA afin
 * de gérer le format et les séparateurs de date.
SI ZW_DAT_COMM = _DAT_COMM_ACTU
 W_REQUETE = W_REQUETE /// W1_COND // ' PRDTCOMPRD <= DATE( ''' //&DATE_ALPHA ('*ISO';W_DATE)// ''' )'
FIN
W_REQUETE = W_REQUETE /// ' ORDER BY DENODERENT' 
...

* Remplissage SFL par requête Dynamique SQL_SFL_D 
W_REQUETE = ‘SELECT PPMAT, PPNPE FROM PERSONP’ 
SQL_SFL_D W_LIB_REQ 1 ZPCOD_MATRICULE ZPNOM_PERSONNE 

** La vue *1 est alors indiquée en remplissage par requête SQL et sans fichier guide 
EFFACER 1 
GESTION_SFL 1 
   MAJ_SFL 
FIN_GESTION_SFL