Examples of defining coupling facility structures

The following JCL shows how to define two structures in separate coupling facilities.

//UPDATE EXEC PGM=IXCL2FDA
//SYSPRINT DD SYSOUT=A
//*
//*  THE FOLLOWING SYSIN WILL UPDATE THE POLICY DATA IN THE COUPLE
//*  DATASET FOR CFRM (COUPLING FACILITY RESOURCE MANAGEMENT)
//*
//SYSIN  DD *
 UPDATE DSN(IMS.DSHR.PRIME.FUNC) VOLSER(DSHR03)

  DEFINE POLICY(POLICY1)

    DEFINE CF(FACIL01)
           ND(123456)
           SIDE(0)
           ID(01)
           DUMPSPACE(2000)

    DEFINE CF(FACIL02)
           ND(123456)
           SIDE(1)
           ID(02)
           DUMPSPACE(2000)

    DEFINE STR(LIST01)
           SIZE(1000)
           PREFLIST(FACIL01,FACIL02)
           EXCLLIST(CACHE01)

    DEFINE STR(CACHE01)
           SIZE(1000)
           PREFLIST(FACIL02,FACIL01)
           EXCLLIST(LIST01)
/*
 

In the example, the programmer defined one list structure (LIST01) and one cache structure (CACHE01).