Utilisation du programme de service CallStack dans des applications
* ===================================================================
* = Prototypes =
* ===================================================================
* -------------------------------------------------------------------
* - RtvNbrStkEnt - Retrieve number of call stack entries -
* -------------------------------------------------------------------
D RtvNbrStkEnt PR 1à˜I à˜
D 1à˜ Value
D 1à˜ Value
D 6 Value
D 272 Options( *NoPass
)
* ——————————————————————-
* – RtvStkEnt – Retrieve call stack entry –
* ——————————————————————-
D RtvStkEnt PR N
D 1à˜ Value
D 1à˜ Value
D 6 Value
D 1à˜I à˜ Value
D 1à˜I à˜
D 1à˜
D 1à˜
D 1à˜
D 1à˜
D 1à˜
D 4à˜96
D 272 Options( *NoPass )
D JobName S 1à˜ Inz(‘*’)
D JobUser S 1à˜ Inz(*Blank)
D JobNbr S 6 Inz(*Blank)
D NbrStkEnt S 1à˜I à˜ Inz( *Zero )
D StkEntNbr S 1à˜I à˜ Inz( *Zero )
D RqsLvl S 1à˜I à˜ Inz( *Zero )
D PgmName S 1à˜ Inz( *Blank )
D PgmLib S 1à˜ Inz( *Blank )
D ModName S 1à˜ Inz( *Blank )
D ModLib S 1à˜ Inz( *Blank )
D ActGrp S 1à˜ Inz( *Blank )
D PrcName S 4à˜96 Inz( *Blank )
D NoAPIError C Const( *Zero )
D APIErrorDS DS
D 1à˜I à˜ Inz( %Size( APIErrorDS ) )
D BytesAvail 1à˜I à˜ Inz( *Zero )
D MsgID 7 Inz( *Blanks )
D 1 Inz( X’à˜à˜’ )
D MsgDta 256 Inz( *Blanks )
D RtnCode S N
C Reset APIErrorDS
C Eval NbrStkEnt = RtvNbrStkEnt(
C JobName :
C JobUser :
C JobNbr :
C APIErrorDS
C )
C If BytesAvail <> NoAPIError
* Insert error handling code
C EndIf
C For StkEntNbr = 1 To NbrStkEnt
C Reset APIErrorDS
C Eval RtnCode = RtvStkEnt(
C JobName :
C JobUser :
C JobNbr :
C StkEntNbr :
C RqsLvl :
C PgmName :
C PgmLib :
C ModName :
C ModLib :
C ActGrp :
C PrcName :
C APIErrorDS
C )
C If BytesAvail <> NoAPIError
* Insert error handling code
C EndIf
C EndFor
Téléchargez cette ressource
Guide de technologie 5G pour l’entreprise
Pourquoi la 5G est-elle faite pour votre entreprise ? La 5G peut améliorer la vitesse, la fiabilité et la capacité de votre réseau, permettant ainsi une meilleure collaboration, une productivité accrue et une prise de décision plus rapide. Notre livre blanc " The Big Book of Enterprise 5G" vous fournit les informations stratégiques dont vous avez besoin pour prendre des décisions éclairées et préparer votre entreprise à prospérer dans l'ère de la 5G. Cradlepoint, part of Ericsson est le leader mondial des solutions de réseau sans fil 4G LTE et 5G fournies via le cloud. Connectez vos employés, lieux et objets avec la 4G LTE et la 5G pour un WAN sans fil d'entreprise.