← Back to branch summary

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

« back to all changes in this revision

Viewing changes to prim/proc/t2edittbl.prgold

  • 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:
prim/proc/t2edittbl.prgold
 
1
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
2
!
 
3
! .IDENTIFICATION
 
4
!
 
5
!  MIDAS Command : TEDITTBL.PRG
 
6
!  TABLE Subsystem
 
7
!  J.D.Ponz                ESO - Garching   14 mar 84
 
8
!                                           01 Aug 85  KB
 
9
!                                           30 Oct 86  JDP
 
10
!                                           04 Oct 90  MP
 
11
! .PURPOSE
 
12
!
 
13
!    implements
 
14
!
 
15
!  EDIT/TABLE  table-name column row
 
16
!
 
17
! ----------------------------------------------------------------------
 
18
!
 
19
DEFINE/PAR P1 ? TABLE "Enter table:"
 
20
!
 
21
WRITE/KEY HISTORY "'MID$CMND(1:4)'/'MID$CMND(11:14)' 'P1' 'P2' 'P3'"
 
22
IF PCOUNT .EQ. 1 THEN
 
23
  IF M$INDEX(P1,".tbl") .EQ. 0  THEN
 
24
    -COPY 'P1(1:>)'.tbl MIDASEDT.tbl
 
25
   ELSE
 
26
    -COPY 'P1(1:>)' MIDASEDT.tbl
 
27
  ENDIF
 
28
ELSE
 
29
     WRITE/KEY INPUTI/I/1/1 'P2'
 
30
     WRITE/KEY INPUTI/I/2/1 'P3'
 
31
ENDIF
 
32
RUN MID_EXE:tedittbl