Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 
d7~jn7k

I0
d7~H @Gl	 ,>,>,>,> ^+,^,^,^,^,~-"

01 SYSCOM.
02	ARE	 A-NAME,	PIC X(30) USAGE DISPLAY-7.
02	RECORD-NAME,	PIC X(30) USAGE DISPLAY-7.
02	ER	 ROR-STATUS,	PIC 9(5) USAGE DISPLAY-7.
02	ERROR-SET,	PIC X(30) USAGE DISPLAY-7.
02	E	 RROR-RECORD,	PIC X(30) USAGE DISPLAY-7.
02	ERROR-AREA,	PIC X(30) USAGE DISPLAY-7.
0	 D""2	ERROR-COUNT	PIC 99, USAGE COMP.
HVHZH\

H^

Ha	(D"*He
HeHfHfHgHhHhHjHk	"D"3HmHoHqHsHtHuHvHx	(D";HyHyHz
HzHgHY
H[
H D-0010ONLY FH-0011SELECTIVE JH-0012FIRST NH-0013LAST RH-0014PRIOR VH-0015NEXT ZH
-0016DUP ^H
-0017ALL bH-0018AREA fH-0019RECORD jH
-0020SET nH-0021UPDATE rH-0022RETRIEVAL vH-0022RETR zH-0023RUN-UNIT ~H-0024PROTECTED 
H-0024PROT 
H-0025EXCLUSIVE 

H-0025EXCL 
H-0026CURRENT 
H-0027SHARED 
H-0028JOURNAL	*(@
-" <|, @ <~, <,
 @Q B * W  T @ <
,+	("E
#-"   @ <, <,, D <,, D <	,, D@@ <,	(D* 
+4@,4@6 +
1  @
,! <,, <,4@ B  8
 @
.	(E(U 
4 <,4@
1 

8 < ,36 
-+
; (`
9 B
3,! <",
0,6@8+(	(UU*
< <.,,
M <0,
14@
B BcL8+
> <2,+
> <3,
=7 
7+5 <7	*
Q
E,
C <8,8 <9,O+  <9,
G@+O@ <:,+
I	"P(U*
MO@ <;,
>4@ BcL8
+
M =1@+@ <C, <D,
E6@
C+G"I	 
A(
V,>,>8,>8 + @ , @ <J,
N4@
h BcL8
+
Y@@
M"I  8Q A`	 D
T
^ @ B <M,"N @ B,,; <O,
Z4@
Y BcL8+
c  8
 @
9	*U(

g <R,
T+
c6@
\+S * @
X + @,^5NW,^,^1B+\ <`,
c	(*D*
o4@ BcL8
+
n <b, <d,
o4@
n <g,4@icL
+
r <k,
s4@
r	*A"*
x <n,
w4@
v B7@8
+
x <q,4@r B <t,5`w4 
x <y,
t4@z	 U*T( BcL8
+~,;+
x6 
T+
M,
;+
M <,
{4@
 B <,,~ 'p	 @ 	Q&A`  F
^ H 'pQ&A`  F
a H 2+ 2,),,~ 'pQ&A`	"
Q"  F
 H 2 &"   @
! <,
 @.  @

 <, Q A`	*
@@ <,1R
Z8,@
f,!",@R,~<@<,
g6A#+ <,%5p<,',~6&,~><	(D+,
:,~"#pQ"A@ 
p 	p
@@
@@4F1F
< @"I N.`<=b>   @0!6@)5p" 8"$0b4@%+

' &:	(D*(D -1@ &31@ &41@ &5 <.,",~ <0,",~ <1,",~0d	*E
(M+O <3,",~ <4,",~ <6,",~ <7,",~ <9,",~ <:	(U,",~01 DBMS-NULL PIC 99 USAGE COMP.

DBMS SECTION.
	ENTER MACRO SBIND U	 ^SING 	ENTER MACRO BIND USING 	ENTER MACRO EBIND USING 0,DBMS-NULL.
01		02 "	 f PIC S9(18)X(30) USAGE COMP USAGE COMP-1 USAGE COMP-3 USAGE DISPLAY-6	 o USAGE DISPLAY-7 USAGE DISPLAY-9 USAGE DBKEY (1) OCCURS 	02 FILLER PIC 	  wX(1).
0,,0,(p{x}Xx~	 
`
$
%x&hh	(

(hhxxp <
 <,+
IH',,<<xv`x	* x <,+
I
hpSYSCOM	"( "H,,<<!h7B+
K0b " B	"U"(* 8 @
@@ <&,
44@
K+
<x`x/x8		"" 3x%x) <4,
%+
DxAxwx8`	*PU(;x:$8
00001p(>6 @+
n <?,++
nx8	"
@*Dh*@p( <F,B+
U<8
`xI	 *@*Lp08
`xNxx9 <S,(+
i	"U*E*Uh/4x,5@
l x <U,"+
lhx6x,5@
n x	*A**] <Z,"+
n`x_x8`xc	 P*(fpfx <h,+
I`xj`	*PPnxmx8
x <r,i+
Ip88p	*A*P
w <v,s+
xpx x <Z,"+
xp <},w+
x	  xx <
,~+
Ip88xph	 
((p <	,+
`



p	 U"(p-
+ <,T+&x
+`

p8	"U"PL<,!<,+(x@p<O@. &+1$8
$8	"TU*!x7 <",H+A8
x <%,+
IDILKCC	*U @ *OCCUPRS08px

p0p2	"E2px1p.0p3p4p5px
(;6	P$yb#M/iP$yP$yb#M/iP$yb#M/ib#M/iGg	rb$	D #7%
r#7&
v#7&
x)a]6
I
FT3mR=
K0J!
bK
K
JLD,}!bLCz	DM^e/M,-,bM.d@AU	`5HaRP^g`5HaRP^"g`u-	D"]?u#%]Hqs&bu;Pbu<Rbu=S^t[:U^u
d7~
#eB1[@hWM	D
h9|!
c	,"G)	?M-7bf,P	Vjs
cH
3	7T{SGX{}*
T|*.|/"BJ#9+]R"QqM
	D+^a*+^a+`]yw
h]&:di~
0di~/Gdi~i#
*	j?H8PAVp-gMwr
dr:^+
+dvvc?5

y1G
)O"1
2
2	D"4ZcG
h4ZiG4=|!
Y4zr
M4|[e5

&
`P8-U9NU	U9N:C	P83#U9PUU9P4CP8&c
9L:9LgU9LU8'r
U9L@C
	D9LS#;,!
n;R8?`#)-p[}eLO7eLE1
7Y<MP|eP!ePxRb
URO+UH
kg
fZ%	
$f4G
Ifwg	D"=}i1i0j2!y0=};3=}<4=}=5k{9
B	"fjf

I
kKj
1f!ic?	Vx?h-
PcD#wW77"%3y	W7&3xW7(cI{W7*vyW7*wtW7.pvW7.FuW7.}OtW70zPd3[v	W70$*rW74J]uPJq`Jy*`Jy3`4Zg(</gg+F=O`K1T	`K>`KPk`KPo`KPp`KW	`KW`KW`KijW.}P
i%~PHw|PI@*|WHp{H
A
PW~@GH
A
PW~@FxH
A
PW~@F`H
A
PW~@FH
A
PW~@FH
V!t0G~@DPH@

|?H
@CY

~@ChH
m
O
7~@CH
m
O
7~@B`H
RU}~@BhH
@mZO~@BH
@CY

~@BH
o`H
m{ @#xH
V!i~@AH
@CY

~@A H
mM\4'~@@xH
@CY

~@AH
RU}~@AH@


~@@hH
m{ @"pH
RU}~@@PH

m{ @"HH@
5Ha|H@
5Ha|H@

H
V!t0G~@@H
V!fIG~@?PH
@CY

~@?XH
@//~@?H
V!i~@>`H
nVm<~@>hH
V!t0G~@> H
@=/~@=XH
@6G~@=(H
V!t0G~@=H
@:
#M/i~@:H
@/7~@9hH@

~@9PH@
5HalMH@
5Ha|
H
@:

~@8PH
@:r'~@7(H
V!g/~@7 H
qf,a_~@7H
@:q~@5pH@

3	7|(H@

3	7|*H
`S1w~@4hHRU}~@4pH
AAVw~@40H o
#M/i~@3`H
AAVw~@3hH
V!t]~@30H
@:r?~@2pH
laYvw~@2@H o

3	7|
)H
`S1w~@1H
@=~~@1H@
'~@0H
mMbg~@/@H
m{ @pH
m{ @0H
m{ @pH
m{ @0H
m{ @pH
m{ @0H
m{ @pH
m{ @0H
m{ @pH
m{ @0H
m{ @

pH
m{ @

0H
m{ @pH
m{ @0H
m{ @
pH
m{ @
0H
m{ @	pH
m{ @	0H
m{ @pH
m{ @0(
(;