Prerequisiti
Devono esistere i programmiVedi UTIL Pre-compilatore e Convertitore (OJ*PGM-B£UT24A)
Verifiche di corretta impostazione
Ricompilare manualmente un programma (Esempio "BRAR01L di SMESRC") Modo 1 - Richiamo manuale del programma B£UT24
B£UT24 FUNZ(CCO) METO(UI) SMEM(T) FILO(SMESRC/BRSRC) MEMS(BRAR01L) FILD(SMEUP_OBJ/SRC) MEMD(BRAR01L)
Modo 2 - Opzione del PDM
- Impostare sul PDM file opzioni QAUOOPT di SMEDEV oppure SMEUP_OBJ
- Aggiungere manualmente se necessario (Sostituire la e commerciale)
XI=B£UT24 FUNZ(CCO) METO(UI) SMEM(T) FILO(eL/eF) MEMS(eN) FILD(SMEUPUIOJ/SRC) MEMD(eN)
X0=SBMJOB CMD(B£QQ02 B£CMD(B£UT24 FUNZ(CCO) METO(UI) SMEM(T) FILO(eL/eF) MEMS(eN) FILD(SMEUPUIOJ/SRC) MEMD(eN))) CPYENVVAR(*YES)
XS=? SBMJOB CMD(B£QQ02 B£CMD(B£UT24B FUNZ(CCO) METO(UI) SMEM(N) FILO(eL/eN) FILD(SMEUPUIOJ/SRC))) JOB(eN) JOBQ(QBATCH2) CPYENVVAR(*YES)
Xx=Eccetera a piacimento
Ricompilazioni ambiente di base completo
La prima volta, se ricevuti solo i sorgenti o al caricamento delle sucessive PTF bisogna riadeguare l'intero applicativo eseguendo il comando descritto sottoTale programma compila tutti i sorgenti delle seguenti librerie:
>Libreria cliente LIBPER ::DEC T(OJ) P(*LIB) K(PER_SRVL) I(*NONE)
>Libreria ß Test SMETST ::DEC T(OJ) P(*LIB) K(&SMETST) I(*NONE)
>Libreria sviluppo SMEDEV ::DEC T(OJ) P(*LIB) K(SMEDEV) I(*NONE)
>Libreria rilascio SMESRC ::DEC T(OJ) P(*LIB) K(SMESRC) I(*NONE)
?SBMJOB CMD(B£QQ02 B£CMD(CALL PGM(B£UT27CL) PARM(QBATCH))) CPYENVVAR(*YES)
Compilazione di un singolo file sorgente
?SBMJOB CMD(B£QQ02 B£CMD(B£UT24B FUNZ(CCO) METO(UI) SMEM(N) FILO("<MyLib>"/"<MyFile>") FILD("<MyLbUI>"/SRC))) JOB(UISRC) JOBQ(QBATCH) CPYENVVAR(*YES)
Ricompilazioni libreria personalizzazioni
>Libreria person. LIBPER ::DEC T(OJ) P(*LIB) K(PER_SRVL) I(*NONE)?SBMJOB CMD(B£QQ02 B£CMD(CALL PGM(B£UT26CL) PARM(PER_SRVL))) CPYENVVAR(*YES)
Allineamento
Per avere un'ambiente conforme a quello in uso bisogna eseguire l'allineamento dei programmi personali modificati giornalmente. E' opportuno impostare nello schedulatore il seguente lavoro.?ADDJOBSCDE JOB(UI_DAY) CMD(CALL PGM(B£UT26CL) PARM(PER_SRVL)) FRQ(*WEEKLY) SCDDATE(*NONE) SCDTIME(180000) TEXT('Ricompilazioni ogegtti modificati nel giorno')