CICS Commands and Parameters Coverage

CICS Commands and Parameters Coverage

•	Supported CICS Commands

•	Supported BMS Macros

Supported CICS Commands

The following table describes the CICS commands and parameters that are supported by Oracle Tuxedo Application Runtime for CICS.

Note:

Commands and parameters not listed in the table below are not supported.

CICS Command and Parameter Support Table

 

Table 9‑1 CICS Command

CICS domain	CICS command	Command parameter	Status
ABEND	ABEND	ABCODE (name)	Recognized
		CANCEL	Recognized
APPC Mapped conversation	ALLOCATE (APPC)	SYSID (systemname)
		NOQUEUE
		STATE
	CONNECT PROCESS	CONVID (name)
		PROCNAME (data-area)
		PROCLENGTH (data-value)
		SYNCLEVEL
		STATE
		SYNCLEVEL (data-value)	Partial Support only SYNCLEVEL 0
	CONVERSE (APPC)	CONVID (name)
		FROM (data-area)
		FROMLENGTH (data-value)
		FROMFLENGTH (data-value)
		INTO (data-area)
		TOFLENGTH (data-area)
		TOLENGTH (data-area)
		SYNCLEVEL	Partial Support only SYNCLEVEL 0
BMS	RECEIVE MAP	MAP (name)
		MAPSET (name)
		INTO (data-area)
		SET (ptr-ref)
		TERMINAL
		FROM (data-area)
		LENGTH (data-value)
BMS	SEND MAP	MAP (name)
		MAPSET (name)
		FROM (data-area)
		LENGTH (data-value)
		DATAONLY
		MAPONLY
		CURSOR (data-value)
		ERASE
		DEFAULT
		FREEKB
		ALARM
		FRSET
		ACCUM
		TERMINAL
		NOFLUSH
	PURGE MESSAGE
BMS	SEND CONTROL	ERASE
		DEFAULT
		ERASEAUP
		CURSOR (data-value)
		FREEKB
		ALARM
		FRSET
		ACCUM
		TERMINAL
BMS	SEND PAGE	RELEASE
		TRANSID (name)
		RETAIN
		TRAILER (data-area)
	SEND TEXT	FROM (data-area)
		LENGTH (data-value)
		CURSOR (data-value)
		ERASE
		FREEKB
		ALARM
		TERMINAL
		HEADER (data-area)
		TRAILER (data-area)
		JUSTIFY (data-value)
		ACCUM
		WAIT
Terminal Control	SEND	FROM (data-area)
		LENGTH (data-value)
		FLENGTH (data-value)
		ERASE
		CTLCHAR (data-value)
	RECEIVE	LENGTH (data-value)
		FLENGTH (data-value)
		INTO (data-area)
		SET (ptr-ref)
		MAXLENGTH (data-value)
		MAXFLENGTH (data-value)
		BUFFER
		NOTRUNCATE
Built-in functions	BIF DEEDIT	FIELD (data-area)
		LENGTH (data-value)
Environmental services	ADDRESS	CWA (ptr-ref)
		TCTUA (ptr-ref)
		TWA (ptr-ref)
		EIB (ptr-ref)
	ADDRESS SET	SET
		USING
	ASSIGN	ABCODE (data-area)	Recognized
		NETNAME (data-area)	Recognized
		APPLID (data-area)
		OPID (data-area)
		CWALENG (data-area)
		PROGRAM (data-area)
		STARTCODE (data-area)
		SYSID (data-area)
		TCTUALENG (data-area)
		TERMCODE (data-area)	Recognized
		TWALENG (data-area)
		USERID (data-area)
		USERNAME (data-area)	Recognized
FILES	RESETBR	FILE
		DATASET
		RIDFLD
		KEYLENGTH GTEQ EQUAL
		GTEQ
		EQUAL
	UNLOCK	FILE
		DATASET
		TOKEN
File control	DELETE	FILE (filename)
		DATASET(filename)
		RIDFLD (data-area)
		KEYLENGTH (data-value)
		GENERIC	Recognized
		NUMREC (data-area)	Recognized
		SYSID (systemname)	Recognized
	ENDBR	FILE (filename)
		DATASET(filename)
		REQID (data-value)	Recognized
		SYSID (systemname)	Recognized
