At line 1 added 71 lines |
%%(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\\ |