Utilisation du programme de service DspFInfo
* ===================================================================
* = Application example that uses service program DspFInfo =
* ===================================================================
FMyDBFile IF E Disk
FMyDspF CF E WorkStn SFile( RcdSfl : RcdNbr )
D RtvSflPage PR 5I à˜
D 1à˜ Value
D 1à˜ Value
D 1à˜ Value
D 272
D
4 Value
D Options( *NoPass )
D DspFName S 1à˜ Inz( ‘MYDSPF’ )
D DspFLib S 1à˜ Inz( ‘MYLIB’ )
D RcdFmt S 1à˜ Inz( ‘RCDSFC’ )
D NoAPIError C Const( *Zero )
D APIErrorDS DS
D BytesPrv 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 RcdNbr S 5I à˜
D SflPag S 5I à˜
* ——————————————————————-
* – Retrieve subfile page value –
* ——————————————————————-
C Reset APIErrorDS
C Eval SflPag = RtvSflPage(
C DspFName :
C DspFLib :
C RcdFmt :
C APIErrorDS
C )
C If BytesAvail <> NoAPIError
Handle error
C EndIf
.
.
.
* ——————————————————————-
* – Load subfile –
* ——————————————————————-
C For RcdNbr = 1 to SflPag
C Read MyDBFile
C Write RcdSfl
C EndFor
.
.
.
* ——————————————————————-
* – Display subfile –
* ——————————————————————-
C Write RcdSfC
C Write Footer
C Read RcdSfC
.
.
.
C Eval *InLR = *On
Comment bénéficier d’une vision unifiée de vos messageries, mieux protéger vos données sensibles, vous conformer plus aisément aux contraintes réglementaires et réduire votre empreinte carbone ? Découvrez la solution de reporting complet de l’utilisation de Microsoft Exchange, en mode on-premise ou dans le Cloud.
