CRTBNDDIR
CRTBNDDIR
PGM
/* Create ADRVAL_BND binding directory in *CURLIB */
/* Change next statement if needed */
CRTBNDDIR BNDDIR(*CURLIB/ADRVAL_BND) TEXT('USADRVAL +
Service PGM')
ADDBNDDIRE BNDDIR(ADRVAL_BND) OBJ((USADRVAL *SRVPGM +
*DEFER))
ENDPGM