Skip to content

Commit

Permalink
Passage par des paramètres par des variables intermédiaires.
Browse files Browse the repository at this point in the history 
Sinon quand les valeurs dans les paramètres &PREBIBSRC &PREFICSRC
&PRESRCMBR étaient changées, les valeurs des paramères &BIBSRC &FICSRC
&MBRSRC étaient aussi modifées.
  • Loading branch information
drubigol authored and drubigol committed Jan 5, 2021
1 parent 9f0646e commit 157fc53
Showing 1 changed file with 22 additions and 3 deletions.
25 changes: 22 additions & 3 deletions QCLSRC/CRTOBJSQL.CLLE
View file
Original file line number Diff line number Diff line change
Expand Up @@ -8,11 +8,20 @@
/* >>EXECUTE<< */
/* >>END-PRE-COMPILER<< */

PGM PARM(&PREBIBSRC &PREFICSRC &PRESRCMBR &BIBDST &OBJDST +
&TYPOBJ &BIBSRC &FICSRC &MBRSRC &LISTBIB &GESTDATA)
PGM PARM(&PREBIBSRCP &PREFICSRCP &PRESRCMBRP &BIBDSTP &OBJDSTP +
&TYPOBJP &BIBSRCP &FICSRCP &MBRSRCP &LISTBIB &GESTDATA)



DCL VAR(&PREBIBSRCP) TYPE(*CHAR) LEN(10)
DCL VAR(&PREFICSRCP) TYPE(*CHAR) LEN(10)
DCL VAR(&PRESRCMBRP) TYPE(*CHAR) LEN(10)
DCL VAR(&BIBDSTP) TYPE(*CHAR) LEN(10)
DCL VAR(&OBJDSTP) TYPE(*CHAR) LEN(10)
DCL VAR(&TYPOBJP) TYPE(*CHAR) LEN(10)
DCL VAR(&BIBSRCP) TYPE(*CHAR) LEN(10)
DCL VAR(&FICSRCP) TYPE(*CHAR) LEN(10)
DCL VAR(&MBRSRCP) TYPE(*CHAR) LEN(10)
DCL VAR(&PREBIBSRC) TYPE(*CHAR) LEN(10)
DCL VAR(&PREFICSRC) TYPE(*CHAR) LEN(10)
DCL VAR(&PRESRCMBR) TYPE(*CHAR) LEN(10)
Expand All @@ -36,6 +45,16 @@

MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERREUR))

CHGVAR VAR(&PREBIBSRC) VALUE(&PREBIBSRCP)
CHGVAR VAR(&PREFICSRC) VALUE(&PREFICSRCP)
CHGVAR VAR(&PRESRCMBR) VALUE(&PRESRCMBRP)
CHGVAR VAR(&BIBDST) VALUE(&BIBDSTP)
CHGVAR VAR(&OBJDST) VALUE(&OBJDSTP)
CHGVAR VAR(&TYPOBJ) VALUE(&TYPOBJP)
CHGVAR VAR(&BIBSRC) VALUE(&BIBSRCP)
CHGVAR VAR(&FICSRC) VALUE(&FICSRCP)
CHGVAR VAR(&MBRSRC) VALUE(&MBRSRCP)

/* R�cup�ration du type de source */
RTVMBRD FILE(&BIBSRC/&FICSRC) MBR(&MBRSRC *SAME) SRCTYPE(&TYPSRC)

Expand Down Expand Up @@ -73,7 +92,7 @@
/* On va rechercher le script standard PRE de cr�ation */
MONMSG MSGID(PRZ0028) EXEC(DO)
CHGVAR VAR(&PRESRCMBR) VALUE('STDSQL')
CHGVAR VAR(&PREFICSRC) VALUE('QBLDSCTSRC')
CHGVAR VAR(&PREFICSRC) VALUE('QBLDSTDSRC')
CHGVAR VAR(&PREBIBSRC) VALUE('I_BUILDER')
GOTO CMDLBL(STANDARD)
ENDDO
Expand Down

0 comments on commit 157fc53

Please sign in to comment.