home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG075.ARC / DBHELP.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  108 lines
  1. SET TALK OFF
  2. SELECT SECONDARY
  3. USE DBHELP INDEX DBHELP
  4. STORE T TO HELPING
  5. DO WHILE HELPING
  6.    ERASE
  7.    ?
  8.    ?
  9.    ? '        DBHELP II.3                        COVILL Assoc.'
  10.    ? '       +-----------------------------------------------+'
  11.    ? '       |  C = list Commands                            |'
  12.    ? '       |  D = Display specific command                 |'
  13.    ? '       |  F = list Functions                           |'
  14.    ? '       |  S = list Set parameters                      |'
  15.    ? '       | CR = Return                                   |'
  16.    ? '       +-----------------------------------------------+'
  17.    ?
  18.    WAIT TO HELP
  19.    STORE !(HELP) TO HELP
  20.    DO CASE
  21.   CASE HELP='F'
  22.       FIND F-
  23.       SET INDEX TO
  24.       DISP OFF LINE WHILE FLAG='F'
  25.       DISP OFF '---------'
  26.       SET INDEX TO DBHELP
  27.       WAIT
  28.   CASE HELP='S'
  29.       FIND S-
  30.       SET INDEX TO
  31.       DISP OFF LINE WHILE FLAG='S'
  32.       DISP OFF '-----------'
  33.       SET INDEX TO DBHELP
  34.       WAIT
  35.   CASE HELP='C'
  36.       SET INDEX TO
  37.       GOTO TOP
  38.       DISP OFF LINE FOR FLAG='C'
  39.       DISP OFF '-----------'
  40.       SET INDEX TO DBHELP
  41.       WAIT
  42.   CASE HELP='D'
  43.       ACCEPT 'Enter Command Name (all or part) ' TO CNAME
  44.       STORE 'C'+$(!(CNAME),1,4) TO CNAME
  45.       FIND &CNAME
  46.       IF #=0
  47.          ? '***COMMAND NOT FOUND***'
  48.       ELSE
  49.          SET INDEX TO
  50.          DISP OFF '---------'
  51.          DISP OFF LINE WHILE FLAG<>'C' .OR. LINE=$(CNAME,2,LEN(CNAME)-1)
  52.          * i.e., up to the next flagged command that DOESNT match!
  53.          DISP OFF '---------'
  54.          SET INDEX TO DBHELP
  55.       ENDIF
  56.       RELEASE CNAME
  57.       WAIT
  58.   CASE HELP=' '
  59.       STORE F TO HELPING
  60.    ENDCASE
  61. ENDDO
  62. RELEASE HELP,HELPING
  63. USE
  64. SELECT PRIMARY
  65. RETURN
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.        DISPLAY OFF LINE WHILE FLAG<>'C' .OR. LINE=CNAME
  81.          DISP OFF '---------'
  82.       ENDIF
  83.       RELEASE CNAME
  84.       WAIT
  85.   CASE HELP=' '
  86.       STORE F TO HELPING
  87.    ENDCASE
  88. ENDDO
  89. RELEASE HELP,HELPING
  90. USE
  91. SELECT PRIMAR
  92.       SET INDEX TO
  93.       GOTO TOP
  94.       DISP OFF LINE FOR FLAG='C'
  95.       DISP OFF '-----------'
  96.       SET INDEX TO DBHELP
  97.       WAIT
  98.   CASE HELP='D'
  99.       ACCEPT 'Enter Command Name (all or part) ' TO CNAME
  100.       STORE 'C'+$(!(CNAME),1,4) TO CNAME
  101.       FIND &CNAME
  102.       IF #=0
  103.          ? '***COMMAND NOT FOUND***'
  104.       ELSE
  105.          SET INDEX TO
  106.          DISP OFF '---------'
  107.          DISP OFF LINE WHILE FLAG<>'C' .OR. LINE=$(CNAME,2,LEN(CNAME)-1)
  108.          * i.e., up to the next flagged c