CP/M/CPM_CDROM.iso/mbug/mbug108.arc/ADLABEL.LBR/BUSFIL.CMD

OS/2 REXX Batch file | 1979-12-31 | 5KB | 250 lines

* File:- BUSFIL.CMD
* Business Address File Screen Program
* J.L.Read. Merrylands. NSW.
* Date:- 29/03/87
* UPDATE:-
ERASE
@ 11,32 SAY"ONE MOMENT "
USE LABEL INDEX IDNOIND,SNAMIND,COMPIND,PCODEIND
ERASE
SET TALK OFF
GO BOTTOM
DO BUSSCR
DO BUSGET
CLEAR GETS
STORE T TO SCREEN2
DO WHILE SCREEN2
@ 5,6 SAY"ENTER COMMAND "
SET CONSOLE OFF
WAIT TO COMMAND
STORE !(COMMAND) TO COMMAND
SET CONSOLE ON
IF COMMAND = "M"
RELEASE SCREEN2,COMMAND
ERASE
@ 11,32 SAY"CLOSING FILE "
USE
 RETURN
ENDIF
DO CASE
CASE COMMAND = "A"
  @ 5,0
  STORE 0 TO MNUMB
  @ 5,6 SAY"Enter Id.No. " GET MNUMB PICTURE "     "
  @ 5,36 SAY"Or Press RETURN To Abort Entry."
  SET CONFIRM ON
  READ
  SET CONFIRM OFF
  IF MNUMB = 0
  RELEASE MNUMB
  @ 5,0
  LOOP
  ENDIF MNUMB = 0
  STORE STR(MNUMB,5) TO MIDNO
  FIND &MIDNO
  IF # <>0
  DO BUSGET
  CLEAR GETS
  @ 5,30
  @ 5,36 SAY"Record is Already On File. "
  @ 5,63 SAY CHR(7)
  STORE 1 TO XX
  DO WHILE XX<110
  STORE XX+1 TO XX
  ENDDO WHILE XX<110
  RELEASE XX,MNUMB,MIDNO
  @ 5,0
  LOOP
  ENDIF # <>0
  @ 5,0
  @ 5,6 SAY"Adding a New Record."
  STORE "A" TO MAUST
  STORE "BUSINESS" TO MCLASS
  STORE "NSW" TO MSTATE
  APPEND BLANK
  REPLACE AUST WITH MAUST,CLASS WITH MCLASS
  REPLACE NUMB WITH MNUMB,STATE WITH MSTATE
  DO BUSGET
  READ
  CLEAR GETS
  RELEASE MNUMB,MSTATE,MIDNO,MAUST,MCLASS
  @ 5,0
CASE COMMAND = "E"
 IF CLASS= "B"
 @ 5,0
 @ 5,6 SAY"Edit Record. "
  DO BUSGET
  READ
  CLEAR GETS
  @ 5,0
  LOOP
 ENDIF CLASS= "B"
  @ 5,0
  SET INTEN ON
  @ 5,6 SAY"NAME & ADDRESS LABEL"
  SET INTEN OFF
  @ 5,26 SAY", Edit From Address Label Screen."
  STORE 1 TO DD
  DO WHILE DD <120
  STORE DD+1 TO DD
  ENDDO WHILE DD <120
  RELEASE DD
  @ 5,0
CASE COMMAND = "B"
 SKIP-1
  DO BUSGET
 CLEAR GETS
CASE COMMAND = "F"
 SKIP
  DO BUSGET
 CLEAR GETS
CASE COMMAND = "D"
 @ 5,0
 @ 5,6 SAY"Delete This Record  <Y> or <N> "
 SET CONSOLE OFF
 WAIT TO COMMAND
 SET CONSOLE ON
 IF !(COMMAND) = "Y"
 @ 5,0
 @ 5,6 SAY"Deleting & Reindexing File,   PLEASE WAIT "
 DELETE
 PACK
  GO BOTTOM
  DO BUSGET
  CLEAR GETS
  ELSE !(COMMAND) <> "Y"
  DO BUSGET
 CLEAR GETS
 ENDIF
 @ 5,0
