> 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 cerner la maturité digitale de votre entreprise ?

Comment cerner la maturité digitale de votre entreprise ?

Conçu pour les directions IT et Métiers, ce guide vous permettra d'évaluer précisément vos processus de communication client, d'identifier vos lacunes et points d'inflexion pour établir un plan d’actions capable de soutenir durablement votre évolution. Bénéficiez maintenant d'une feuille de route complète.

Tech - Par iTPro - Publié le 24 juin 2010