> Tech > Figure 2

Figure 2

Tech - Par Renaud ROSSET - Publié le 24 juin 2010
email

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

Téléchargez cette ressource

Comment sécuriser une PME avec l’approche par les risques ?

Comment sécuriser une PME avec l’approche par les risques ?

Disposant de moyens financiers et humains contraints, les PME éprouvent des difficultés à mettre en place une véritable stratégie de cybersécurité. Opérateur de services et d’infrastructures, Naitways leur propose une approche pragmatique de sécurité « by design » en priorisant les risques auxquelles elles sont confrontées.

Tech - Par Renaud ROSSET - Publié le 24 juin 2010