HP RPG/iX Utilities Reference Manual (30318-90006)
2- 168
(5) Keep completed.
File name is SAVEFILE
(6) >D ALL
6 00016I OR 03 1 CM
7 00017I OR 04 1 CD
8 00018I OR 05
9 00019I 8 72OPRND1
10 00020I 9 132OPRND2 99
11 00021C 01 OPRND1 ADD OPRND2 RESULT 104
12 00022C 02 OPRND1 SUB OPRND2 RESULT
13 00023C 03 OPRND1 MULT OPRND2 RESULT
14 00024C 04N99 OPRND1 DIV OPRND2 RESULT H
15 00025C 04 99 <Control Y>
(7) Delete completed.
(8) >FILE SIMCAL3 NOW
Fi1e opened.
>EXIT
END OF PROGRAM
The last example shows how to purge files created by the FILE command as well as the key files associated
with KSAM files. First KSAMUTIL.PUB.SYS is run, and an HP banner is displayed (1). The user then
enters the file names of the files with the PURGE command (2). Note that the execution messages contain
those filenames plus the RISE-created file designators of the associated key files in the execution messages
(3).
The EXIT ends the KSAM UTIL program (4).
(1) :RUN KSAMUTIL.PUB.SYS
HP32208A.03.03 WED, MAY 27, 1981, 3:55 PM KSAMUTIL VERSION:A.03.03
HP32208A.03.03 WED, MAY 27, 1981, 3:55 PM KSAMUTIL VERSION:A.03.03
(2) >PURGE SIMCAL2
(3) SIMCAL2.RPG.SUBSYS & SIMCA97 PURGED.
>PURGE SIMCAL3
SIMCAL3.RPG.SUBSYS & SIMCA18 PURGED.
(4) >EXIT
END OF PROGRAM
:
FIND
FIND locates the first or every occurrence of a string in a work file.