CIC-GETMAIN

Restriction: This topic applies only when the AppMaster Builder AddPack has been installed, and applies only to Windows platforms.

Target:

CICS

Syntax:

CIC-GETMAIN SET(linkdataname)
... LENGTH(value)|FLENGTH(value)
... [INITIMG(value)]
... [ERROR(errorpara)]

Parameter:

ERROR (`errorpara`)	User-defined error routine to perform when an abnormal condition occurs.
INITIMG (`value`)	Initialize storage area. `Value` is 1 byte; can be a literal or COBOL data name.
FLENGTH (`value`)	Specify length as a full word value.
LENGTH (`value`)	Maximum length of data; can be a literal (LINK or XCTL only) or COBOL data name defined as S9(04)COMP. Can also be a partial length (XCTL only).
SET(`link-dataname`)	01-level Linkage Section data area identical to the `linkdataname` in the associated TP-LINKAGE call.

Example:

Obtain an area of main storage of the length specified in the Working-Storage data area (WS-LENGTH). Specify initialization value (WS-BLANK) for the acquired main storage.

CIC-GETMAIN SET(STORAGE-AREA)
... LENGTH(WS-LENGTH)
... INITIMG(WS-BLANK)
... ERROR(ERROR-PARA)