| At line 1 added 74 lines |
| %%(display:none) |
| {{{ |
| WikiUp |
| }}} |
| /% |
| [{TableOfContents }]\\ |
| !!! Obiettivo\\ |
| Interfacciare il programma in esecuzione con l'anagrafico risorse. |
| Eseguire la ricerca alfabetica relativa se richiesto |
|
|
| !!! Input\\ |
|
| £IRIFU: Funzione |
| £IRIME: Metodo |
| £IRIAM: Ambiente |
| £IRICO: Contesto |
| £IRICD: Codice risorsa (se funzione = *Blanks) |
| £IRITR: Tipo risorsa (se funzione = *Blanks) |
| £IRIRI: N.ro Record di input |
| £IRILC: Livello chiamata |
|
| !!! Output\\ |
|
| £IRICD: Risorsa (se eseguita ricerca) |
| £IRIDE: Descrizione |
| £IRIMS: Codice messaggio ritorno |
| £IRIFI: File messaggio ritorno |
| £IRICM: Ultimo Comando |
| £IRIRO: N.ro record di output |
| *IN35 : se On = Codice errato\\ |
| *IN36 : se On = eseguita ricerca alfabetica\\ |
| BRRISO: DS valorizzata |
|
| !!! Prerequisiti\\ |
| D/COPY QILEGEN,£IRIDS |
|
| !!! Esempio di chiamata\\ |
|
| 1) ricerca/decodifica/controllo risorsa |
|
| C* EVAL £IRICD= Risorsa |
| C* EVAL £IRITR= Tipo |
| C* EXSR £IRI |
| C* EVAL Descrizione= £IRIDE |
| C* EVAL Risorsa = £IRICD |
| C* EVAL Record_BRRISO |
|
| 2) SETLL+READE sul logico BRRISO3L (tipo risorsa/gruppo risorsa) |
|
| C* CLEAR BRRISO |
| C* EVAL £IRIFU='SLRE' |
| C* EVAL £IRIME='3L' |
| C* EVAL C§TRIS='CDL' |
| C* EVAL C§DEPT='AAA' |
| C* DO *HIVAL |
| C* EXSR £IRI |
| C* IF £IRIMS='FINE' |
| C* LEAVE |
| C* ENDIF |
| C* |
| C* utilizzo dei campi del BRRISO |
| C* |
| C* EVAL £IRIFU='RE' |
| C* EVAL £IRIME='3L' |
| C* ENDDO |
|
| !!! Note particolari\\ |
|
| è preferibile eseguire un clear della DS BRRISO prima di ogni utilizzo. |
|
| £IRINK: Numero di campi che si vuole utilizzare nella ricerca. |
| Non valorizzare £IRINK per lasciare al programma il compito di stabilire il numero di chiavi da usare. £IRINK viene inserito nell'ultimo char di £IRIME al richiamo dell'interfaccia |
|
