At line 1 added 63 lines |
%%(display:none) |
{{{ |
WikiUp |
}}} |
/% |
[{TableOfContents }]\\ |
!!! Obiettivo\\ |
|
Controllo/Gestione ricorsione |
|
!!! Funzioni e metodi\\ |
|
FUNZIONE ' ' : emette finestra con segnalaz.ricorsione e ritorna msg BAS0118 |
|
Nelle /COPY di interfaccia viene eseguita la routine in questa modalità, ma viene lanciato il programma ritornato: se si vuol fare eseguire la duplicazione si dovrà modificare funzione e metodo prima del lancio: ricordare che all'uscita della routine essi vengono puliti, quindi ritornano al default (solo controllo), e quindi, se si vuol far fare la duplicazione in più punti bisogna impostarlo esplicitamente ogni volta. |
|
FUNZIONE 'NOMSG' : se ricorsione ritorna msg BAS0118 |
|
FUNZIONE 'RITL' : ritorno del livello di chiamata |
METODO ' ' : se non riesce emette formato e ritorna |
msg BAS0118 |
'NOMSG' : se non riesce ritorna solo msg BAS0118 |
|
FUNZIONE 'ULPG' : ritorno l'ultimo pgm nello stack prima |
del chiamante |
METODO ' ' : ritorno l'ultimo pgm nello stack prima |
del chiamante |
'BEFORE': ritorno del prpgramma dello stack |
precedete quello passato in £CRIPG |
'BEFORENQ': ritorno del prpgramma dello stack |
precedete quello passato in £CRIPG |
escludendo quelli il cui nome inizia |
per Q (pgm di sistema) |
|
FUNZIONE 'VIS ' : Presenta a video lo stack delle chiamate |
|
Altri parametri per questa funzione |
Output £CRILC : livello di chiamata eseguibile |
|
!!! Input\\ |
£CRIPG - Programma da controllare se esistente |
£CRIFU - Funzione di controllo |
£CRIME - Metodo di controllo |
|
!!! Output\\ |
|
£CRIPG - Programma da lanciare |
£CRIMS - Se non a blanks messaggio d'errore |
|
!!! Prerequisiti\\ |
|
Nessuno |
|
!!! Esempio di chiamata\\ |
|
C* EVAL £CRIPG=Nome_programma |
C* EVAL £CRIFU='Funzione' |
C* EVAL £CRIME='Metodo' |
C* EXSR £CRI |
|
!!! Oggetti collegati\\ |
|
!!! Note particolari\\ |