Explain OBTAIN CALC USERREC ALLOW ('0326') in IDMS

key2move · New User Joined: 30 Oct 2006 Posts: 7

Can anyone explain the command
OBTAIN CALC USERREC ALLOW ('0326') in ADSO/IDMS

Rupa.P.V · New User Joined: 04 Jul 2006 Posts: 30

That means
if the particular record is not found in database and u have statement like
PERFORM IDMS-STATUS then the program will not abend with 0326'.
If anything otherthan record not found occurs like dead lock etc then the program abends.

But if u dont code ALLOW('0326')
and use PERFOM IDMS-STATUS then the program will abend when the record is not found or whenever the ERROR-STATUS is not = 0.....

Hope i am clear to u.

vijayakumar.yellala · New User Joined: 19 Apr 2006 Posts: 47 Location: Chennai

Hi, if the record not found in the Data base, it has to execute, its doesnt have to Abend, Am I right?

Insted of this, you can write a like this also right...

OBTAIN CALC USERREC
if DB-REC-NOT-FOUND
CONTINUE.

Rupa.P.V · New User Joined: 04 Jul 2006 Posts: 30

Ya we can code in the way also....
Because we just want to skip when the record is not found in the database...We can just have a display statement stating that particular record is not
found...

Thanks
Rupa....