gtps1m2pSystem Macros

FNSPC-Find a Special Record

Use this system macro to read a single non-TPF-type record no longer than 4095 bytes from any cylinder. The control program (CP) obtains a 4095-byte block of storage and the address of the block is placed in the core block reference word (CBRW).

The FNSPC macro causes virtual file access (VFA) to be searched for the record. If the record is in VFA, it is forced out of VFA before the record is read from the specified DASD.

Required Authorizations
Key0 Restricted System Common Storage

X

Format




Notes:

  1. data level

label
A symbolic name can be assigned to the macro statement.

datalevel
Specifies the entry control block (ECB) data level (D0-DF) that will be used by the service routine.

DECB=(reg)|label1
The label or general register (R0-R7) containing the address of the data event control block (DECB), which contains the file address of the record that will be read.

E
This parameter is required. The file address must be in extended mode and contained in the extended file address word (FAWX) defined by datalevel or DECB.

Entry Requirements

Return Conditions

Programming Considerations

Examples

The input to retrieve the SI record type, with a code check of X'01' and file address of M- 20, C- 02, H- 04, R- 01 follows in this example.

CE1CR1-   ........ ..01....      (no attached block)
CE1FA1-   E2C901..               (record type, code check)
CE1FM1-   0014....               (module number-mm)
CE1FX1-   00000002 000401..      (bbcchhr.)
 
              FNSPC         D1,E

The input to retrieve the SI record type with a code check of X'01' and file address of M- 20, C- 02, H- 04, R- 01 for a DECB follows in this example.

  IDECCT0-  ........ ..01....  (no attached block)
  IDE1RID-  E2C901..           (record ID, record code check)
  IDECFM0-  0014....           (module number-mm)
  IDDECFX0- 00000002 000401..  (bbcchhr.)
 
  FNSPC DECB=(R7),,E