Control Data Corporation 3300 Reference Manual page 216

:>
I
~
00001
00002
00003
00004
OOOOS
00006
00007
00008
00009
00010
00011
fJ(1012
anOl3
00014
oralS
00016
00017
00018
00019
0<.:020
00021
00022
00023
00024
00025
00026
00027
on028
O(J029
00030
00031
00032
00033
00034
00035
00036
00037
00038
0)
00039
0
00040
1100011
~
~ 00041 ClrOO12
c.o
~
00042
or.oo
13
0
0
00043 000014
PSR-UPOT
IDENTIFICATIo~
DIvISION.
pROC;RAM-
I O. PSR-UPOT.
AUTHOR. DAS-DOJ.
REMARKC;.
ENVIRONMENT DIVISLON.
CONF'YGIIRATICN SECTION.
SOURCE-COMPUTER.
3300.
CHJECT-COMPUTER. 3300.
SPt::CIAL-NAMEs.
~VC;TEM-OUTPUT
IS OUT.
tNPUT-CUTPUT SECTION.
FILE-CeNTROL.
SELECT OIlT-FILE ASC;IGN TO SYsTEM-OUTPuT.
C;ELECT
INFILE-CARO ASSrGN
TO SYSTEM-INPUT.
C;ELECT
PRIM-StC-LIST
ASSt~N TO DISK LIST
ACCEsS MODE IS RANDOM
ACTUAL KEY IS PRIM-KEV.
C;F.LECT
PSR-FT~E
ASSIGN To DISK PSR
ACCEsS ~C0E IS RANDOM
ACTUAL KF.V IS PSR-KEV.
C;EI .. ECT
NUM8ER-FILE
ASSIGN TO DISK PNUM
ACCESS
MouE IS RANDOM
ACTUAL KEf IS
NUM-KEy.
5ELECT SORT-FILE ASSTGN TO SCRATCH SCR.
c;ELECT SORT-CUT ASSIGN To
TAPE 05.
~F.LECT P.S-LIST ASSyGN TO DISK LST
ACCE5S M~OE IS RANDOM
ACTuAL K~Y IS
P-KEY.
~ELECT N-FILE ASSIGN TO DISK PNM
ACCEsS MCGE IS SEQUENTIAL
ACTUAL KFY IS
N-KEY.
OATt\
DtVISION.
FILE: S~CTICI\J.
FO ~IJT-FILE
LAREL
HECCRf)C:; ARF.
Otv1rTTEn
QEPCRTS ARE
ntLETF-RF~ORT-l. LIST-PS~-NUM-~EPCRT.
FO TNI='
I
LE-CAH!)
LAREL RECO~0 IS OMITT~D
nATA RECo~o TS !NR~C.
01 INQEC.
o~ CAHU-TYP~
PIC
x.
88 LE:t;AL -CODE
VA'-IJE~ ~A;h ~C~, ¢o~. ~L~, ;6$~.
;tR;e.
02 FILLER Ptc
X(79).