← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to stdred/do/proc/aprules.prg

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
stdred/do/proc/aprules.prg
 
1
! @(#)aprules.prg       19.1 (ES0-DMD) 02/25/03 14:17:50
 
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
!
 
4
! .IDENTIFICATION
 
5
!
 
6
!  MIDAS procedure  aprules.prg to implement APPLY/RULE
 
7
!
 
8
!  M.Peron                ESO - Garching    15 MAR 93
 
9
!
 
10
!  use via CLASSIFY/IMAGE table indescr outcol outchar
 
11
!
 
12
! ---------------------------------------------------------------------
 
13
!
 
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
 
19
WRITE/KEYW IN_A 'P1'
 
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