home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
MBUG
/
MBUG107.ARC
/
RETRIEVE.LBR
/
EDIT.CQD
/
EDIT.CMD
Wrap
OS/2 REXX Batch file
|
1979-12-31
|
8KB
|
200 lines
NOTE - EXTENDED COMMAND FILE EDIT.CMD
USE &FILE1
ERASE
@ 3,26 SAY '** EDIT DATA BASE RECORDS **'
@ 5,21 SAY 'EACH RECORD CONSISTS OF 406 CHARACTERS'
@ 6,21 SAY 'DIVIDED INTO THE FOLLOWING FIVE FIELDS'
@ 8,26 SAY 'FLD NAME TYPE WIDTH'
@ 9,26 SAY '001 REF:NO C 005'
@ 10,26 SAY '002 AUTHORS C 080'
@ 11,26 SAY '003 TITLE C 160'
@ 12,26 SAY '004 SOURCE C 080'
@ 13,26 SAY '005 KWORDS C 080'
@ 14,26 SAY '**TOTAL** 00406'
@ 16,21 SAY 'ANY RECORD WITHIN THE DATA BASE MAY BE'
@ 17,21 SAY 'LOCATED BY SEARCHING FOR IT BY ITS'
@ 18,21 SAY 'REFERENCE NUMBER, AUTHOR(S), TITLE OR'
@ 19,21 SAY 'SOURCE. ONCE LOCATED THE INFORMATION'
@ 20,21 SAY 'MAY BE EDITED, OR THE ENTIRE RECORD MAY'
@ 21,21 SAY 'BE DELETED. PRESS ANY KEY TO CONTINUE.'
@ 22,1 SAY ' '
WAIT
ERASE
@ 1,14 SAY 'THE FOLLOWING CONTROL CHARACTERS ARE USED IN EDITING'
@ 3,14 SAY '<CTRL>D - MOVE CURSOR RIGHT <CTRL>E - MOVE CURSOR UP'
@ 4,14 SAY '<CTRL>S - MOVE CURSOR LEFT <CTRL>X - MOVE CURSOR DOWN'
@ 5,14 SAY '<CTRL>G - DELETE CHARACTER <CTRL>Y - DLETETE LINE'
@ 7,26 SAY '** WANT TO CONTINUE? (Y/N) **'
@ 22,1 SAY ' '
WAIT TO CONTINUE
IF !(CONTINUE)='N'
RELEASE CONTINUE
RETURN
ENDIF
@ 7,26 SAY ' '
@ 23,0 SAY ' '
STORE '1' TO FLD
STORE 'N' TO DEL
STORE ' ' TO SSTR
STORE ' ' TO SSTR1
STORE ' ' TO SSTR2
STORE ' ' TO SSTR3
STORE ' ' TO SSTR4
@ 7,19 SAY 'ENTER FIELD TO SEARCH ON (1,2,3, OR 4) ' GET FLD PICTURE '9'
READ
IF FLD='1'
STORE 'REF:NO' TO FLD
@ 7,17 SAY ' '
@ 7,25 SAY 'ENTER REFERENCE NUMBER ' GET SSTR PICTURE 'AX999'
READ
ELSE
IF FLD='2'
STORE 'AUTHORS' TO FLD
@ 7,17 SAY ' '
@ 7,27 SAY '** ENTER AUTHOR(S) NAME **'
@ 9,20 GET SSTR1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 10,20 GET SSTR2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
READ
STORE SSTR1+SSTR2 TO SSTR
ELSE
IF FLD='3'
STORE 'TITLE' TO FLD
@ 7,17 SAY ' '
@ 7,32 SAY '** ENTER TITLE **'
@ 9,20 GET SSTR1 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 10,20 GET SSTR2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 11,20 GET SSTR3 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 12,20 GET SSTR4 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
READ
STORE SSTR1+SSTR2+SSTR3+SSTR4 TO SSTR
ELSE
IF FLD='4'
STORE 'SOURCE' TO FLD
@ 7,17 SAY ' '
@ 7,34 SAY '** SOURCE **'
@ 9,20 GET SSTR1 PICTURE;
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 10,20 GET SSTR2 PICTURE;
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
READ
STORE SSTR1+SSTR2 TO SSTR
ENDIF
ENDIF
ENDIF
ENDIF
@ 7,15 SAY ' '
@ 8,15 SAY ' '
@ 9,15 SAY ' '
@ 10,15 SAY ' '
@ 11,15 SAY ' '
@ 12,15 SAY ' '
@ 12,32 SAY '** SEARCHING **'
LOCATE FOR !(SSTR)=!(&FLD)
DO WHILE .NOT. EOF
STORE # TO RNUMB
STORE REF:NO TO REF
STORE $(AUTHORS,1,40) TO AU1
STORE $(AUTHORS,41,40) TO AU2
STORE $(TITLE,1,40) TO TI1
STORE $(TITLE,41,40) TO TI2
STORE $(TITLE,81,40) TO TI3
STORE $(TITLE,121,40) TO TI4
STORE $(SOURCE,1,40) TO SO1
STORE $(SOURCE,41,40) TO SO2
STORE $(KWORDS,1,40) TO KW1
STORE $(KWORDS,41,40) TO KW2
@ 7,32 SAY ' '
@ 7,14 SAY 'REF. NO. ' GET REF PICTURE 'XXXXX'
@ 9,15 SAY 'AUTHORS ' GET AU1 PICTURE;
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 10,22 SAY ' ' GET AU2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 12,17 SAY 'TITLE ' GET TI1 PICTURE;
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 13,22 SAY ' ' GET TI2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 14,22 SAY ' ' GET TI3 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 15,22 SAY ' ' GET TI4 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 17,16 SAY 'SOURCE ' GET SO1 PICTURE;
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 18,22 SAY ' ' GET SO2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 20,13 SAY 'KEY WORDS ' GET KW1 PICTURE;
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 21,22 SAY ' ' GET KW2 PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
@ 23,19 SAY 'WANT TO MARK RECORD FOR DELETION? (Y/N) ' GET DEL PICTURE 'X'
READ
IF !(DEL)='Y'
DELETE FOR RNUMB=#
CONTINUE
ENDIF
STORE AU1+AU2 TO AU3
STORE TI1+TI2+TI3+TI4 TO TI5
STORE SO1+SO2 TO SO3
STORE KW1+KW2 TO KW3
REPLACE REF:NO WITH REF, AUTHORS WITH AU3, TITLE WITH TI5;
SOURCE WITH SO3, KWORDS WITH KW3
CONTINUE
@ 7,10 SAY ' '
@ 8,10 SAY ' '
@ 9,10 SAY ' '
@ 10,10 SAY ' '
@ 11,10 SAY ' '
@ 12,10 SAY ' '
@ 13,10 SAY ' '
@ 14,10 SAY ' '
@ 15,10 SAY ' '
@ 16,10 SAY ' '
@ 17,10 SAY ' '
@ 18,10 SAY ' '
@ 19,10 SAY ' '
@ 20,10 SAY ' '
@ 21,10 SAY ' '
@ 22,10 SAY ' '
@ 23,10 SAY ' '
@ 12,32 SAY '** SEARCHING **'
ENDDO
ERASE
@ 20,8 SAY 'WANT REMOVE RECORDS MARKED FOR DELETION FROM THE DATA BASE? (Y/N)'
WAIT TO ANSWER
IF !(ANSWER)='Y'
PACK
@ 22,26 SAY '****** PACK COMPLETED ******'
ENDIF
ERASE
@ 20,21 SAY '************** FINISHED ***************'
@ 21,21 SAY '*** PRESS ANY KEY TO RETURN TO MENU ***'
@ 22,1 SAY ' '
WAIT
RELEASE CONTINUE,DEL,REF,FLD,SSTR,SSTR1,SSTR2,SSTR3,SSTR4,AU1,AU2,AU3,;
TI1,TI2,TI3,TI4,TI5,SO1,SO2,SO3,KW1,KW2,KW3,RNUMB
RETURN '
@ 12,32 SAY '** SEARCHING **'
ENDDO
ERASE
@ 20,8 SAY 'WANT REMOVE RECORDS MARKED FOR DELETION FROM THE DATA BASE? (Y/N)'
WAIT TO ANSWER
IF !(ANSWER)='Y'
PACK
@ 22,26 SAY '****** PACK COMPLETED ******'
ENDIF
ERASE
@ 20,21 SAY '************** FINISHED ***************'
@ 21,21 SAY '*** PRESS ANY KEY TO RETURN TO MENU ***'
@ 22,1 SAY ' '
WAIT
RELEASE CONTINUE,DEL,REF,FLD,SSTR,SSTR1,SSTR2,SSTR3,SSTR4,AU1,AU2,AU3,;
TI1,TI2,TI3,TI4,TI5,SO1,SO2,SO3,KW1,KW2,KW3,RNUMB
RETURN5 SAY ' '
@ 12,15 SAY ' '
@ 12,32 SAY '** SEARCHING **'
LOCATE FOR !(SSTR)=!(&FLD)
DO WHILE .NOT. EOF
STORE # TO RNUMB
STORE REF:NO TO REF
STORE $(AUTHORS,1,40) TO AU1
STORE $(AUTHORS,41,40) TO AU2
STORE $(TITLE,1,40) TO TI1
STORE $(TITLE,41,40) TO TI2
STORE $(TITLE,81,40) TO TI3
STORE $(TITLE,121,40) TO TI4
STORE $(SOURCE,1,40) TO SO1
STORE $(SOURCE,41,40) TO SO2
STORE $(KWORDS,1,40) TO K