Intégrité référentielle : ADDPFCST *REFCST

BoTTom | 
             PGM
             ADDPFCST   FILE(AF4SRCT/CDEENTP1) TYPE(*REFCST) +
                          KEY(NOCLI) CST(LE_CLIENT_DOIT_EXISTER) +
                          PRNFILE(AF4SRCT/CLIENTP1) +
                          DLTRULE(*RESTRICT) UPDRULE(*RESTRICT)
             ADDPFCST   FILE(AF4SRCT/CDEDETP1) TYPE(*REFCST) +
                          KEY(NOCDE) CST(LA_COMMANDE_DOIT_EXISTER) +
                          PRNFILE(AF4SRCT/CDEENTP1) +
                          DLTRULE(*RESTRICT) UPDRULE(*RESTRICT)
             ADDPFCST   FILE(AF4SRCT/CDEDETP1) TYPE(*REFCST) +
                          KEY(CODART) +
                          CST(LE_CODE_ARTICLE_DOIT_EXISTER) +
                          PRNFILE(AF4SRCT/ARTICLP1) +
                          DLTRULE(*RESTRICT) UPDRULE(*RESTRICT)
             ENDPGM




©AF400