#GETSCR Example

The example of the #GETSCR statement shown below performs the following functions:

Specifies location SREC5 as the area in program variable storage to receive the requested scratch record.
Specifies the length of area SREC5 in user-defined field SCRLENG.
Uses the default location to build the parameter list, SYSPLIST.
Specifies the literal SCR3 as the ID of the scratch area associated with the record to be retrieved.
Specifies the first record in the scratch area as the record to be retrieved.
Specifies that the record will be deleted from the scratch area after it has been passed to the requesting program.
Specifies that register 4 will receive the system-assigned ID of the retrieved scratch record.
Specifies that this request is conditional. If the scratch record id cannot be found control will be returned to the routine labeled NORECRTN.
```
#GETSCR RECORD=SREC5,RECLEN=SCRLENG,SAID='SCR3',LOC=FIRST, _
DISP=DELETE,COND=NRID,NRIDXIT=NORECRTN
```