Stocker la liste des objets à livrer dans une table.

.ibmi/QRPGLESRC/CPYLSTOBJ.SQLRPGLE.properties

@@ -0,0 +1,2 @@
+#Mon Dec 31 15:21:10 CET 2018
+com.ibm.etools.iseries.projects.core\:textDescription=Copie de la liste des objets du lot dans une table

QRPGLESRC/BUILDER.SQLRPGLE

@@ -157,12 +157,8 @@
            Endif;
          EndIf;
 
-
-
          Return;
 
-
-
        // --------------------------------------------------
        // Procedure name: Ouvrir_curseur
        // Purpose:        Ouvrir le curseur de lecture de LSTOBJBLD

QRPGLESRC/CPYLSTOBJ.SQLRPGLE

@@ -0,0 +1,26 @@
+       // --------------------------------------------------
+       // Procedure name: Copie_liste_objet_a_livres
+       // Purpose:        Liste dans une table les objets à livrer avec les e...
+       //                          mplacements où les envoyés
+       // Returns:
+       // Parameter:      p_Numero_lot => Numéro de lot
+       // --------------------------------------------------
+       DCL-PROC Copie_liste_objet_a_livres ;
+         DCL-PI *N;
+           p_Numero_lot LIKE(r_Numlot);
+         END-PI ;
+
+         Dcl-s l_requete_sql Char(1024);
+
+
+         l_requete_sql='Create Table L' + %editc(p_Numero_lot:'X') +
+            '.list_obj as Select * from list_objet_build Where' +
+            ' LOT_NUMBER = ' + %Char(p_Numero_lot) +
+            ') With data';
+
+         EXEC SQL
+           EXECUTE IMMEDIATE :l_requete_sql;
+
+
+         return ;
+       END-PROC ;