CIC-GETMAIN

Obtain and initialize main storage.
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)