1
! @(#)aprules.prg 19.1 (ES0-DMD) 02/25/03 14:17:50
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
6
! MIDAS procedure aprules.prg to implement APPLY/RULE
8
! M.Peron ESO - Garching 15 MAR 93
10
! use via CLASSIFY/IMAGE table indescr outcol outchar
12
! ---------------------------------------------------------------------
14
DEFINE/PARAM P1 ? TABLE "Input table"
15
DEFINE/PARAM P2 ? CHAR "Descriptor or table name"
16
DEFINE/PARAM P3 + CHAR "Output Column"
17
DEFINE/PARAM P4 + CHAR "Value for true"
18
DEFINE/LOCAL NAME/C/1/60 " " ALL
20
WRITE/KEYW INPUTC 'P2'
21
WRITE/KEYW OUTCOL/C/1/16 'P3'
22
WRITE/KEYW VAL/C/1/80 "{P4}"
23
WRITE/KEYW STRING/C/1/256 " " all
24
WRITE/KEYW VAL/C/1/80 "{P4}"
25
WRITE/KEYW HISTORY "{MID$CMND(1:4)}/{MID$CMND(11:14)} "
26
RUN STD_EXE:TBAPPLYRUL