WikASi - Un peu de tout sur le 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 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))