HP 3000 Manual page 218

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=
FILENAME
(3) SIMPROG
(4) >:FILE INPUT=$STDIN
>:FILE OUTPUT=$STDLIST
(5) >RUN SIMPROG
SIMPLE
(6) ENTER DATA IN THE FORMAT:
C NNNDD NNNDD
A 00111 00222
..... YOUR PROBLEM:
ENTER DATA IN THE FORMAT:
(7) C NNNDD NNNDD
:
(8) HP#####X.00.00 RPG INTERACTIVE SYSTEM ENVIRONMENT RISE
(C) HEWLETT-PACKARD CO. 1981
>
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
---
PROGRAM FILE PROGFILE.RPG.SUBSYS
RPG'01
NAME
RPG'OB
R'OUT
R'INT
R'CALT
R'CALD
R'CNTL
SEGMENT LENGTH
2- 220
SUBSYS GROUP= RPG
CODE ------------LOGICAL RECORD---------
SIZE TYP
PROG 128W FB
CALCULATOR
1.11 ADD
(C) HEWLETT-PACKARD CO. 1979
0
STT CODE ENTRY SEG
1 0
2
3
4
5
6
34
EOF LIMIT R/B
12 12 1
2.22 EQUALS
THU, JUN 4, 1981, 2:59 PM
0
1
1
1
1
?
----SPACE----
SECTORS #X MX
13 1 1
3.3300