home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug108.arc / ADLABEL.LBR / ADSCRA1.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  4KB  |  151 lines
  1. * File:- ADSCRA1.CMD
  2. * Label printer,Screen List All Records, (Alph order)
  3. * J.L.Read. Merrylands. NSW.
  4. * Date:- 08/04/87
  5. * UPDATE:-
  6. ERASE
  7. STORE T TO LAB1
  8. DO WHILE LAB1
  9. SET TALK OFF
  10.  @ 1,14 SAY"********** MAILING ADDRESS LABEL PRINTER **********"
  11.  @ 3,5 SAY"SCR/LIST ALL RECORDS"
  12.  @ 3,61 SAY"Date:- "+ DATE()
  13.  SET INTEN ON
  14.  @ 6,20 SAY" SCREEN LISTING BY SURNAME or BUSINESS "
  15.  SET INTEN OFF
  16.  @ 8,5 SAY"Options:-"
  17.  @ 10,13 SAY"-===================================================-"
  18.  @ 11,16 SAY"A ---->  NAME/ADDRESS LABELS, WITHIN AUSTRALIA"
  19.  @ 12,16 SAY"B ---->  NAME/ADDRESS LABELS, FOR OVERSEAS"
  20.  @ 13,16 SAY"C ---->  BUSINESS ADDRESS LABELS, WITHIN AUST."
  21.  @ 14,16 SAY"D ---->  BUSINESS ADDRESS LABELS, FOR OVERSEAS"
  22.  @ 15,13 SAY"-===================================================-"
  23.  @ 23,38 SAY"oOo"
  24.  @ 17,27 SAY"< Press RETURN To Exit >"
  25.  STORE " " TO COMMAND
  26.  @ 20,5 SAY"Enter Option:- " GET COMMAND PICTURE "!"
  27.  READ
  28.  IF $(COMMAND,1,1)= " "
  29.  RELEASE LAB1,COMMAND
  30.  ERASE
  31.  @ 11,32 SAY"CLOSING FILE "
  32.  RETURN
  33.  ENDIF $(COMMAND,1,1)= " "
  34.  @ 17,0
  35.  @ 20,0
  36.  @ 22,0
  37. DO CASE
  38. CASE COMMAND = "A"
  39.  @ 20,0
  40.  @ 20,5 SAY"Screen List, Name/Addr. (Aust.) <Y> or <N> "
  41.  SET CONSOLE OFF
  42.  WAIT TO COMMAND
  43.  SET CONSOLE ON
  44.  IF !(COMMAND)= "Y"
  45.  @ 20,0
  46.  USE LABEL INDEX SNAMIND
  47.  GO TOP
  48.  ERASE
  49. ? "Id/Num Tit Intl Surname........... Location................. Sta Pcde"
  50. DISPLAY ALL NUMB,TITLE,INITAL,SNAME,LOCATN,STATE,PCODE FOR AUST="A";
  51. .AND. CLASS="N" OFF
  52.  ? "                               -===============-"
  53.  ?
  54.  @ 23,6 SAY"Press RETURN To Continue "
  55.  SET CONSOLE OFF
  56.  WAIT
  57.  SET CONSOLE ON
  58.  USE
  59.  ERASE
  60.  ELSE COMMAND <> "Y"
  61.  ENDIF
  62.  @ 20,0
  63.  LOOP
  64. CASE COMMAND = "B"
  65. @ 20,0
  66. @ 20,6 SAY"Screen List Name/Addr.(Overseas) <Y> or <N>."
  67.  SET CONSOLE OFF
  68.   WAIT TO COMMAND
  69.  SET CONSOLE ON
  70.  IF !(COMMAND) = "Y"
  71.  @ 20,0
  72.  USE LABEL INDEX SNAMIND
  73.  GO TOP
  74.  ERASE
  75.  ? "Id/No. Tit Intl Surname........... Location................. ;
  76. Country........."
  77. DISPLAY ALL NUMB,TITLE,INITAL,SNAME,LOCATN,COUNTRY ;
  78. FOR AUST= "O".AND. CLASS= "N" OFF
  79. ? "                                -==============-"
  80. ?
  81. @ 23,6 SAY"Press RETURN To Continue "
  82. SET CONSOLE OFF
  83. WAIT
  84. SET CONSOLE ON
  85.  USE
  86.  ERASE
  87.  ELSE !(COMMAND) <> "Y"
  88.   ENDIF
  89.  @ 20,0
  90.  LOOP
  91. CASE COMMAND = "C"
  92.  @ 20,0
  93.  @ 20,6 SAY"Screen List Business Labels, (Aust.) <Y> or <N>."
  94.  SET CONSOLE OFF
  95.  WAIT TO COMMAND
  96.  SET CONSOLE ON
  97.  IF !(COMMAND) = "Y"
  98.  @ 20,0
  99.  USE LABEL INDEX COMPIND
  100.  GO TOP
  101.  ERASE
  102.  ? "Id/No. Tit Company/Name.................. Location................. ;
  103. Sta Pcde"
  104. DISPLAY ALL NUMB,TITLE,COMPANY,LOCATN,STATE,PCODE ;
  105. FOR AUST= "A".AND. CLASS="B" OFF
  106. ? "                                -=============-"
  107. ?
  108. @ 23,6 SAY"Press RETURN To Continue "
  109. SET CONSOLE OFF
  110. WAIT
  111. SET CONSOLE ON
  112.  USE
  113.  ERASE
  114.  ELSE COMMAND <> "Y"
  115.  ENDIF
  116.  @ 20,0
  117.  LOOP
  118. CASE COMMAND= "D"
  119.  @ 20,0
  120.  @ 20,6 SAY"Screen List Business Labels, (Overseas) <Y> or <N>."
  121.  SET CONSOLE OFF
  122.  WAIT TO COMMAND
  123.  SET CONSOLE ON
  124.  IF !(COMMAND) = "Y"
  125.  @ 20,0
  126.  USE LABEL INDEX COMPIND
  127.  GO TOP
  128.  ERASE
  129.  ? "Id/No. Tit Surname........... Company/Name.................. ;
  130. Country........."
  131. DISPLAY ALL NUMB,TITLE,SNAME,COMPANY,COUNTRY ;
  132. FOR AUST="O".AND. CLASS="B" OFF
  133. ? "                                -=============-"
  134. ?
  135. @ 23,6 SAY"Press RETURN To Continue "
  136. SET CONSOLE OFF
  137. WAIT
  138. SET CONSOLE ON
  139.  USE
  140.  ERASE
  141.  ELSE COMMAND <> "Y"
  142.  ENDIF
  143.  @ 20,0
  144.  LOOP
  145. ENDCASE
  146. SET INTEN ON
  147. @ 22,5 SAY"Options are <A B C D> Only."
  148. SET INTEN OFF
  149. ENDDO
  150. RETURN
  151.