Programme de Service (3)

(membre /copy utilisé dans le PS et dans les pgm utilisateurs)

SP010K

Ddt3v1            pr             8 0

D aaaa                          4 0 value

D mm                            2 0 value

D jj                            2 0 value

D v                             1    value

Ddt3v1d           pr              d

D aaaa                          4 0 value

D mm                            2 0 value

D jj                            2 0 value

---

WRKBNDDIRE BNDDIR(MILAN/MILAN) (Le répertoire de liage)

SP010          *SRVPGM      *LIBL

---

(Le langage de liage, pratique pour la compile. 

Permet de gérer finement - comme ici ! - les versions précédentes du PS, 

notion de signatures et de level check...)

QSRVSRC/SP010

            STRPGMEXP PGMLVL(*CURRENT) LVLCHK(*YES) +

              SIGNATURE(*GEN) /* Liage pour SP010 */

  EXPORT     SYMBOL(DT3V1) /* Pseudo date : trois zones +

              en entrée, une en sortie */                    

  EXPORT     SYMBOL(DT3V1D) /* Trois zones en entrée, une +

              vraie date en sortie */

ENDPGMEXP

 STRPGMEXP PGMLVL(*PRV) LVLCHK(*YES) SIGNATURE(*GEN) /* +

              Liage pour SP010 OLD */

  EXPORT     SYMBOL(DT3V1) /* Pseudo date : trois zones +

              en entrée, une en sortie */

  ENDPGMEXP