Return Codes; Example; Notes - IBM SC34-5764-01 Manual

Commands

Return Codes

0 Normal return
2102 Invalid operand
2121 Invalid structure definition
2122 Invalid variable structure definition
2123 Field name not found
2125 Failure processing GETVAR request
2126 Invalid numeric input
2127 RFS read error
2128 Invalid offset
2129 Invalid length value

Example

var1 = '' /* set REXX variable VAR1 to null */
struct1 = 'flda 4 fldb 2 fldc 3 fldd 8 flde 5'
'COPYS2R WORKANC VAR1 STRUCT1 FLDC'
This example copies three bytes of data from positions 7 through 9 of the earlier GETMAINed storage
area anchored by the fullword address in REXX variable WORKANC, and copies it to REXX variable
VAR1.

Notes

1. Anchor addresses are not limited to being set by the GETMAIN command. For example, a COPYS2R
can be used to copy a fullword address of a GETMAINed area to a REXX variable that is used as the
anchor for a subsequent COPYS2R or COPYR2S.
2. There can be multiple structure (field) definitions for a GETMAINed area; they can overlap, be nested,
and used to redefine fields.
3. Anchor addresses do not need to point to the beginning of a GETMAINed area. It is important,
however, that anchor addresses are within a GETMAINed area that you own, and that any operation
on them does not exceed their boundaries.
330
CICS TS for VSE/ESA: REXX Guide