Problem:

The first IMS call to the root segment is generating a GH call, and it shouldn't.

There is no HOLD parameter on the DB-OBTAIN.

Resolution:

The rule about generating hold or nohold on the database call is

this: There is a symbol in APSDBDC cntl member % &IM-HOLD-DEFAULT =

"NOHOLD" This will cause the database call be be generated without

the hold. However, if user changes the value of this to be "HOLD",

then the hold gets generated. If the value is set to "PROCOPT",

then a hold gets generated providing the processing options for

that record permit an update

In this case, the PSB had update capability, although the program doesn't

need it. After modifying the CNTL(APSDBDC) parm to NOHOLD,

the GH calls went away.