The ACCEPT PAGE_INFO statement moves the page information for a given record to a specified location in program variable storage. Page information that is saved in this manner is available for subsequent direct access by using a FIND/OBTAIN DBKEY statement.
►►─ ACCEPT PAGE_INFO RECORD (record-name) INTO (page-info-location) ─────────►◄
Specifies the record whose page information will be placed in the specified location.
Specifies the name of the four-byte field that may be defined either as a group field or as a fullword field (PIC S9(8) COMP). Identifies the location in variable storage that contains page information for the specified record type. Upon successful completion of this statement, the first two bytes of the field contain the page group number and the last two bytes contain a db-key radix that may be used for interpreting dbkeys.
The following example retrieves the page information for the DEPARTMENT record.
01 W_PG_INFO. 03 W_GRP_NUM FIXED BINARY 15, 03 W_DBK_FORMAT FIXED BINARY 15, ACCEPT PAGE_INFO RECORD (DEPARTMENT) INTO (W_PG_INFO)
After completion of the ACCEPT PAGE_INFO statement, the ERROR-STATUS field in the IDMS communications block indicates the outcome of the operation:
The request has been serviced successfully.
The named record is not in the subschema. The program has probably invoked the wrong subschema.
|
Copyright © 2014 CA.
All rights reserved.
|
|