CA IDMS/DB Call Formats

CA IDMS/DB passes the IDBMSCOM array as argument 1.

Arguments marked with asterisks have default values.

Control Statements

Major Function Code	Database Statement (in COBOL DML)	(1) Calling Arguments (nn)	(2)	(3)	(4)	(5)

14	BIND RUN- UNIT	59	IDMS DB Communications Block*	subschema-name*
	BIND RUN-UNIT FOR subschema- name	59	IDMS DB Communications Block*	subschema-name
	BIND RUN-UNIT NODENAME nodename	59	IDMS DB Communications Block*	subschema-name*	subschema-control* OR subschema-lr-control*	nodename
	BIND RUN-UNIT FOR subschema-name NODENAME nodename	59	IDMS DB Communications Block*	subschema-name	subschema-control* OR subschema-lr-control*	nodename
	BIND RUN-UNIT FOR subschema-name DBNAME database-name	59	IDMS DB Communications Block*	subschema-name	subschema-control* OR subschema-lr-control*	nodename
	BIND RUN-UNIT NODENAME nodename DBNAME database-name	59	IDMS DB Communications Block*	subschema-name*	subschema-control* OR subschema-lr-control*	nodename
	BIND RUN-UNIT FOR subschema-name NODENAME nodename DBNAME database-name	59	IDMS DB Communications Block*	subschema-name	subschema-control* OR subschema-lr-control*	nodename
	BIND record-name	48	record-id	record-location*
	BIND record-name TO record-location	48	record-id	record-location
	BIND record-location WITH record-name	48	record-id	record-location
	BIND PROCEDURE FOR procedure-name TO procedure- control-location	73	procedure-name	procedure-control- location
09	READY	37
	READY area-name	37	area-name
	READY area-name USAGE-MODE IS RETRIEVAL	37	area-name
	READY area-name USAGE-MODE IS PROTECTED RETRIEVAL	39	area-name
	READY area-name USAGE-MODE IS EXCLUSIVE RETRIEVAL	40	area-name
	READY area-name USAGE-MODE IS UPDATE	36	area-name
	READY area-name USAGE-MODE IS PROTECTED UPDATE	38	area-name
	READY area-name USAGE-MODE IS EXCLUSIVE UPDATE	41	area-name
	READY USAGE-MODE IS ... **Choose function code from 36-41, as shown above	**
01	FINISH	02
18	COMMIT	66
	COMMIT ALL	95
19	ROLLBACK	67
	ROLLBACK CONTINUE	96
06	KEEP CURRENT	87
	KEEP EXCLUSIVE CURRENT	88
	KEEP CURRENT record-name	89	record-name
	KEEP EXCLUSIVE CURRENT record-name	90	record-name
	KEEP CURRENT WITHIN set-name	91	set-name
	KEEP EXCLUSIVE CURRENT WITHIN set-name	93	set-name
	KEEP CURRENT WITHIN area-name	93	area-name
	KEEP EXCLUSIVE CURRENT WITHIN area-name	94	area-name
16	IF set-name IS EMPTY ...	64	set-name
	IF set-name IS NOT EMPTY...	65	set-name
(Upon return to user run-unit, the Error Status indicator=' 0000' if set is empty;' 1601' if not empty.)
	IF set-name MEMBER ...	60	set-name
	IF NOT set-name MEMBER ...	62	set-name
(Upon return to user run-unit, the Error Status indicator = ' 0000' if the record(current of run unit) is linked into the specified set; ' 1601' if it is not a member.)