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 / MBUG098.ARC / USER0.LBR / REPTMEN.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  53 lines
  1. * File:- REPTMEN.CMD
  2. * Report Menu.
  3. * By, J.L.Read. Merrylands. NSW.
  4. * Date:- 22/08/87
  5. * Update:-
  6.   STORE T TO LOOK1
  7.   DO WHILE LOOK1
  8.      ERASE
  9.       @ 1,25 SAY"********** REPORTS **********"
  10.       @ 3,5 SAY"REPORT MENU"
  11.       @ 3,62 SAY"Date:- "+ DATE()
  12.       @ 4,5 SAY"-------------"
  13.       SET INTEN ON
  14.       @ 6,26 SAY">>> REPORT FORM LISTING <<<"
  15.       SET INTEN OFF
  16.       @ 7,5 SAY"Options:-"
  17.       @ 9,12 SAY"-====================================================-"
  18.       @ 11,15 SAY"1 -->  REPORT  -  ALL RECORDS.  (By Surname Alph)"
  19.       @ 12,15 SAY"2 -->  REPORT  -  ALL RECORDS.  (Ref.No Numb.Ord)"
  20.       @ 13,15 SAY"3 -->  REPORT  -  SELECTED RECORDS.  (By Surname)"
  21.       @ 14,15 SAY"4 -->  REPORT  -  SINGLE RECORD.(By Reference No)"
  22.       @ 15,15 SAY"5 -->  RETURN  -  TO   THE MASTER MENU"
  23.       @ 17,12 SAY"-====================================================-"
  24.       SET TALK OFF
  25.       STORE 0 TO CHOICE1
  26.       DO WHILE CHOICE1 <1 .OR. CHOICE1 >5
  27.       STORE 0 TO CHOICE1
  28.       @ 20,5 SAY"SELECT OPTION:-"
  29.       @ 20,21 GET CHOICE1 PICTURE "9"
  30.       @ 23,38 SAY"oOo"
  31.       READ
  32.       DO CASE
  33.          CASE CHOICE1= 1
  34.               DO REPTLST
  35.          CASE CHOICE1= 2
  36.               DO REPTREF
  37.          CASE CHOICE1= 3
  38.               DO REPTSEL
  39.          CASE CHOICE1= 4
  40.               DO REPTONE
  41.          CASE CHOICE1= 5
  42.               RELEASE CHOICE1,LOOK1,CHOICE2,LOOK2
  43.               RETURN
  44.        ENDCASE
  45.        IF CHOICE1 <1 .OR. CHOICE1 >5
  46.        SET INTEN ON
  47.        @ 22,23 SAY"ILLEGAL OPTION  < Select 1 to 5 >"
  48.        SET INTEN OFF
  49.        ENDIF
  50.     ENDDO CHOICE1
  51.   ENDDO LOOK1
  52. RETURN
  53.