%%(display:none)
{{{
WikiUp
}}}
/%
[{TableOfContents }]\\
!!! Obiettivo\\
Interrogazione CICLI di LAVORO prevista nella tabella di personalizzazione applicazioni B£1

!!! Input/Output\\
Se il parametro FUNZIONE:
1) EC (Esplosione ciclo) chiama il pgm B£ICIR_xx che esegue la
scansione normale.
1) IC (Implosione ciclo) chiama il pgm B£ICIR_xx che esegue la
esplosione
3) CT (Tempi ciclo) chiama il pgm B£ICIT che gestisce la
scansione schedulata.
4) GD (Interrog. dettaglio operazione) chiama il pgm B£ICIR_xx
che ritorna/visualizza i campi di BRRICI0F
5) CD (Esplosione ciclo del documento)
5) CC (Costruzione ciclo del documento)


Input:
£CIRPG  : se non blanks lancia il programma con questo suffisso: serve nel caso in cui ci siano due scansioni di ciclo attive contemporaneamente nella stessa applicazione (lanciate da programmi diversi).

Output: *IN35 : se On = fine scansione

!!! Prerequisiti\\
/COPY QILEGEN,£BRTE
/COPY QILEGEN,£CIRE

!!! Esempio di chiamata\\

*scansione cicli di un dato articolo

C                   CLEAR                   £CIRSP        (START)
C                   DO        *HIVAL
C
C                   EVAL      £CIRFU='EC'
C                   EVAL      £CIRME='1'
C                   EVAL      £CIRIA=ARTICOLO
C                   EVAL      £CIRCG=CONFIGURAZIONE
C                   EVAL      £CIRQT=QUANTITà
C                   EXSR      £CIR
C                   IF        £CIR35=*ON                   INDICATORE ERRORE
C                   LEAVE
C                   ENDIF

C                   EVAL      N.Record      =£CIRNR
C                   EVAL      Tipo Ciclo    =£CIRTC
C                   EVAL      Codice        =£CIRCO
C                   EVAL      Ciclo Selez.  =£CIRCS
C                   EVAL      Sequenza Ciclo=£CIRSE
C                   EVAL      Risorsa       =£CIRRI
C                   EVAL      Stato         =£CIRST
C                   EVAL      Tipo Operaz.  =£CIRTO
C                   EVAL      Ciclo Iniziale=£CIRCI
C                   EVAL      Ciclo Finale  =£CIRCF
C                   EVAL      Descr. Ciclo  =£CIRDE
C                   EVAL      Gruppo Altern.=£CIRGA
C                   EVAL      Codice Colleg.=£CIRAC
C                   EVAL      Ciclo  Colleg.=£CIRCC
C                   EVAL      Seq.Cic.Coll. =£CIRSC
C                   EVAL      Criterio Sel. =£CIRSZ
C                   EVAL      Par. Selez. 1 =£CIRS1
C                   EVAL      Par. Selez. 2 =£CIRS2
C                   EVAL      Unità Tempo   =£CIRUT
C                   ENDDO

!!! Note particolari\\