gtps1m2nSystem Macros

FLSPC-File a Special Record

Use this system macro to write a single non-TPF-type record that is no longer than 4095 bytes to any cylinder or from main storage to a disk module. The storage block at the specified entry control block (ECB) data level or data event control block (DECB) is not disassociated from the ECB.

The FLSPC 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 new data is written to the DASD.

Required Authorizations
Key0 Restricted System Common Storage

X

Format




Notes:

  1. symbol1

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

symbol1
Specifies the ECB data level (D0-DF) to be used by the service routine.

DECB=(Rx)|label1
The label or general register (R0-R7) containing the address of the DECB, which contains the file address of the record to be filed.

E
This parameter is required. The file address is in extended mode and contained in the extended file address word defined by symbol1 or the DECB parameter.

Entry Requirements

Return Conditions

Programming Considerations

Examples

The input to write record type SI, with a code check of X'01' and file address of M- 20, C- 02, H- 04, R- 09 from data level 1 follows in this example.

  CE1CR1-   00012480 0031041F      (attached block)
  CE1FA1-   E2C901..               (record type, code check)
  CE1FM1-   0014....               (module number-mm)
  CE1FX1-   00000002 000409..      (bbcchhr.)
 
                FLSPC         D1,E

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

  CE1CR1-   00012480 0031041F      (attached block)
  CE1FA1-   E2C901..               (record type, code check)
  CE1FM1-   0014....               (module number-mm)
  CE1FX1-   00000002 000409..      (bbcchhr.)
 
LABEL           FLSPC         D1,E

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

  IDECCT0- 00982000 0031041F      (attached block)
  IDECRID- E2C901..               (record ID, record code check)
  IDECFM0- 0014....               (module number-mm)
  IDECFX0- 00000002 000401..      (bbcchhr.)
 
  FLSPC DECB=(R7),,E