Programme de Service (4)

SP010T 

  
Pgm utilisant les fonctions hébergées
dans le programme de service.
 

Notez,
une fois terminée
la mise en place précédemment décrite,

la simplicité d'utilisation
des fonctions ainsi mutualisées !

Hdftactgrp(*no)

Hactgrp('MILAN')

Hbnddir('MILAN')

Fsp010e cf e workstn

* Les prototypes

/copy sources,sp010k

Dboucle         s      n

/free

dou boucle;

exfmt ecran01;

if *inkc;

exsr srfin;

endif;

amj8w = dt3v1(aaaaw:mmw:jjw:vw);

datew = dt3v1d(aaaaw:mmw:jjw);

enddo;

// S o u s - p r o g r a m m e s

begsr srfin;

*inlr =*on;

return;

endsr;

/end-free



Voir aussi :  Sous-Procédures & Fonctions

Bons dév sur "IBM i" & avec Attn !