File control	READ	FILE (filename)
		DATASET(filename)
		UPDATE	Recognized
		INTO (data-area)
		SYSID (systemname)	Recognized
		LENGTH (data-area)
		SET (ptr-ref)
		RIDFLD (data-area)
		KEYLENGTH (data-value)
		RBA	Recognized
		RRN	Recognized
		EQUAL
		GTEQ
File control	READNEXT	FILE (filename)
		DATASET(filename)
		INTO (data-area)
		SET (ptr-ref)
		RIDFLD (data-area)
		KEYLENGTH (data-value)
		SYSID (systemname)	Recognized
		LENGTH (data-area)
		RBA	Recognized
		RRN	Recognized
File control	READPREV	FILE (filename)
		DATASET(filename)
		INTO (data-area)
		SET (ptr-ref)
		RIDFLD (data-area)
		KEYLENGTH (data-value)
		SYSID (systemname)	Recognized
		LENGTH (data-area)
		RBA	Recognized
		RRN	Recognized
	REWRITE	FILE (filename)
		DATASET(filename)
		FROM (data-area)
		SYSID (systemname)	Recognized
		LENGTH (data-area)
File control	STARTBR	FILE (filename)
		DATASET(filename)
		RIDFLD (data-area)
		KEYLENGTH(data-value)
		GENERIC	Recognized
		REQID (data-value)	Recognized
		SYSID (systemname)	Recognized
		RBA	Recognized
		RRN	Recognized
		GTEQ
		EQUAL
	WRITE	FILE (filename)
		DATASET(filename)
		FROM (data-area)
		RIDFLD (data-area)
		KEYLENGTH(data-value)
		SYSID (systemname)	Recognized
		LENGTH(data-area)
		RBA	Recognized
		RRN	Recognized
Interval control	ASKTIME	ABSTIME (data-area)
Interval control	FORMATTIME	ABSTIME (data-area)
		DATE(data-area)
		FULLDATE(data-area)
		DATEFORM(data-area)
		DATESEP (data-value)
		DAYCOUNT(data-area)
		DAYOFMONTH (data-area)
		DAYOFWEEK (data-area)
		DDMMYY (data-area)
		DDMMYYYY(data-area)
		MMDDYY (data-area)
		MMDDYYYY (data-area)
		MONTHOFYEAR (data-area)
		TIME (data-area)
		TIMESEP (data-value)
		YEAR (data-area)
		YYDDD (data-area)
		YYDDMM (data-area)
		YYMMDD(data-area)
		YYYYDDD(data-area)
		YYYYDDMM (data-area)
		YYYYMMDD (data-area)
	CANCEL	REQID (name)
Interval control	DELAY	INTERVAL (hhmmss)
		SECONDS (data-value)
		REQID (name)
		INTERVAL
		TIME
		FOR: HOUR MINUTES SECONDS
	RETRIEVE	INTO (data-area)
		SET (ptr-ref)
		LENGTH (data-area)
		RTRANSID
		RTERMID
		QUEUE
	START	TRANSID (name)
		INTERVAL (hhmmss)
		FROM (data-area)
		LENGTH (data-value)
		TERMID (name)	Recognized
		QUEUE
		USERID (data-value) The security stub is called with USERID and TRANSID.	Partial
Interval control	START	TIME (hhmmss) AT AFTER HOURS (data-value) MINUTES (data-value) SECONDES (data-value) FROM (data-area)
		PROTECT
		RTERMID
		RTRANSID
		SYSID	(In M3_L3).
Program control	LINK	PROGRAM (name)
		COMMAREA (data-area)
		SYSID (systemname)
		LENGTH (data-value)
	RETURN	TRANSID (name)
		IMMEDIATE
		COMMAREA (data-area)
		LENGTH (data-value)
Program control	XCTL	PROGRAM (name)
		COMMAREA (data-area)
		LENGTH (data-value)
Syncpoint	SYNCPOINT
	SYNCPOINT ROLLBACK
System's programmer's function	INQUIRE TRANSACTION	INQUIRE TRANSACTION (datavalue)
		STATUS (cvda)
	INQUIRE TRANCLASS	INQUIRE TRANSACTION (datavalue)	MAXACTIVE: The following parameters are not applicable in CICS Runtime environment: • ACTIVE • PURGETHRESH • QUEUED.
		STATUS (cvda)
