HP RPG/iX Utilities Reference Manual (30318-90006)
2- 220
prepare and execute. The VERIFY PREP option is employed, and the Segmenter banner is displayed (1).
Next, the MPE command :SAVE assigns a new file designator to $OLDPASS when it is made permanent
(2). A second MPE command, :LISTF, with the 2 parameter, brings to the screen file information including
file name, file code, record size, record format, data format (3). The input/output file equations are given
(4), and the RUN command is issued using the new file designator (5). Again, the calculator is applied
(6),nn and a colon, entered by the user (7), returns the user to RISE (8).
(1) >VERIFY PREP
HP32050A.01.03 SEGMENTER (C) HEWLETT-PACKARD CO. 1979
---
Segmenter completed.
(2) >:SAVE $OLDPASS,SIMPROG
>:LISTF SIMPROG,2
ACCOUNT= SUBSYS GROUP= RPG
FILENAME CODE ------------LOGICAL RECORD--------- ----SPACE----
SIZE TYP EOF LIMIT R/B SECTORS #X MX
(3) SIMPROG PROG 128W FB 12 12 1 13 1 1
(4) >:FILE INPUT=$STDIN
>:FILE OUTPUT=$STDLIST
(5) >RUN SIMPROG
SIMPLE CALCULATOR
(6) ENTER DATA IN THE FORMAT:
C NNNDD NNNDD
A 00111 00222
..... YOUR PROBLEM: 1.11 ADD 2.22 EQUALS 3.3300
ENTER DATA IN THE FORMAT:
(7) C NNNDD NNNDD
:
(8) HP#####X.00.00 RPG INTERACTIVE SYSTEM ENVIRONMENT RISE
(C) HEWLETT-PACKARD CO. 1981 THU, JUN 4, 1981, 2:59 PM
>
In the final example, the VERIFY PREP option is demonstrated again, this time with two additional
parameters, PMAP and MAXDATA. The PMAP parameter produces a descriptive listing of the file on the
screen (1). Following the listing, an execution message informs the user that the segmenting is completed
(2). The temporary file is made permanent with the use of the MPE :SAVE command (3), and :LISTF,2
again brings descriptive file information to the screen (4). PROGFILE is then RUN, and the calculator is
displayed and applied (5).
>V P PROGFILE;PMAP;MAXDATA=10000
(1) HP32050A.01.03 SEGMENTER (C) HEWLETT-PACKARD CO. 1979
---
PROGRAM FILE PROGFILE.RPG.SUBSYS
RPG'01 0
NAME STT CODE ENTRY SEG
RPG'OB 1 0 0
R'OUT 2 1
R'INT 3 1
R'CALT 4 1
R'CALD 5 1
R'CNTL 6 ?
SEGMENT LENGTH 34