Contraintes d'unicité : ADDPFCST *PRIKEY

BoTTom | 
             PGM
             ADDPFCST   FILE(AF4SRCT/CLIENTP1) TYPE(*PRIKEY) +
                          KEY(NOCLI) CST(LE_CLIENT_DOIT_ETRE_UNIQUE)
             ADDPFCST   FILE(AF4SRCT/CDEENTP1) TYPE(*PRIKEY) +
                          KEY(NOCDE) CST(LA_COMMANDE_DOIT_ETRE_UNIQUE)
             ADDPFCST   FILE(AF4SRCT/CDEDETP1) TYPE(*PRIKEY) +
                          KEY(NOCDE NOLIG) +
                          CST(LA_LIGNE_DE_COMMANDE_DOIT_ETRE_UNIQUE)
             ADDPFCST   FILE(AF4SRCT/ARTICLP1) TYPE(*PRIKEY) +
                          KEY(CODART) CST(ARTICLE_DOIT_ETRE_UNIQUE)
             ENDPGM




©AF400