Task control	DEQ	RESOURCE (data-area)	Mandatory
		LENGTH (data-value)	Mandatory, only the enqueues and dequeues on data values are supported, not the enqueues on address.
		UOW
		TASK
	ENQ	RESOURCE (data-area)	Mandatory
		LENGTH (data-value)	Mandatory, only the enqueues and dequeues on data values are supported, not the enqueues on address.
		NOSUSPEND
		UOW
		TASK
Temporary storage	DELETEQ TS	QUEUE (name)
		QNAME(name)
		SYSID (systemname)	Recognized
Temporary storage	READQ TS	QUEUE (name)
		QNAME(name)
		INTO (data-area)
		SET (ptr-ref)
		LENGTH (data-area)
		NUMITEMS (data-area)
		NEXT
		ITEM (data-value)
		SYSID (systemname)	Recognized
	WRITEQ TS	QUEUE (name)
		QNAME(name)
		FROM (data-area)
		SET (ptr-ref)
		LENGTH (data-value)
		NUMITEMS (data-area)
		ITEM (data-value)
		REWRITE
		SYSID (systemname)	Recognized
		AUXILIARY
		MAIN
		NOSUSPEND	Recognized
Transient data	READQ TD	QUEUE (name)
		INTO (data-area)
		LENGTH (data-area)
	WRITEQ TD	QUEUE (name)
		FROM (data-area)
		LENGTH (data-value)
		SYSID (systemname)
	DELETEQ TD	QUEUE (name)
		SYSID (systemname)
Storage Control	GETMAIN		We will not support the SHARED memory allocation. Note:   NOSUSPEND will be implicit.
	FREEMAIN	DATA
		DATAPOINTER
Console	WRITE OPERATOR		We provide a stub function. This function can be replaced by the integration team for project needs.

Recognized parameters are processed by the pre-processor and have no effect on the behavior of CICS Runtime.

External Interface for Write Operator

The "WRITE OPERATOR" function calls a "stub" named ExternWriteOperator.

ExternWriteOperator receives all parameters of the WRITE OPERATOR and simply returns zero in the return code and nothing else.

It can be replaced by a customer function that respects the interface described below.

The WRITE OPERATOR passes the following parameters and expects a return code in signed int format.

Listing 9‑1 WRITE OPERATOR Parameters

TEXT pic x(1024).

TEXTLENGTH PIC S9(9) COMP-5.

ROUTECODES pic x(1024).

NUMROUTES PIC S9(9) COMP-5.

ACTION PIC X(2).

REPLY pic x(1024).

MAXLENGTH PIC S9(9) COMP-5.

REPLYLENGTH PIC S9(9) COMP-5.

TIMEOUT PIC S9(9) COMP-5.

 

S9(9) COMP-5 is equivalent to a signed int.

The parameters REPLY and REPLYLENGTH may be returned to the WRITE OPERATOR function if requested, that is to say, if MAXLENGTH > zero.

Example COBOl Code for ExternWriteOperator

Listing 9‑2 Example ExternWriteOperator.cbl Code

IDENTIFICATION DIVISION.

PROGRAM-ID. "ExternWriteOperator".

DATA DIVISION.

WORKING-STORAGE SECTION.

copy "ctypes".

01 ret-code usage int.

LINKAGE SECTION.

01 LK-TEXT pic x(1024).

01 LK-TEXTLENGTH PIC S9(9) COMP-5.

01 LK-ROUTECODES pic x(1024).

01 LK-NUMROUTES PIC S9(9) COMP-5.

01 LK-ACTION PIC X(2).

01 LK-REPLY pic x(1024).

01 LK-MAXLENGTH PIC S9(9) COMP-5.

01 LK-REPLYLENGTH PIC S9(9) COMP-5.

01 LK-TIMEOUT PIC S9(9) COMP-5.

 

PROCEDURE DIVISION USING LK-TEXT LK-TEXTLENGTH LK-ROUTECODES

LK-NUMROUTES LK-ACTION LK-REPLY

LK-MAXLENGTH LK-REPLYLENGTH LK-TIMEOUT.

 

 

* * display "ExternWriteOperator : LK-TEXT =<" LK-TEXT ">"

* * display "ExternWriteOperator : LK-TEXTLENGTH =<" LK-TEXTLENGTH ">"

* * display "ExternWriteOperator : LK-ROUTECODES =<" LK-ROUTECODES ">"