CASE COMMAND = "S"
 @ 5,0
 STORE 0 TO RECORD
 @ 5,6 SAY"Enter Id.No. To Search. " GET RECORD PICTURE "     "
 SET CONFIRM ON
 READ
 SET CONFIRM OFF
 STORE STR(RECORD,5) TO MSREC
 FIND &MSREC
 IF # = 0
 @ 5,41 SAY"Record Not On File,Press RETURN."
 SET CONSOLE OFF
 WAIT
 SET CONSOLE ON
 ELSE # > 0
 DO BUSGET
 CLEAR GETS
 ENDIF
RELEASE MSREC,RECORD
 @ 5,0
CASE COMMAND = "L"
 GO BOTTOM
 DO BUSGET
 CLEAR GETS
CASE COMMAND = "T"
 GO TOP
 DO BUSGET
 CLEAR GETS
CASE COMMAND = "P"
 IF AUST= "A".AND. CLASS= "B"
 @ 5,0
 @ 5,6 SAY"Do You Want To Print Label, (Aust.) <Y> or <N> "
 SET CONSOLE OFF
 WAIT TO COMMAND
 SET CONSOLE ON
 IF !(COMMAND)= "Y"
 @ 5,0
 SET INTEN ON
 @ 5,6 SAY" TURN YOUR PRINTER ON "
 SET INTEN OFF
 @ 5,30 SAY"Press  <RETURN>  When Ready "
 SET CONSOLE OFF
 WAIT
 SET CONSOLE ON
 @ 5,0
 @ 5,6 SAY"Printing Label,    WAIT."
 SET CONSOLE OFF
SET PRINT ON
 ? " ",TITLE,TRIM(INITAL),SNAME
 ? " ",TRIM(COMPANY)+"."
 ? " ",TRIM(STREET)+"."
 ? " ",TRIM(LOCATN)+"."
 ? " ",TRIM(STATE)+".","                ",PCODE+"."
 ?
 ?
 ?
 ?
SET PRINT OFF
SET CONSOLE ON
 @ 5,0
 ELSE COMMAND <> "Y"
 ENDIF
 @ 5,0
 ENDIF AUST= "A".AND. CLASS= "B"
CASE COMMAND = "O"
IF AUST= "O".AND. CLASS= "B"
@ 5,0
@ 5,6 SAY"Do You Want To Print Label, (Overseas) <Y> or <N>."
 SET CONSOLE OFF
  WAIT TO COMMAND
 SET CONSOLE ON
 IF !(COMMAND) = "Y"
 @ 5,0
 SET INTEN ON
 @ 5,6 SAY" TURN YOUR PRINTER ON "
SET INTEN OFF
 @ 5,29 SAY"Press RETURN When Ready."
 SET CONSOLE OFF
  WAIT
 SET CONSOLE ON
 @ 5,0
 @ 5,6 SAY"Printing Label, WAIT."
 SET CONSOLE OFF
 SET PRINT ON
? " ",TITLE,TRIM(INITAL),SNAME
? " ",TRIM(COMPANY)+"."
? " ",TRIM(STREET)+"."
? " ",TRIM(LOCATN)+"."
? " ",STATE,"         ",TRIM(COUNTRY)+"."
?
?
?
?
SET PRINT OFF
SET CONSOLE ON
 @ 5,0
 ELSE !(COMMAND) <> "Y"
  ENDIF
 @ 5,0
ENDIF AUST= "O".AND. CLASS= "B"
ENDCASE
ENDDO
RETURN

rogram
* J.L.Read. Merrylands. NSW.
* Date:- 29/03/87
* UPDATE:-
ERASE
@ 11,32 SAY"ONE MOMENT "
USE LABEL INDEX IDNOIND,SNAMIND,COMPIND,PCODEIND
ERASE
SET TALK OFF
GO BOTTOM
DO BUSSCR
DO BUSGET
CLEAR GETS
STORE T TO SCREEN2
DO WHILE SCREEN2
@ 5,6 SAY"ENTER COMMAND "
SET CONSOLE OFF
WAIT TO COMMAND
STORE !(COMMAND) TO COMMAND
SET CONSOLE ON
IF COMMAND = "M"
RELEASE SCREEN2,COMMAND
ERASE
@ 11,32 SAY"CLOSING FILE "
USE
 RETURN
ENDIF