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 / MBUG107.ARC / RETRIEVE.LBR / RETRIEVE.CQD / RETRIEVE.CMD
OS/2 REXX Batch file  |  1979-12-31  |  4KB  |  107 lines
  1.  
  2. NOTE  -dBASE II EXECUTIVE COMMAND FILE RETRIEVE.CMD
  3. ERASE
  4. SET TALK OFF
  5. STORE 'mm/dd/yy' TO M:DATE
  6. STORE T TO NODATE
  7. STORE ' ' TO DR
  8. @  2,33 SAY 'R+E+T+R+I+E+V+E'
  9. @ 12,40 SAY 'BY'
  10. @ 14,32 SAY 'David A. Lathrop'
  11. @ 16,27 SAY '-- COPYRIGHTED (C) 1983 --'
  12. DO WHILE NODATE
  13.      @ 5,24 SAY 'ENTER DATE (mm/dd/yy) ' GET M:DATE PICTURE '99/99/99'
  14.      READ
  15.      IF VAL($(M:DATE,1,2))<1;
  16.         .OR. VAL($(M:DATE,1,2))>12;
  17.         .OR. VAL($(M:DATE,4,2))<1;
  18.         .OR. VAL($(M:DATE,4,2))>31;
  19.         .OR. VAL($(M:DATE,7,2))<83
  20.           STORE 'mm/dd/yy' TO M:DATE
  21.           @ 7,21 SAY '**** BAD DATE -- PLEASE RE-ENTER. ****'
  22.           STORE T TO NODATE
  23.      ELSE
  24.           STORE F TO NODATE
  25.      ENDIF
  26. ENDDO
  27. SET DATE TO &M:DATE
  28. @ 5,23 SAY '                                 '
  29. @ 7,20 SAY '                                        '
  30. @ 9,20 SAY 'ENTER STORAGE DISK DRIVE LETTER ' GET DR PICTURE 'A'
  31. READ
  32. STORE DR+':REFS' TO FILE1
  33. DO WHILE T
  34.      ERASE
  35.      ?
  36.      ? '                       ***  R+E+T+R+I+E+V+E MENU  ***'
  37.      ?
  38.      ? '                         0 - EXIT'
  39.      ? '                         1 - ENTER NEW ARTICLES'
  40.      ? '                         2 - ENTER NEW ARTICLES WITH'
  41.      ? '                             (AUTOMATIC REFERENCE NUMBERING)'
  42.      ? '                         3 - FIND ARTICLES'
  43.      ? '                         4 - QUICKLY FIND ARTICLES'
  44.      ? '                             (BY FIRST AUTHOR, FIRST KEY WORD,'
  45.      ? '                              OR FIRST 20 LTRS OF SOURCE)'
  46.      ? '                         5 - RE-INDEX FILES'
  47.      ? '                         6 - MAKE LABELS FOR ARTICLES'
  48.      ? '                         7 - EDIT DATA BASE RECORDS'
  49.      ?
  50.      ?
  51.      ?
  52.      ?
  53.      ?
  54.      ?
  55.      ?
  56.      ? 'ENTER DESIRED ACTION'
  57. WAIT TO ACTION
  58. DO CASE
  59.      CASE ACTION='0'
  60.           ERASE
  61.           USE &FILE1
  62.           GO BOTTOM
  63.           STORE STR(#,6) TO REC:NO
  64.           @ 2,19 SAY '*** REFS.DBF NOW CONTAINS '-REC:NO+' RECORDS ***'
  65.           @ 16,1 SAY ' '
  66.           SET TALK ON
  67.           QUIT
  68.      CASE ACTION='1'
  69.           DO NEWENTRY
  70.      CASE ACTION='2'
  71.           DO AUTONUMB
  72.      CASE ACTION='3'
  73.           DO FIND
  74.      CASE ACTION='4'
  75.           DO FASTFIND
  76.      CASE ACTION='5'
  77.           DO INDEX
  78.      CASE ACTION='6'
  79.           DO LABEL
  80.      CASE ACTION='7'
  81.           DO EDIT
  82.      OTHERWISE
  83.           ? '**** Invalid response, re-enter ****'
  84.      ENDCASE
  85. ENDDO
  86. RETURN
  87.           OURCE)'
  88.      ? '                         5 - RE-INDEX FILES'
  89.      ? '                         6 - MAKE LABELS FOR ARTICLES'
  90.      ? '                         7 - EDIT DATA BASE RECORDS'
  91.      ?
  92.      ?
  93.      ?
  94.      ?
  95.      ?
  96.      ?
  97.      ?
  98.      ? 'ENTER DESIRED ACTION'
  99. WAIT TO ACTION
  100. DO CASE
  101.      CASE ACTION='0'
  102.           ERASE
  103.           USE &FILE1
  104.           GO BOTTOM
  105.           STORE STR(#,6) TO REC:NO
  106.           @ 2,19 SAY '*** REFS.DBF NOW CONTAINS '-REC:NO+' RECORDS ***'
  107.           @ 16,1 S