CRMS13: ricerca abilitazione utente¶
Posizione nel menu Programma non a menu Linkage section
| Tipo | Dato | Formato | Contenuto |
|---|---|---|---|
| INPUT | CRMS13-OPE | x(20) | Operazione da eseguire Vedi argomenti successivi |
| CRMS13-OPE-ATT | 9(05) | Operatore attivo | |
| CRMS13-OPE-RIC | 9(05) | Operatore di cui cercare l'abilitazione | |
| OUTPUT | CRMS13-ABILITATO | x(01) | Esito della ricerca "S":Operatore abilitato "N":Operatore non abilitato |
| FILLER | x(1000) |
Logica generale Questa routine ha lo scopo di eseguire la ricerca di abilitazione di un operatore su un altro. NB: in questo programma gestire l'apertura dei files solo al primo accesso, come viene già fatto in tante altre routines simili, allo scopo di aumentare le performance.
Operazione: CERCA-ABIL¶
Descrizione Il programma analizza se l'operatore "CRMS13-OPE-RIC" è abilitato all'operatore "CRMS13-OPE-ATT" e restituisce l'esito al programma chiamante. Chiamata standard
| Dato | Contenuto |
|---|---|
| CRMS13-OPE | "CERCA-ABIL" |
| CRMS13-OPE-ATT | Operatore attivo |
| CRMS13-OPE-RIC | Operatore di cui cercare l'abilitazione |
Elaborazione Diamo per scontato che questo programma possa essere eseguito "n" volte consecutivamente, quindi dobbiamo usare un metodo per velocizzare l'elaborazione. Tenere in w/s: * una variabile che contiene l'ultimo "operatore attivo" utilizzato * una variabile che indica se l'operatore è abilitato a tutti * una tabella (1000 elementi) che contiene l'elenco operatori abilitati all'operatore attivo Memorizzare l'operatore attivo Se CRMS13-OPE-ATT è diverso dall'ultimo operatore attivo utilizzato, salvarlo ed eseguire il punto (A). Poi eseguire il punto (B). A - Caricamento operatori abilitati 1. Salvare l'operatore attivo in w/s 2. Eseguire la ricerca su CRMUSRVW di tutti gli operatori abilitati all'operatore attivo. Salvare tutti gli operatori abilitati nella tabella di w/s. 1. Se non esiste nemmeno un operatore abilitato, significa che l'operatore è abilitato a "tutti"; quindi alzare la variabile di w/s relativa B - Ricerca abilitazione operatore Se l'operatore è abilitato a tutti (variabile relativa) restitutire direttamente CRMS13-ABILITAZIONE = "S". Altrimenti eseguire una ricerca sulla tabella in w/s dell'esistenza dell'operatore CRMS13-OPE-RIC: se esiste restituire CRMS13-ABILITAZIONE = "S", altrimenti restituire "N".
Estratto da documentazione interna ClickUp