home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug108.arc / ADLABEL.LBR / ADSCRS2.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  4KB  |  173 lines
  1. * File:- ADSCRS2.CMD
  2. * Label printer,Screen List Surname, (Alph order)
  3. * J.L.Read. Merrylands. NSW.
  4. * Date:- 06/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 A to Z"
  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 SEC
  26.  @ 20,5 SAY"Enter Letter <A to Z> " GET SEC PICTURE "!"
  27.  SET CONFIRM ON
  28.  READ
  29.  SET CONFIRM OFF
  30.  IF $(SEC,1,1)= " "
  31.  RELEASE LAB1,COMMAND,SEC
  32.  ERASE
  33.  @ 11,32 SAY"CLOSING FILE "
  34.  RETURN
  35.  ENDIF $(SEC,1,1)= " "
  36.  @ 17,45
  37.  @ 17,45 SAY"Abort >"
  38.  @ 18,5 SAY"List  Select &SEC"
  39.  @ 20,0
  40.  @ 22,0
  41. @ 20,5 SAY"Enter Option "
  42. SET CONSOLE OFF
  43. WAIT TO COMMAND
  44. STORE !(COMMAND) TO COMMAND
  45. SET CONSOLE ON
  46. @ 17,0
  47. @ 18,0
  48. IF !(COMMAND) = " "
  49.  LOOP
  50. ENDIF
  51. DO CASE
  52. CASE COMMAND = "A"
  53.  @ 20,0
  54.  @ 20,5 SAY"Screen List, Name/Addr. (Aust.) <Y> or <N> "
  55.  SET CONSOLE OFF
  56.  WAIT TO COMMAND
  57.  SET CONSOLE ON
  58.  IF !(COMMAND)= "Y"
  59.  @ 20,0
  60.  USE LABEL INDEX SNAMIND
  61.  GO TOP
  62.  ERASE
  63. ? "Id/Num Tit Intl Surname........... Location................. Sta Pcde"
  64. DISPLAY ALL NUMB,TITLE,INITAL,SNAME,LOCATN,STATE,PCODE FOR AUST="A";
  65. .AND. CLASS="N".AND. SNAME="&SEC" OFF
  66.  ? "                               -===============-"
  67.  ?
  68.  @ 23,6 SAY"Press RETURN To Continue "
  69.  SET CONSOLE OFF
  70.  WAIT
  71.  SET CONSOLE ON
  72.  RELEASE SEC
  73.  USE
  74.  ERASE
  75.  ELSE COMMAND <> "Y"
  76.  RELEASE SEC
  77.  ENDIF
  78.  @ 20,0
  79.  LOOP
  80. CASE COMMAND = "B"
  81. @ 20,0
  82. @ 20,6 SAY"Screen List Name/Addr.(Overseas) <Y> or <N>."
  83.  SET CONSOLE OFF
  84.   WAIT TO COMMAND
  85.  SET CONSOLE ON
  86.  IF !(COMMAND) = "Y"
  87.  @ 20,0
  88.  USE LABEL INDEX SNAMIND
  89.  GO TOP
  90.  ERASE
  91.  ? "Id/No. Tit Intl Surname........... Location................. ;
  92. Country........."
  93. DISPLAY ALL NUMB,TITLE,INITAL,SNAME,LOCATN,COUNTRY ;
  94. FOR AUST= "O".AND. CLASS= "N".AND. SNAME= "&SEC" OFF
  95. ? "                                -==============-"
  96. ?
  97. @ 23,6 SAY"Press RETURN To Continue "
  98. SET CONSOLE OFF
  99. WAIT
  100. SET CONSOLE ON
  101.  RELEASE SEC
  102.  USE
  103.  ERASE 
  104.  ELSE !(COMMAND) <> "Y"
  105.  RELEASE SEC
  106.   ENDIF
  107.  @ 20,0
  108.  LOOP
  109. CASE COMMAND = "C"
  110.  @ 20,0
  111.  @ 20,6 SAY"Screen List Business Labels, (Aust.) <Y> or <N>."
  112.  SET CONSOLE OFF
  113.  WAIT TO COMMAND
  114.  SET CONSOLE ON
  115.  IF !(COMMAND) = "Y"
  116.  @ 20,0
  117.  USE LABEL INDEX COMPIND
  118.  GO TOP
  119.  ERASE 
  120.  ? "Id/No. Tit Company/Name.................. Location................. ;
  121. Sta Pcde"
  122. DISPLAY ALL NUMB,TITLE,COMPANY,LOCATN,STATE,PCODE ;
  123. FOR AUST= "A".AND. CLASS="B".AND. COMPANY= "&SEC" OFF
  124. ? "                                -=============-"
  125. ?
  126. @ 23,6 SAY"Press RETURN To Continue "
  127. SET CONSOLE OFF 
  128. WAIT
  129. SET CONSOLE ON
  130.  RELEASE SEC
  131.  USE
  132.  ERASE 
  133.  ELSE COMMAND <> "Y"
  134.  RELEASE SEC
  135.  ENDIF
  136.  @ 20,0
  137.  LOOP
  138. CASE COMMAND= "D"
  139.  @ 20,0
  140.  @ 20,6 SAY"Screen List Business Labels, (Overseas) <Y> or <N>."
  141.  SET CONSOLE OFF
  142.  WAIT TO COMMAND
  143.  SET CONSOLE ON
  144.  IF !(COMMAND) = "Y"
  145.  @ 20,0
  146.  USE LABEL INDEX COMPIND
  147.  GO TOP
  148.  ERASE 
  149.  ? "Id/No. Tit Surname........... Company/Name.................. ;
  150. Country........."
  151. DISPLAY ALL NUMB,TITLE,SNAME,COMPANY,COUNTRY ;
  152. FOR AUST="O".AND. CLASS="B".AND. COMPANY= "&SEC" OFF
  153. ? "                                -=============-"
  154. ?
  155. @ 23,6 SAY"Press RETURN To Continue "
  156. SET CONSOLE OFF
  157. WAIT
  158. SET CONSOLE ON
  159.  RELEASE SEC
  160.  USE
  161.  ERASE 
  162.  ELSE COMMAND <> "Y"
  163.  RELEASE SEC
  164.  ENDIF
  165.  @ 20,0
  166.  LOOP
  167. ENDCASE
  168. SET INTEN ON
  169. @ 22,5 SAY"Options are <A B C D> Only."
  170. SET INTEN OFF
  171. ENDDO
  172. RETURN
  173.