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
Les attaquants savent comment prendre le contrôle de votre tenant Microsoft 365, et vous, savez-vous comment le reprendre en main ?
Analyse Patch Tuesday Mai 2026
Les coûts cachés des merge requests générées par l’IA
Femmes et métiers de la tech : une attractivité réelle freinée par des stéréotypes persistants
Moderniser le développement logiciel : de la fragmentation à l’intégration
Analyse Patch Tuesday Avril 2026
