Re: Allineare programmi in ambiente 365/7/24

On 15 Lug, 12:42, Consulente EDP <gattonz...@hotmail.com> wrote:
> Allineare una libreria in produzione o un singolo programma
> controllando che nessuno lo stia utilizzando in quel momento
>
> ---------------------------------------
> Si ottiene elenco dei programmi
> ---------------------------------------
> DSPLIB LIB(ILGATTO) OUTPUT(*PRINT)
>
> RJBYEFH     *PGM      CBL
> RJBZXFH     *PGM      CBL
> RJB1PVH     *PGM      CBL
>
> -----------------------------------
> Si ottiene elenco lavori attivi
> -----------------------------------
> QSYS/WRKACTJOB OUTPUT(*PRINT)
>
> QCTL           QSYS        263505   QSYS
>    KCTLGAA  QPGMR       263907   QPGMR
>    QSYSSCD   QPGMR       263526   QPGMR
>  QINTER      QSYS        263911   QSYS
>    TIZIOS1      TIZIO      263935   TIZIO
>    TIZIOS2      TIZIO      263936   TIZIO
>    TIZIOS3      TIZIO      263938   TIZIO
>    CAIOS1       CAIO       263933   MORENA
>    CAIOS2       CAIO       263934   MORENA
>    CLEOS1       CLEOM   263930   CLEOM
>    CLEOS1       CLEOM   263940   CLEOM
>
> ----------------------------------------
> Si ottiene lo stack dei programmi
> ----------------------------------------
> DSPJOB JOB(263935/TIZIO/TIZIOS1) OUTPUT(*PRINT) OPTION(*PGMSTK)
>
> --------------------------------------------------------------------
> Il programma di utilità usando i tre comandi di cui sopra
> produce in automatico una stampa dei programmi in uso
> --------------------------------------------------------------------
>
in testa libreria con i nuovi oggetti e poi
GRTOBJAUT *PUBLIC *EXCLUDE su quella che ha i vecchi programmi(solo
quelli aggiornati).
Se qualcuno li sta utilizzando va in cpf il GRTOBJAUT e via con monmsg
etc


> Programma       : RJBZXFH
>
>                 Nome lavoro  Utente      Numero
>                 ----------------------------------------
>                 CLEOS1          CLEOM   263930
>
> Programma       : RJB1PVH
>
>                 Nome lavoro  Utente      Numero
>                 ----------------------------------------
>                 TIZIOS1         TIZIO      263935
>
> OPPURE c'é già un comando che fa tutto ?