Mark the end of an AGI scope. The given picture is made the current one. If the argument is a negative number then the picture current when the matching AGI_BEGIN was called is made current. All identifiers allocated within this begin-end block are annulled. If the last active identifier is annulled the database is closed.

CALL AGI_END( PICID, STATUS )

PICID = INTEGER (Given)

STATUS = INTEGER (Given and Returned)