/*-------------------------------------------------------------------*/ /* */ /* Compile options: */ /* */ /* CrtCmd Cmd( CTLIDS ) */ /* Pgm( SEC101 ) */ /* SrcMbr( SEC101X ) */ /* HlpPnlGrp( SEC101H ) */ /* HlpId( *CMD ) */ /* */ /*-------------------------------------------------------------------*/ Cmd Prompt( 'Control IDS' ) Parm OPTION *Int4 + Dft( *STATUS ) + SpcVal(( *ACTIVATE 1 ) + ( *DEACTIVATE 2 ) + ( *RECYCLE 3 ) + ( *STATUS 4 )) + Rstd( *YES ) + Prompt( 'Option' )