| At line 1 added 75 lines |
| %%(display:none) |
| {{{ |
| WikiUp |
| }}} |
| /% |
| [{TableOfContents }]\\ |
| !!! Obiettivo\\ |
| Interfacciare il programma in esecuzione con le rate da registraz.contabili delle diverse applicazioni previste nella tabella di personalizzazione applicazioni B£1. Eseguire la ricerca alfabetica relativa se richiesto |
| !!! Funzioni e metodi\\ |
| !!! Input\\ |
| £IC3FU: Funzione |
| £IC3ME: Metodo |
| £IC3AM: Ambiente |
| £IC3CO: Contesto |
| £IC3ID: Identificativo rata |
| £IC3RI: N.ro Record di input |
|
| !!! Output\\ |
| £IC3ID: Identificativo rata (se eseguita ricerca) |
| £IC3DE: Descrizione rata |
| £IC3MS: Codice messaggio ritorno (7) |
| £IC3FI: File messaggio ritorno (10) |
| £IC3CM: Ultimo Comando |
| £IC3RO: N.ro Record di output |
| *IN35 : se On = Codice errato\\ |
| *IN36 : se On = eseguita ricerca alfabetica\\ |
| C5RATA: DS valorizzata |
|
| !!! Prerequisiti\\ |
| C5SOLL E DS EXTNAME(C5SOLL0F) INZ |
|
| !!! Esempio di chiamata\\ |
| !! Chiamata con singola lettura\\ |
| %%quote |
| |C* Z-ADD N_campi £IC3NK |
| |C* EVAL £IC3FU='CHA' |
| |C* EVAL £IC3ME='Metodo' |
| |C* EVAL £IC3AM= Ambiente |
| |C* EVAL £IC3CO= contesto |
| |C* EVAL £IC3ID= ID.Rata |
| |C* EXSR £IC3 |
| |C* IF NOT(*IN35) |
| |C* EVAL Campo_descrizione= £IC3DE |
| |C* ENDIF |
| /% |
| ---- |
|
| !! Chiamata con scansione\\ |
| %%quote |
| | C* CLEAR C5RATA |
| | C* EVAL £IC3FU='SL' |
| | C* EVAL £IC3ME='0L' |
| | C* EVAL L5IDOJ=Identificativo' |
| | C* EXSR £IC3 |
| | C* |
| | C* DO *HIVAL |
| | C* |
| | C* EVAL £IC3FU='RE' |
| | C* EVAL £IC3ME='0L' |
| | C* EVAL L5IDOJ=Identificativo' |
| | C* EXSR £IC3 |
| | C* IF £IC335=*ON |
| | C* LEAVE |
| | C* ENDIF |
| | C* |
| | C* .... |
| | C* ENDDO |
| /% |
| ---- |
| !!! Oggetti collegati\\ |
|
| !!! Note particolari\\ |
| È preferibile eseguire un clear della DS C5RATA prima di ogni richiamo |
|
| Parametro aggiuntivo: £IE3NK: Numero di campi che si vuole utilizzare nella ricerca (es. se si accede alla vista logica con chiavi AZIE,DIVI,TREG e si valorizza solo AZIE il programma esclude dalla chiave i campi BLANK e lavora con chiave parziale (nell'es. = AZIE). Se si volesse usare una chiave formata da AZIE e da LIVE=*BLANKS allora si ponga £IE3NK=2). Non valorizzare £IE3NK per lasciare al programma il compito di stabilire il numero di chiavi da usare £IE5NK viene inserito nell'ultimo char di £IE3ME al richiamo dell'interfaccia |