* * display "ExternWriteOperator : LK-NUMROUTES =<" LK-NUMROUTES ">"

* * display "ExternWriteOperator : LK-ACTION =<" LK-ACTION ">"

* * display "ExternWriteOperator : LK-REPLY =<" LK-REPLY ">"

* * display "ExternWriteOperator : LK-MAXLENGTH =<" LK-MAXLENGTH ">"

* * display "ExternWriteOperator : LK-REPLYLENGTH =<" LK-REPLYLENGTH ">"

* * display "ExternWriteOperator : LK-TIMEOUT =<" LK-TIMEOUT ">"

 

* * in case of REPLY

if LK-MAXLENGTH > zero

* * move "..............." to LK-REPLY

* * move 15 to LK-REPLYLENGTH

end-if

 

move zero to ret-code

* * return code

* * 0 = OK

* * -1 = operation failed (INVREC wil returned to the user program)

* * -9 = time out ocurred before the operators's reply was received

 

 

GOBACK returning ret-code.

External Interface for Query Security

The "QUERY SECURITY" function calls a "stub" named ExternQuerySecurity.

The delivered ExternQuerySecurity stub receives all parameters of the QUERY SECURITY, it always allows access to the resources and returns zero in the return code. It can be replaced by a customer function that respects the interface described below.

The QUERY SECURITY passes the following parameters:

Listing 9‑3 Query Security Extern Inteface

restype pic x(7).

restype-data-value pic x(12).

resclass pic x(8).

resclass-data-value pic x(8).

residlength pic x(11).

residlength-data-value pic s9(8) comp-5.

resid pic x(5).

resid-data-value pic x(246).

logmessage pic x(10).

logmessage-cvda pic s9(8) comp-5.

read pic x(10).

read-cvda pic s9(8) comp-5.

update pic x(10).

update-cvda pic s9(8) comp-5.

control pic x(10).

control-cvda pic s9(8) comp-5.

alter pic x(10).

alter-cvda pic s9(8) comp-5.

resp pic s9(8) comp-5.

resp2 pic s9(8) comp-5.

All parameters are passed to ExternQuerySecurity, only the following parameters are expected in return:

read-cvda pic s9(8) comp-5.

update-cvda pic s9(8) comp-5.

control-cvda pic s9(8) comp-5.

alter-cvda pic s9(8) comp-5.

resp pic s9(8) comp-5.

resp2 pic s9(8) comp-5.

If "read" is fulfilled with "READ", read-cvda is expected.

If "update" is fulfilled with "READ", update-cvda is expected.

If "control" is fulfilled with "READ", control-cvda is expected.

If "alter" is fulfilled with "READ", alter-cvda is expected.

"resp" and "resp2" are always expected.

Note:

Each interface field is ended by a binary zero, it easier if you want write the "ExternQuerySecurity" in C.

The cvda values for "read" are:

READABLE 35.

NOTREADABLE 36.

The cvda values for "update" are:

UPDATABLE 37.

NOTUPDATABLE 38.

The cvda values for "control" are:

CTRLABLE 56.

NOTCTRLABLE 57.

The cvda values for "alter" are:

ALTERABLE 52.

NOTALTERABLE 53.

For more details, see cvda values in IBM documentation.

S9(9) COMP-5 is equivalent to a signed int.

Example COBOl Code for ExternQuerySecurity

Listing 9‑4 Example COBOL Code for ExternQuerySecurity

IDENTIFICATION DIVISION.

PROGRAM-ID. "ExternQuerySecurity".

DATA DIVISION.

WORKING-STORAGE SECTION.

copy "ctypes".

01 ret-code usage int.

01 cvda-logmessage pic s9(8) comp-5.

88 LOG value 54.

88 NOLOG value 55.

01 cvda-read pic s9(8) comp-5.

88 READABLE value 35.

88 NOTREADABLE value 36.

01 cvda-update pic s9(8) comp-5.

88 UPDATABLE value 37.

88 NOTUPDATABLE value 38.

01 cvda-control pic s9(8) comp-5.

88 CTRLABLE value 56.

88 NOTCTRLABLE value 57.

01 cvda-alter pic s9(8) comp-5.

88 ALTERABLE value 52.

88 NOTALTERABLE value 53.

LINKAGE SECTION.

