CP/M/CPM_CDROM.iso/mbug/mbug105.arc/MAILMEN.LQR/MAILED.CMD

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

* MAILED.PRG - PROGRAM FOR EDITING MAILIST FILES
* COPYRIGHT NOVEMBER 14, 1983 BY PHILIP K. PERLMAN
SET TALK OFF
POKE 1047,10
STORE T TO ED
DO WHILE ED
STORE T TO DULY
DO WHILE DULY
STORE T TO CHOICE
DO WHILE CHOICE
ERASE
? "YOU CAN LOCATE THE FILE BY THE INDIVIDUAL'S NAME OR COMPANY NAME"
?
?
?
ACCEPT "ENTER LAST NAME" TO NAME
?
?
?
?
ACCEPT "ENTER FIRST NAME" TO NAME1
?
?
?
?
ACCEPT "ENTER COMPANY NAME" TO COMP
STORE ' ' TO CHOSE
@ 18,7 say"+----------------------------------------------------------------+"
@ 19,7 Say"| PRESS: C> To Continue          N> To Return to the Menu        |"
@ 20,7 say"|        ** Any Other Key to Revise Your Entries **              |"
@ 21,7 say"+----------------------------------------------------------------+"
@ 20,65 GET CHOSE
READ
CLEAR GETS
STORE !(CHOSE) TO CHOSE
     IF CHOSE = 'C'
        STORE F TO CHOICE
     ELSE
     IF CHOSE = 'N'
        STORE F TO CHOICE
        STORE F TO DULY
        STORE F TO ED
        RETURN
     ENDIF
     ENDIF
ENDDO
STORE !(NAME) TO NAME
STORE !(NAME1) TO NAME1
STORE !(COMP) TO COMP
IF COMP =  ' ' .AND. NAME <> ' ' .AND. NAME1 <> ' '
     USE &DBF1 INDEX &NDX1, &NDX2, &NDX3, &NDX4, &NDX5
     FIND &NAME
          IF #=0 .OR.*
             STORE 0 TO REC
             STORE F TO DULY
          ENDIF
          IF #>0
             STORE T TO SEARCH
             DO WHILE SEARCH
                IF FIRST = NAME1
                     STORE 1 TO REC
                     STORE F TO SEARCH
                     STORE F TO DULY
                ELSE
                SKIP
                ENDIF
             ENDDO
           ENDIF
ELSE
IF COMP =  ' ' .AND. NAME <> ' ' .AND. NAME1 = ' '
     USE &DBF1 INDEX &NDX1, &NDX2, &NDX3, &NDX4, &NDX5
     FIND &NAME
          IF #=0 .OR.*
                STORE 0 TO REC
                STORE F TO DULY
          ELSE
                STORE 1 TO REC
                STORE F TO DULY
          ENDIF
ELSE
     USE &DBF1 INDEX &NDX2, &NDX1, &NDX3, &NDX4, &NDX5
     FIND &COMP
          IF #=0 .OR.*
               STORE 0 TO REC
               STORE F TO DULY
          ELSE
               STORE 1 TO REC
               STORE F TO DULY
          ENDIF
ENDIF
ENDIF
ENDDO
IF REC=0
     ERASE
     STORE ' ' TO ANS3
     @ 10,5 SAY "Record Cannot Be Found."
     @ 12,5 say "Press 'N' to Return to the Menu"
     @ 14,5 SAY "Press Any Other Key to Try Again."
     @ 14,70 get ANS3
     READ
     CLEAR GETS
          IF !(ANS3) = 'N'
                    STORE F TO ED
                    STORE F TO DULY
                    RETURN
          ELSE
                    STORE T TO DULY
                    STORE ' ' TO ANS
          ENDIF
ENDIF
do while REC = 1
STORE ' ' TO ANS
ERASE
@ 1,0 SAY 'Company'
@ 1,10 GET company
@ 3,0 SAY 'Name'
@ 3,10 GET last
@ 3,32 GET first
@ 4,10 GET addr1
@ 3,58 SAY 'Friend'
@ 3,67 GET friend
@ 4,58 SAY 'Business'
@ 4,67 GET bus:xmas
@ 5,10 GET addr2
@ 5,51 SAY 'Birthday'
@ 5,60 GET birthday
@ 6,10 GET city
@ 6,37 GET state
@ 6,41 GET zip
@ 8,10 SAY 'Business Telephones'
@ 8,43 SAY 'Other Telephones'
@ 8,64 SAY 'Location'
@ 9,10 GET Tel:wrk
@ 9,25 SAY 'Ext.'
@ 9,30 GET ext1
@ 9,43 GET tel:hm
@ 9,64 GET loc1
@ 10,10 GET tel:wrk2
@ 10,25 SAY 'Ext.'
@ 10,30 GET ext2
@ 10,43 GET tel:hm2
@ 10,64 GET loc2
@ 11,10 GET tel:wrk3
@ 11,25 SAY 'Ext.'
@ 11,30 GET ext3
@ 11,43 GET tel:hm3
@ 11,64 GET loc3
@ 13,0 SAY 'Prior. 1'
@ 13,10 GET prof1
@ 13,35 SAY 'Prior.2'
@ 13,43 GET prof2
@ 14,0 SAY 'Prior. 3'
@ 14,10 GET prof3
@ 16,0 SAY 'Comment'
@ 16,10 GET mcom1
@ 17,10 GET mcom2
? "+-------------------------------------------------------------------------+"
? "| SELECT:  E> Edit this Record        D> Delete this Record               |"
? "|          N> To Return to Menu       R> Review other Records             |"
? "+-------------------------------------------------------------------------+"
set console off
WAIT TO ANS
Set console on
IF !(ANS) <> 'E' .AND. !(ANS) <> 'D' .AND. !(ANS) <> 'N' .AND. !(ANS) <> 'R'
ERASE
LOOP
ELSE
IF !(ANS) = 'E'
? "PRESS CONTROL W '^W' OR THE ENTER KEY SEVERAL TIMES TO COMPLETE EDITING "
READ
STORE 0 TO REC
ELSE
IF !(ANS) = 'D'
ERASE
? "ARE YOU SURE ABOUT THAT (Y OR N) ?"
set console off
WAIT TO SURE
set console on
     IF !(SURE) = 'Y'
          DELETE
          STORE 0 TO REC
     ELSE
          STORE 0 TO REC
     ENDIF
ELSE
IF !(ANS) = 'N'
     STORE 0 TO REC
     STORE F TO ED
     ERASE
     RETURN
ELSE
IF !(ANS) = 'R'
     STORE 0 TO REC
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDDO
ERASE
IF !(ANS) = 'D' .OR. !(ANS) = 'E'
store ' ' to ans1
@ 10,5 SAY "Press 'N' to Return to The Menu"
@ 12,5 Say "Press Any Other Key To Continue"
@ 12,60 get ans1
READ
CLEAR GETS
IF !(ANS1) = 'N'
     STORE F TO ED
     ERASE
     USE
     RETURN
ELSE
ERASE
ENDIF
ENDIF
ENDDO

E F TO CHOICE
     ELSE
     IF CHOSE = 'N'
        STORE F TO CHOICE
        STORE F TO DULY
        STORE F TO ED
        RETURN
     END