> Tech > Figure 2

Figure 2

Tech - Par iTPro - 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 gratuitement cette ressource

Comment sécuriser la Digital Workplace ?

Comment sécuriser la Digital Workplace ?

Avec le recours généralisé au télétravail, les entreprises ont ouvert davantage leur SI. En dépit des précautions prises, elles ont mécaniquement élargi leur surface d’exposition aux risques. Découvrez 5 axes à ne pas négliger dans ce Top 5 Sécurité du Télétravail.

Tech - Par iTPro - Publié le 24 juin 2010