01 LK-restype pic x(7).

01 LK-restype-data-value pic x(12).

01 LK-resclass pic x(8).

01 LK-resclass-data-value pic x(8).

01 LK-residlength pic x(11).

01 LK-residlength-data-value pic s9(8) comp-5.

01 LK-resid pic x(5).

01 LK-resid-data-value pic x(246).

01 LK-logmessage pic x(10).

01 LK-logmessage-cvda pic s9(8) comp-5.

01 LK-read pic x(10).

01 LK-read-cvda pic s9(8) comp-5.

01 LK-update pic x(10).

01 LK-update-cvda pic s9(8) comp-5.

01 LK-control pic x(10).

01 LK-control-cvda pic s9(8) comp-5.

01 LK-alter pic x(10).

01 LK-alter-cvda pic s9(8) comp-5.

01 LK-resp pic s9(8) comp-5.

01 LK-resp2 pic s9(8) comp-5.

PROCEDURE DIVISION USING LK-restype

LK-restype-data-value

LK-resclass

LK-resclass-data-value

LK-residlength

LK-residlength-data-value

LK-resid

LK-resid-data-value

LK-logmessage

LK-logmessage-cvda

LK-read

LK-read-cvda

LK-update

LK-update-cvda

LK-control

LK-control-cvda

LK-alter

LK-alter-cvda

LK-resp

LK-resp2

.

* * display "ExternQuerySecurity : LK-restype =" LK-restype

* * display "ExternQuerySecurity : LK-restype-data-value =" LK-restype-data-value

* * display "ExternQuerySecurity : LK-resclass =" LK-resclass

* * display "ExternQuerySecurity : LK-resclass-data-value =" LK-resclass-data-value

* * display "ExternQuerySecurity : LK-residlength =" LK-residlength

* * display "ExternQuerySecurity : LK-residlength-data-value=" LK-residlength-data-value

* * display "ExternQuerySecurity : LK-resid =" LK-resid

* * display "ExternQuerySecurity : LK-resid-data-value =" LK-resid-data-value

* * display "ExternQuerySecurity : LK-logmessage =" LK-logmessage

* * display "ExternQuerySecurity : LK-logmessage-cvda =" LK-logmessage-cvda

* * display "ExternQuerySecurity : LK-read =" LK-read

* * display "ExternQuerySecurity : LK-read-cvda =" LK-read-cvda

* * display "ExternQuerySecurity : LK-update =" LK-update

* * display "ExternQuerySecurity : LK-update-cvda =" LK-update-cvda

* * display "ExternQuerySecurity : LK-control =" LK-control

* * display "ExternQuerySecurity : LK-control-cvda =" LK-control-cvda

* * display "ExternQuerySecurity : LK-alter =" LK-alter

* * display "ExternQuerySecurity : LK-alter-cvda =" LK-alter-cvda

* * display "ExternQuerySecurity : LK-resp =" LK-resp

* * display "ExternQuerySecurity : LK-resp2 =" LK-resp2

 

 

if address of LK-read not = null

if LK-read = "READ"

set READABLE to true

move cvda-read to LK-read-cvda

end-if

end-if

if address of LK-update not = null

if LK-update = "UPDATE"

set UPDATABLE to true

move cvda-update to LK-update-cvda

end-if

end-if

if address of LK-control not = null

if LK-control = "CONTROL"

set CTRLABLE to true

move cvda-control to LK-control-cvda

end-if

end-if

if address of LK-alter not = null

if LK-alter = "ALTER"

set ALTERABLE to true

move cvda-alter to LK-alter-cvda

end-if

end-if

 

move zero to LK-resp LK-resp2

 

move zero to ret-code

* * return code

* * 0 = OK

* * -1 = operation failed (INVREC wil returned to the user program)

 

GOBACK returning ret-code.

 

 

Supported BMS Macros

The following describes the BMS Macros that are supported by Oracle Tuxedo Application Runtime for CICS.

•	Mapset DFHMSD

•	Map DFHMDI

•	Field DFHMDF

Mapset DFHMSD

TYPE=(Choose only one from list)

SYSPARM (recognized)

DSECT (recognized)

MAP (recognized)

FINAL

Note:

recognized means function is not achieved, but there are no errors when doing MAPGEN compilation.

MODE=(Choose only one from list)

OUT

IN

