9 lines
383 B
Plaintext
9 lines
383 B
Plaintext
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
|