==== Exec SQL i ====

/* Déclaration */\\

DCL        &REFFILE *CHAR LEN(10) VALUE('Mon_File')\\
DCL        &FSQL    *CHAR LEN(10)\\
DCL        &SQL     *CHAR LEN(512)\\
DCL        &QUOTE   *CHAR LEN(1) VALUE(X'7D')\\

/* Mise a jour du fichier  */
              CHGVAR     VAR(&FSQL) VALUE(&REFFILE)
              CALLSUBR   SUBR(MAJFILE)

**SUBR       SUBR(MAJFILE)**

/*ˆValeurs numeriques */\\
   CHGVAR  &RCDA &RCD
   CHGVAR  &PCTA &PCT
   CHGVAR  &SIZA &SIZE

   chgvar &sql  +
      ('INSERT INTO *LIBL/' *TCAT &FSQL *BCAT +
              '(ODOBSY, ODLADN, ODLBNM, NBROBJ, SIZE, PCT, LIBELE) +
              VALUES(' *CAT +
                   &QUOTE *CAT &OBJ_ODOBSY *TCAT &QUOTE *CAT ',' *BCAT +
                   &QUOTE *CAT &OBJ_ODLADN *TCAT &QUOTE *CAT ',' *BCAT +
                   &QUOTE *CAT &OBJ_ODOBNM *TCAT &QUOTE *CAT ','  *BCAT +
                    &RCDA *TCAT ',' *BCAT +
                    &SIZA *TCAT ',' *BCAT +
                    &PCTA *TCAT ',' *BCAT +
                   &QUOTE *CAT &OBJ_ODOBTX *TCAT &QUOTE *CAT ')')

         RUNSQL     SQL(&SQL) COMMIT(*NONE)
         MONMSG     MSGID(CPF0000 SQL0000)
         
 **ENDSUBR**


==== Create Table ====

CREATE TABLE QTEMP/REFASBP\\
(ASSSY CHAR(8),\\
ASSBS CHAR(10),\\
ASSBSL CHAR(10),\\	
ASBJOB DEC(7, 0),\\	
RTVDAT DATE with default current_date,\\
RTVTIM TIME with default current_time,\\
RTVUSR char(10))