INOUT

LANG=(Choose only one from list)

COBOL

PLI

C

STORAGE=AUTO

BASE=NAME

CTRL=(Choose any combination from the list, separate with a comma)

FREEKB

ALARM

FRSET

EXTATT=(Choose only one from list)

NO

MAPONLY

YES

COLOR=(Choose only one from list)

DEFAULT

Color

HILIGH=(Choose only one from list)

OFF

BLINK

REVERSE

UNDERLINE

PS=(Choose only one from list)

BASE

Psid

TERM=3270-2

MAPATTS=(Choose any combination from list, separate with a comma)

COLOR

HILIGHT

OUTLINE

PS

SOSI

DSATTS=(Choose any combination from list, separate with a comma)

COLOR

HILIGHT

OUTLINE

PS

SOSI

OUTLINE=(Choose only one from list)

BOX

LEFT

LEFT,RIGHT

LEFT,OVER

LEFT,UNDER

LEFT,RIGHT,OVER

LEFT,RIGHT,UNDER

LEFT,RIGHT,OVER,UNDER

RIGHT

RIGHT,OVER

RIGHT,UNDER

RIGHT,OVER,UNDER

OVER

OVER,UNDER

UNDER

SOSI=(Choose only one from list)

YES

NO

Map DFHMDI

SIZE=(line,column)

CTRL=(Choose any combination from the list, separate with a comma)

FREEKB

ALARM

FRSET

EXTATT=(Choose only one from list)

NO

MAPONLY

YES

COLOR=(Choose only one from list)

DEFAULT

Color

HILIGHT=(Choose only one from list)

OFF

BLINK

REVERSE

UNDERLINE

PS=(Choose only one from list)

BASE

psid

MAPATTS=(Choose any combination from list, separate with a comma)

COLOR

HILIGHT

OUTLINE

PS

SOSI

DSATTS=(Choose any combination from list, separate with a comma)

COLOR

HILIGHT

OUTLINE

PS

SOSI

OUTLINE=(Choose only one from list)

BOX

LEFT

LEFT,RIGHT

LEFT,OVER

LEFT,UNDER

LEFT,RIGHT,OVER

LEFT,RIGHT,UNDER

LEFT,RIGHT,OVER,UNDER

RIGHT

RIGHT,OVER

RIGHT,UNDER

RIGHT,OVER,UNDER

OVER

OVER,UNDER

UNDER

SOSI=(Choose only one from list)

YES

NO

COLUMN=(Choose only one from list)

SAME

Number

NEXT

LINE=(Choose only one from list)

SAME

Number

NEXT

JUSTIFY=(Choose only one from list)

LEFT

LEFT,FIRST

LEFT,LAST

RIGHT

RIGHT,FIRST

RIGHT,LAST

BOTTOM

HEADER=YES

TRAILER=YES

Field DFHMDF

POS=(Choose only one from list)

Number

Line,Column

LENGTH=number

JUSTIFY=(Choose only one from list)

LEFT

LEFT,BLANK

LEFT,ZERO

RIGHT

RIGHT,BLANK

RIGHT,ZERO

INITIAL='char-data'

XINIT='hex-data'

GINIT='DBCS-characters'

ATTRB=(parameter group A, parameter B, parameter group C)

Choose exactly one from parameter group A:

ASKIP

PROT

UNPROT

UNPROT,NUM

Choose zero or one from parameter group B:

BRT

NORM

DRK

Choose any combination (0 to all) from parameter group C; this group is allowed only if parameter from gourp B is also used:

IC

FSET

COLOR=(Choose only one from list)

DEFAULT

Color

PS=(Choose only one from list)

BASE

Psid

HILIGHT=(Choose only one from list)

OFF

BLINK

REVERSE

UNDERLINE

GRPNAME=group-name

OCCURS=number

PICIN='value'

PICOUT='value'

OUTLINE=(Choose only one from list)

BOX

LEFT

LEFT,RIGHT

LEFT,OVER

LEFT,UNDER

LEFT,RIGHT,OVER

LEFT,RIGHT,UNDER

LEFT,RIGHT,OVER,UNDER

RIGHT

RIGHT,OVER

RIGHT,UNDER

RIGHT,OVER,UNDER

OVER

OVER,UNDER

UNDER

SOSI=(Choose only one from list)

YES

NO