home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug108.arc / ADLABEL.LBR / DISPLAB.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  96 lines
  1. * File:- DISPLAB.CMD
  2. * Screen Display Label
  3. * J.L.Read. Merrylands. NSW.
  4. * Date:- 19/04/87
  5. * Update:-
  6. ERASE
  7.  @ 1,1 SAY"Date:- " +DATE()
  8.  USE LABEL INDEX IDNOIND
  9.  STORE T TO SCRDIS
  10.  DO WHILE SCRDIS
  11.  SET INTEN ON
  12.  @ 2,24 SAY" SCREEN DISPLAY ADDRESS LABELS "
  13.  SET INTEN OFF
  14.  @ 4,36 SAY"-======-"
  15.  @ 6,30 SAY"Press RETURN To Exit"
  16.  STORE 0 TO SCR
  17.  @ 9,25 SAY"Enter Label Id/Number " GET SCR PICTURE "     "
  18.  SET CONFIRM ON
  19.  READ
  20.  SET CONFIRM OFF
  21.  IF SCR=0
  22.  RELEASE SCRDIS,SCR
  23.  USE
  24.  RETURN
  25.  ENDIF SCR=0
  26.  STORE STR(SCR,5) TO MSCR
  27.  FIND &MSCR
  28.  IF #=0
  29.  @ 9,0
  30.  SET INTEN ON
  31.  @ 9,28 SAY" Label Not On File!!!! "
  32.  SET INTEN OFF
  33.  STORE 1 TO XX
  34.  DO WHILE XX <120
  35.  STORE XX+1 TO XX
  36.  ENDDO WHILE XX <120
  37.  RELEASE XX,SCR,MSCR
  38.  @ 9,0
  39.  LOOP
  40.  ELSE #>0
  41.  @ 12,23
  42.  @ 14,0
  43.  @ 15,0
  44.  @ 16,0
  45.  @ 17,0
  46.  @ 18,0
  47.  @ 19,0
  48.  @ 20,0
  49.  @ 12,6 SAY"Label Id/Number:- &MSCR"
  50.  IF AUST= "A".AND. CLASS= "N"
  51.  @ 14,6 SAY"Name/Address Label.(Aust)"
  52.  ?
  53.  ? "      ",TITLE,TRIM(INITAL),TRIM(SNAME)+"."
  54.  ? "      ",TRIM(STREET)+"."
  55.  ? "      ",TRIM(LOCATN)+"."
  56.  ? "      ",TRIM(STATE)+".","                ",PCODE+"."
  57.  RELEASE MSCR
  58.  LOOP
  59.  ENDIF
  60.  IF AUST= "O".AND. CLASS= "N"
  61.  @ 14,6 SAY"Name/Address Label.(Overseas)"
  62.  ?
  63.  ? "      ",TITLE,TRIM(INITAL),TRIM(SNAME)+"."
  64.  ? "      ",TRIM(STREET)+"."
  65.  ? "      ",TRIM(LOCATN)+"."
  66.  ? "      ",STATE,"         ",TRIM(COUNTRY)+"."
  67.  RELEASE MSCR
  68.  LOOP
  69.  ENDIF
  70.  IF AUST= "A".AND. CLASS= "B"
  71.  @ 14,6 SAY"Business Address Label.(Aust)"
  72.  ?
  73.  ? "      ",TITLE,TRIM(INITAL),SNAME
  74.  ? "      ",TRIM(COMPANY)+"."
  75.  ? "      ",TRIM(STREET)+"."
  76.  ? "      ",TRIM(LOCATN)+"."
  77.  ? "      ",TRIM(STATE)+".","                ",PCODE+"."
  78.  RELEASE MSCR
  79.  LOOP
  80.  ENDIF
  81.  IF AUST= "O".AND. CLASS= "B"
  82.  @ 14,6 SAY"Business Address Label.(Overseas)"
  83.  ?
  84.  ? "      ",TITLE,TRIM(INITAL),SNAME
  85.  ? "      ",TRIM(COMPANY)+"."
  86.  ? "      ",TRIM(STREET)+"."
  87.  ? "      ",TRIM(LOCATN)+"."
  88.  ? "      ",STATE,"         ",TRIM(COUNTRY)+"."
  89.  RELEASE MSCR
  90.  LOOP
  91.  ENDIF
  92.  ENDIF #>0
  93.  @ 12,0
  94.  ENDDO
  95. RETURN
  96. M