home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug108.arc / ADLABEL.LBR / REPALPH.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  115 lines
  1. * File:- REPALPH.CMD
  2. * Report Form,All All Labels (Alph order)
  3. * J.L.Read. Merrylands. NSW.
  4. * Date:- 09/04/87
  5. * UPDATE:-
  6. ERASE
  7. SET TALK OFF
  8. SET COLON OFF
  9. SET EJECT OFF
  10.  @ 1,14 SAY"********** MAILING ADDRESS LABEL PRINTER **********"
  11.  @ 3,5 SAY'REPORT FORM (15")'
  12.  @ 3,61 SAY"Date:- "+ DATE()
  13.  @ 4,5 SAY"(Draft Mode)"
  14.  SET INTEN ON
  15.  @ 6,22 SAY' ADDRESS LABEL REPORT - 15" PRINTER '
  16.  SET INTEN OFF
  17.  @ 8,5 SAY"Options:-"
  18.  @ 10,13 SAY"-===================================================-"
  19.  @ 12,17 SAY"A ---->  REPORT.NAME/ADDRESS  - (Alph Order)"
  20.  @ 13,17 SAY"B ---->  REPORT.BUSINESS ADD. - (Alph Order)"
  21.  @ 15,13 SAY"-===================================================-"
  22.  @ 23,38 SAY"oOo"
  23. STORE T TO LAB1
  24. DO WHILE LAB1
  25.  @ 17,27 SAY"< Press RETURN To Exit >"
  26.  STORE " " TO COMMAND
  27.  @ 20,5 SAY"Enter Option " GET COMMAND PICTURE "!"
  28.  READ
  29.  IF $(COMMAND,1,1)= " "
  30.  RELEASE LAB1,COMMAND
  31.  ERASE
  32.  @ 11,32 SAY"CLOSING FILE "
  33.  RETURN
  34.  ENDIF $(COMMAND,1,1)= " "
  35. @ 17,0
  36. @ 22,0
  37. DO CASE
  38. CASE COMMAND = "A"
  39. @ 20,0
  40. @ 20,6 SAY"<A> Print Report, Surname, (Alph) <Y> or <N>."
  41.  SET CONSOLE OFF
  42.   WAIT TO COMMAND
  43.  SET CONSOLE ON
  44.  IF !(COMMAND) = "Y"
  45.  @ 20,0
  46.  SET INTEN ON
  47.  @ 20,6 SAY" TURN YOUR PRINTER ON "
  48. SET INTEN OFF
  49.  @ 20,29 SAY"Press RETURN When Ready."
  50.  SET CONSOLE OFF
  51.   WAIT
  52.  SET CONSOLE ON
  53.  USE LABEL INDEX SNAMIND
  54.  GO TOP
  55.  @ 20,0
  56.  @ 20,6 SAY"Printing Report, WAIT."
  57.  SET CONSOLE OFF
  58.  SET PRINT ON
  59. ? "&COMP"
  60. REPORT FORM LSTINGW2 FOR CLASS= "N"
  61. ? "&NORM"
  62. ?
  63. ?
  64. ?
  65. ?
  66. SET PRINT OFF
  67. SET CONSOLE ON
  68.  USE
  69.  @ 20,0
  70.  ELSE !(COMMAND) <> "Y"
  71.   ENDIF
  72.  @ 20,0
  73.  LOOP
  74. CASE COMMAND= "B"
  75.  @ 20,0
  76.  @ 20,6 SAY"<B> Print Report. Business Labels, (Alph) <Y> or <N>."
  77.  SET CONSOLE OFF
  78.  WAIT TO COMMAND
  79.  SET CONSOLE ON
  80.  IF !(COMMAND) = "Y"
  81.  @ 20,0
  82.  SET INTEN ON
  83.  @ 20,6 SAY" TURN YOUR PRINTER ON "
  84.  SET INTEN OFF
  85.  @ 20,29 SAY"Press RETURN When Ready."
  86.  SET CONSOLE OFF
  87.  WAIT
  88.  SET CONSOLE ON
  89.  USE LABEL INDEX COMPIND
  90.  GO TOP
  91.  @ 20,0
  92.  @ 20,6 SAY"Printing Report,  WAIT "
  93.  SET CONSOLE OFF
  94. SET PRINT ON
  95. ? "&COMP"
  96. REPORT FORM LSTINGCO FOR CLASS= "B"
  97. ? "&NORM"
  98. ?
  99. ?
  100. ?
  101. SET PRINT OFF
  102.  SET CONSOLE ON
  103.  USE
  104.  @ 20,0
  105.  ELSE COMMAND <> "Y"
  106.  ENDIF
  107.  @ 20,0
  108.  LOOP
  109. ENDCASE
  110. SET INTEN ON
  111. @ 22,5 SAY"Options are <A & B> Only."
  112. SET INTEN OFF
  113. ENDDO
  114. RETURN
  115.