home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
maildb2.zip
/
ML2LAB.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-02-14
|
4KB
|
128 lines
* ML2LAB.CMD
ERASE
?' PRINT LABELS'
?
? ' USE 132 COL. PAPER FOR OPTION 2 '
?' USE 15/16 X 3.5 LABELS FOR OPTION 1 ,3 OR 4 '
?' ESCAPE TO EXIT AT ANY TIME'
SET TALK OFF
* SET-UP LABELS
?
STORE 'Y' TO ANSWER
DO WHILE !(ANSWER)='Y'
?'PRINT SET-UP LABEL? (Y/N)'
WAIT TO ANSWER
IF !(ANSWER)='Y'
SET PRINT ON
?'LINE1 AAAAA'
?'LINE2 BBBBB'
?'LINE3 CCCCC'
?'LINE4 DDDDD'
?'LINE5 EEEEE'
?
SET PRINT OFF
ENDIF
ENDDO
* DETERMINE MODE
* SET UP MEMORY VARIBLES
STORE ' ' TO MSPACE
STORE '' TO MLINE1
STORE '' TO MLINE2
STORE '' TO MLINE3
STORE '' TO MLINE4
STORE '' TO MLINE5
STORE 0 TO MCOUNT
ERASE
?
?
?
?' RECORD SELECTION'
?
?
?' 1 - GET RECORD NUMBER FROM KEYBOARD'
?
?' 2 - USE SPECIFIED INDEX FILE 132 COL. FORMAT '
?
?' 3 - PRINT ENTIRE DATA FILE'
?
?' 4 - USE SPECFIED INDEX FILE SINGLE COL. FORMAT '
?
?' ENTER SELECTION'
WAIT TO MODE
IF MODE='1'
* LABEL1.CMD
* PRINT LABEL FROM RECORD NUMBER
ERASE
DO WHILE T
ACCEPT "RECORD NUMBER" TO RECNO
SET PRINT ON
GOTO RECORD &RECNO
DO ML2LAB1
SET PRINT OFF
ENDDO
SET TALK ON
ENDIF
IF MODE='2'
* LABEL2.CMD
* PRINTS LABELS FROM SPECIFIED INDEX FILE
ERASE
ACCEPT "INDEX FILE NAME" TO FILNAME
USE &BASE INDEX &FILNAME
DO WHILE .NOT. EOF
DO MLABEL5
IF MCOUNT=4
SET PRINT ON
? MLINE1
? MLINE2
? MLINE3
? MLINE4
? MLINE5
?
?
SET PRINT OFF
STORE '' TO MLINE1
STORE '' TO MLINE2
STORE '' TO MLINE3
STORE '' TO MLINE4
STORE '' TO MLINE5
STORE 0 TO MCOUNT
SKIP
ELSE
SKIP
ENDDO
SET TALK ON
ENDIF
IF MODE='3'
* LABEL3.CMD
* PRINTS LABELS FROM ENTIRE DATA FILE
ERASE
USE &BASE
GO TOP
SET PRINT ON
DO WHILE .NOT. EOF
DO ML2LAB1
SKIP
ENDDO
SET PRINT OFF
SET TALK ON
ENDIF
IF MODE='4'
* LABEL FORMAT IN SINGLE COL.
ERASE
ACCEPT "INDEX FILE NAME" TO FILNAME
USE &BASE INDEX &FILNAME
SET PRINT ON
DO WHILE .NOT. EOF
DO ML2LAB1
SKIP
ENDDO
SET PRINT OFF
SET TALK ON
ELSE
DO ML2
ENDIF
RETURN
DO ML2
ENDIF
RETURN